From 125025c7461d54be6ec55aaf6237fcf6fbd7f03e Mon Sep 17 00:00:00 2001 From: David Waern Date: Fri, 9 Nov 2007 02:40:16 +0000 Subject: Don't exit when there are no file arguments --- src/Main.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/src/Main.hs b/src/Main.hs index e89f41ed..2f0c72ca 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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" -- cgit v1.2.3