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

4
Command/Unlock.hs
View file

@ -34,7 +34,7 @@ seek = [withFilesInGit start]
start :: CommandStartString
start file = isAnnexed file $ \(key, _) -> do
showStart "unlock" file
return $ Just $ perform file key
next $ perform file key
perform :: FilePath -> Key -> CommandPerform
perform dest key = do
@ -52,5 +52,5 @@ perform dest key = do
if ok
then do
liftIO $ allowWrite dest
return $ Just $ return True
next $ return True
else error "copy failed!"