mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactor some boilerplate

Browse source
This commit is contained in:
Joey Hess 2011-05-15 02:02:46 -04:00
parent b400984ddf
commit 56bc3e95ca
31 changed files with 93 additions and 86 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Command/Unannex.hs
View file

@ -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