Converted back to the wrong type, oops.
This commit is contained in:
Joey Hess 2013-04-24 17:50:11 -04:00
parent b8e45ec9d7
commit cb575cbe91

View file

@ -65,7 +65,7 @@ isInProcessAddChange _ = False
retryChange :: Change -> Change
retryChange (InProcessAddChange time ks) =
Change time (keyFilename ks) AddFileChange
PendingAddChange time (keyFilename ks)
retryChange c = c
finishedChange :: Change -> Key -> Change