blob: 590a7c0519e432588518b4e3cc86cf7252b50968 (
plain)
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
|