diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-05-15 02:02:46 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-05-15 02:02:46 -0400 |
| commit | 56bc3e95cabb85e5f23e30b453f90438c33efbb8 (patch) | |
| tree | c13ac69cfc2b5ba9582aa5c1ebd427bc0d337b16 /Command/Init.hs | |
| parent | b400984ddf9aeb24c3d67e87cfeb29470618636c (diff) | |
refactor some boilerplate
Diffstat (limited to 'Command/Init.hs')
| -rw-r--r-- | Command/Init.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/Init.hs b/Command/Init.hs index cca2e8fae..668b5c87d 100644 --- a/Command/Init.hs +++ b/Command/Init.hs @@ -35,7 +35,7 @@ start description = do when (null description) $ error "please specify a description of this repository\n" showStart "init" description - return $ Just $ perform description + next $ perform description perform :: String -> CommandPerform perform description = do @@ -48,12 +48,12 @@ perform description = do "This is a bare repository, so its description cannot be committed.\n" ++ "To record the description, run this command in a clone of this repository:\n" ++ " git annex describe " ++ show u ++ " " ++ show description ++ "\n\n" - return $ Just $ return True + next $ return True else do describeUUID u description liftIO $ gitAttributesWrite g gitPreCommitHookWrite g - return $ Just cleanup + next cleanup cleanup :: CommandCleanup cleanup = do |