Commits

Stefan Saasen committed 0d9ecff

Main: Show usage on error

Comments (0)

Files changed (1)

     args <- getArgs
     case args of
         (cmd:xs)    -> run cmd xs
-        _           -> error "Missing command"
+        _           -> error "usage: hgit clone <repo> [<dir>]"
 
 -- | Execute the given command
 run :: String -> [String] -> IO ()