summaryrefslogtreecommitdiff
path: root/git-annex-shell.hs
diff options
context:
space:
mode:
Diffstat (limited to 'git-annex-shell.hs')
-rw-r--r--git-annex-shell.hs4
1 files changed, 1 insertions, 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