From 0f2859454cb1d1edd779fccd9b35e2b5d78b0861 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 30 Jun 2011 13:22:10 -0400 Subject: tweak --- git-annex-shell.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/git-annex-shell.hs b/git-annex-shell.hs index c240b1c19..a64552c72 100644 --- a/git-annex-shell.hs +++ b/git-annex-shell.hs @@ -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 -- cgit v1.2.3