git-annex.hs


1
2
3
4
5
6
7
8
9
10
11
12

{- git-annex main program -}

import System.Environment
import qualified Annex
import Core
import CmdLine

main = do
	args <- getArgs
	(mode, params) <- argvToMode args
	state <- start
	tryRun state mode params