diff options
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 |