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 ..]"
main :: IO ()
main = do
args <- getArgs
main' args
main = main' =<< getArgs
main' :: [String] -> IO ()
main' [] = failure