git-annex.hs


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

{- git-annex main program
 - -}

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

main = do
	args <- getArgs
	flags <- argvToFlags args
	
	repo <- currentRepo
	gitPrep repo

	mapM (\f -> dispatch f supportedBackends repo) flags