summaryrefslogtreecommitdiff
path: root/Init.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-10-03 22:24:57 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-10-03 23:29:48 -0400
commit8ef2095fa00408ce6729596a42bc0abdc7778098 (patch)
treed6fc3c9f9519ba2ce617a804ce1c5f33f59a9109 /Init.hs
parent003a604a6e48a8a0ffd1564e3399b54e8c673e92 (diff)
factor out common imports
no code changes
Diffstat (limited to 'Init.hs')
-rw-r--r--Init.hs14
1 files changed, 3 insertions, 11 deletions
diff --git a/Init.hs b/Init.hs
index 4df159933..57eaf39d2 100644
--- a/Init.hs
+++ b/Init.hs
@@ -11,18 +11,10 @@ module Init (
uninitialize
) where
-import Control.Monad.State (liftIO)
-import Control.Monad (unless)
-import System.Directory
-
-import qualified Annex
+import AnnexCommon
import qualified Git
import qualified Branch
import Version
-import Messages
-import Types
-import Utility
-import Utility.Conditional
import UUID
initialize :: Annex ()
@@ -73,12 +65,12 @@ gitPreCommitHookUnWrite = unlessBare $ do
unlessBare :: Annex () -> Annex ()
unlessBare a = do
- g <- Annex.gitRepo
+ g <- gitRepo
unless (Git.repoIsLocalBare g) a
preCommitHook :: Annex FilePath
preCommitHook = do
- g <- Annex.gitRepo
+ g <- gitRepo
return $ Git.gitDir g ++ "/hooks/pre-commit"
preCommitScript :: String