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