diff options
Diffstat (limited to 'Command/Unannex.hs')
| -rw-r--r-- | Command/Unannex.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Command/Unannex.hs b/Command/Unannex.hs index 94db500c6..0a5381d56 100644 --- a/Command/Unannex.hs +++ b/Command/Unannex.hs @@ -43,16 +43,16 @@ start file = isAnnexed file $ \(key, backend) -> do Annex.changeState $ \s -> s { Annex.force = True } showStart "unannex" file - return $ Just $ perform file key backend - else return Nothing + next $ perform file key backend + else stop perform :: FilePath -> Key -> Backend Annex -> CommandPerform perform file key backend = do -- force backend to always remove ok <- Backend.removeKey backend key (Just 0) if ok - then return $ Just $ cleanup file key - else return Nothing + then next $ cleanup file key + else stop cleanup :: FilePath -> Key -> CommandCleanup cleanup file key = do |