diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-12-30 15:44:15 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-12-30 15:44:15 -0400 |
| commit | 88ff9e82fc3dcb653b2a116f1c162d98a1f6bdcf (patch) | |
| tree | cb52cb0a0e2326e61e30b8f364d96fb6c39fa44f /git-annex.hs | |
| parent | 1c451fe3628f535898e7cf87ccad30270c6d16fb (diff) | |
factor out a little more
Diffstat (limited to 'git-annex.hs')
| -rw-r--r-- | git-annex.hs | 18 |
1 files changed, 2 insertions, 16 deletions
diff --git a/git-annex.hs b/git-annex.hs index 31d90e4fc..b8176befa 100644 --- a/git-annex.hs +++ b/git-annex.hs @@ -5,17 +5,11 @@ - Licensed under the GNU GPL version 3 or higher. -} -import System.Environment import System.Console.GetOpt -import qualified Annex -import Core -import Upgrade import CmdLine -import qualified GitRepo as Git -import BackendList - import Command + import qualified Command.Add import qualified Command.Unannex import qualified Command.Drop @@ -83,13 +77,5 @@ options = [ "skip files matching the glob pattern" ] -header :: String -header = "Usage: git-annex subcommand [option ..]" - main :: IO () -main = do - args <- getArgs - gitrepo <- Git.repoFromCwd - state <- Annex.new gitrepo allBackends - (actions, state') <- Annex.run state $ parseCmd args header cmds options - tryRun state' $ [startup, upgrade] ++ actions +main = cmdLine cmds options "Usage: git-annex subcommand [option ..]" |