git-annex.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{- git-annex main program
 - -}

import System.Environment
import GitRepo
import CmdLine
import Annex
import BackendList

main = do
	args <- getArgs
	flags <- argvToFlags args
	
	state <- startAnnex

	mapM (\f -> dispatch f state) flags