From b0616f49e428debba01e7262e582eb7c16306585 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 18 Aug 2007 22:42:46 +0000 Subject: [PATCH] Make runghc warning-free and turn -Wall on in the Makefile --- utils/runghc/Makefile | 1 + utils/runghc/runghc.hs | 6 ++---- 2 files changed, 3 insertions(+), 4 deletions(-) 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 -- 1.7.10.4