From: Ian Lynagh <igloo@earth.li>
Date: Sat, 18 Aug 2007 22:42:46 +0000 (+0000)
Subject: Make runghc warning-free and turn -Wall on in the Makefile
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b0616f49e428debba01e7262e582eb7c16306585

Make runghc warning-free and turn -Wall on in the Makefile
---

diff --git a/utils/runghc/Makefile b/utils/runghc/Makefile
index 1a176a0..7ea6c09 100644
--- a/utils/runghc/Makefile
+++ b/utils/runghc/Makefile
@@ -14,6 +14,7 @@ include $(GHC_COMPAT_DIR)/compat.mk
 # $(GhcHcOpts) because it is linked to the compiler, and hence
 # we must also build with $(GhcHcOpts) here:
 SRC_HC_OPTS += $(GhcHcOpts) $(GhcStage1HcOpts)
+SRC_HC_OPTS += -Wall
 
 binary-dist:
 	$(INSTALL_DIR)                $(BIN_DIST_DIR)/utils/runghc
diff --git a/utils/runghc/runghc.hs b/utils/runghc/runghc.hs
index 9346390..a55fdca 100644
--- a/utils/runghc/runghc.hs
+++ b/utils/runghc/runghc.hs
@@ -40,10 +40,8 @@ main :: IO ()
 main = do
     args <- getArgs
     case args of
-        ("-f" : ghc : args) -> do
-            doIt ghc args
-        ('-' : 'f' : ghc) : args -> do
-            doIt (dropWhile isSpace ghc) args
+        "-f" : ghc : args'        -> doIt ghc args'
+        ('-' : 'f' : ghc) : args' -> doIt (dropWhile isSpace ghc) args'
         _ -> do
             mb_ghc <- findExecutable "ghc"
             case mb_ghc of