This commit is contained in:
Joey Hess 2011-11-07 16:13:06 -04:00
parent 63a292324d
commit 64bc4e4751
2 changed files with 6 additions and 9 deletions

View file

@ -19,13 +19,14 @@ import Logs.UUID
import Annex.Version
import Annex.UUID
initialize :: Annex ()
initialize = do
initialize :: Maybe String -> Annex ()
initialize mdescription = do
prepUUID
Annex.Branch.create
setVersion
gitPreCommitHookWrite
getUUID >>= recordUUID
u <- getUUID
maybe (recordUUID u) (describeUUID u) mdescription
uninitialize :: Annex ()
uninitialize = gitPreCommitHookUnWrite
@ -40,7 +41,7 @@ ensureInitialized = getVersion >>= maybe needsinit checkVersion
needsinit = do
annexed <- Annex.Branch.hasSomeBranch
if annexed
then initialize
then initialize Nothing
else error "First run: git-annex init"
{- set up a git pre-commit hook, if one is not already present -}