mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

split out three modules from Git

Browse source 
Constructors and configuration make sense in separate modules.
A separate Git.Types is needed to avoid cycles.
This commit is contained in:
Joey Hess 2011-12-13 15:05:07 -04:00
parent 46588674b0
commit 13fff71f20
20 changed files with 349 additions and 285 deletions
Download patch file Download diff file Expand all files Collapse all files

7
GitAnnex.hs
View file

@ -10,7 +10,8 @@ module GitAnnex where
import System.Console.GetOpt
import Common.Annex
import qualified Git
import qualified Git.Config
import qualified Git.Construct
import CmdLine
import Command
import Types.TrustLevel
@ -125,11 +126,11 @@ options = commonOptions ++
setprint0 v = Annex.changeState $ \s -> s { Annex.print0 = v }
setgitconfig :: String -> Annex ()
setgitconfig v = do
newg <- inRepo $ Git.configStore v
newg <- inRepo $ Git.Config.store v
Annex.changeState $ \s -> s { Annex.repo = newg }
header :: String
header = "Usage: git-annex command [option ..]"
run :: [String] -> IO ()
run args = dispatch args cmds options header Git.repoFromCwd
run args = dispatch args cmds options header Git.Construct.fromCwd