diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-14 21:10:59 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-14 21:10:59 -0400 |
commit | 29039fdf97f541a1077c9af65ccbe09dd2ae2b28 (patch) | |
tree | d46d1c1489422352df166789cf9baeb56132501b /Core.hs | |
parent | 4c3ad80f320d3c4cccc3e41e4f2364155bae22a1 (diff) |
add flags, and change to subcommand style
Diffstat (limited to 'Core.hs')
-rw-r--r-- | Core.hs | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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 |