factor out common imports
no code changes
This commit is contained in:
parent
003a604a6e
commit
8ef2095fa0
83 changed files with 264 additions and 619 deletions
14
Init.hs
14
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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue