This commit is contained in:
Joey Hess 2011-10-04 00:40:47 -04:00
parent ff21fd4a65
commit cfe21e85e7
73 changed files with 173 additions and 173 deletions

10
Init.hs
View file

@ -11,16 +11,16 @@ module Init (
uninitialize
) where
import AnnexCommon
import Annex.Common
import qualified Git
import qualified Branch
import Version
import qualified Annex.Branch
import Annex.Version
import UUID
initialize :: Annex ()
initialize = do
prepUUID
Branch.create
Annex.Branch.create
setVersion
gitPreCommitHookWrite
@ -35,7 +35,7 @@ ensureInitialized :: Annex ()
ensureInitialized = getVersion >>= maybe needsinit checkVersion
where
needsinit = do
annexed <- Branch.hasSomeBranch
annexed <- Annex.Branch.hasSomeBranch
if annexed
then initialize
else error "First run: git-annex init"