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

add flags, and change to subcommand style

Browse source
This commit is contained in:
Joey Hess 2010-10-14 21:10:59 -04:00
parent 4c3ad80f32
commit 29039fdf97
7 changed files with 59 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Core.hs
View file

@ -12,8 +12,9 @@ import qualified GitRepo as Git
import qualified Annex
{- Sets up a git repo for git-annex. -}
setup :: Annex ()
setup = do
startup :: [Flag] -> Annex ()
startup flags = do
Annex.flagsChange flags
g <- Annex.gitRepo
liftIO $ gitAttributes g
prepUUID