fix up commands that are trouble on bare repos

Most will just abort. init does a basic init and gives a command to
run elsewhere to finish it.
This commit is contained in:
Joey Hess 2011-03-03 16:40:55 -04:00
parent b88637fff1
commit b5b78f26ec
8 changed files with 31 additions and 23 deletions

View file

@ -41,11 +41,19 @@ perform :: String -> CommandPerform
perform description = do
g <- Annex.gitRepo
u <- getUUID g
describeUUID u description
setVersion
liftIO $ gitAttributesWrite g
gitPreCommitHookWrite g
return $ Just cleanup
if Git.repoIsLocalBare g
then do
showLongNote $
"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) ++ " '" ++ description ++ "'\n\n"
return $ Just $ return True
else do
describeUUID u description
liftIO $ gitAttributesWrite g
gitPreCommitHookWrite g
return $ Just cleanup
cleanup :: CommandCleanup
cleanup = do