Skip to content
Snippets Groups Projects
Commit 40b70cba authored by waern's avatar waern
Browse files

Don't exit when there are no file arguments

parent 2d0eb53e
No related branches found
No related tags found
No related merge requests found
......@@ -252,7 +252,6 @@ handleEasyFlags flags fileArgs = do
when (Flag_Help `elem` flags) (bye usage)
when (Flag_Version `elem` flags) byeVersion
when (Flag_GhcVersion `elem` flags) byeGhcVersion
when (null fileArgs) (bye usage)
let ghcLibDir = case [ dir | Flag_GhcLibDir dir <- flags ] of
[] -> throwE "no GHC lib dir specified"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment