diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-08-18 22:42:46 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-08-18 22:42:46 +0000 |
| commit | b0616f49e428debba01e7262e582eb7c16306585 (patch) | |
| tree | 460c82037718feee846d4e88c5a15c17f7bd2aef /utils | |
| parent | 0a066666b10008aca3a875f5c7499c21c59efc0c (diff) | |
| download | haskell-b0616f49e428debba01e7262e582eb7c16306585.tar.gz | |
Make runghc warning-free and turn -Wall on in the Makefile
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/runghc/Makefile | 1 | ||||
| -rw-r--r-- | utils/runghc/runghc.hs | 6 |
2 files changed, 3 insertions, 4 deletions
diff --git a/utils/runghc/Makefile b/utils/runghc/Makefile index 1a176a084a..7ea6c09ee3 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 9346390e30..a55fdca07d 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 |