diff options
author | Joey Hess <joey@kitenet.net> | 2011-11-07 16:13:06 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-11-07 16:13:06 -0400 |
commit | 64bc4e4751c5738d3e6c44db9452c46b26245910 (patch) | |
tree | ca516271e093dd9543c076ff97b1c3e32c4740e8 /Init.hs | |
parent | 63a292324d20832b68c92f784828e55e644481cc (diff) |
refactor
Diffstat (limited to 'Init.hs')
-rw-r--r-- | Init.hs | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -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 -} |