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/SetKey.hs
View file

@ -26,7 +26,7 @@ seek = [withTempFile start]
start :: CommandStartString
start file = do
showStart "setkey" file
return $ Just $ perform file
next $ perform file
perform :: FilePath -> CommandPerform
perform file = do
@ -40,7 +40,7 @@ perform file = do
boolSystem "mv" [File file, File dest]
else return True
if ok
then return $ Just $ cleanup
then next cleanup
else error "mv failed!"
cleanup :: CommandCleanup