This commit is contained in:
Joey Hess 2011-06-30 13:22:10 -04:00
parent f6063a094e
commit 0f2859454c

View file

@ -35,9 +35,7 @@ header :: String
header = "Usage: git-annex-shell [-c] command [parameters ...] [option ..]" header = "Usage: git-annex-shell [-c] command [parameters ...] [option ..]"
main :: IO () main :: IO ()
main = do main = main' =<< getArgs
args <- getArgs
main' args
main' :: [String] -> IO () main' :: [String] -> IO ()
main' [] = failure main' [] = failure