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

@ -30,7 +30,7 @@ seek = [withFilesInGit Command.Unannex.start, withNothing start]
start :: CommandStartNothing
start = do
showStart "uninit" ""
return $ Just $ perform
next perform
perform :: CommandPerform
perform = do
@ -39,7 +39,7 @@ perform = do
gitPreCommitHookUnWrite g
liftIO $ gitAttributesUnWrite g
return $ Just $ return True
next $ return True
gitPreCommitHookUnWrite :: Git.Repo -> Annex ()
gitPreCommitHookUnWrite repo = do