Make various assertions work when !DEBUG

[ghc-hetmet.git] / compiler / main / CmdLineParser.hs

diff --git a/compiler/main/CmdLineParser.hs b/compiler/main/CmdLineParser.hs
index d237ad7..3373143 100644 (file)
--- a/compiler/main/CmdLineParser.hs
+++ b/compiler/main/CmdLineParser.hs
@@ -9,6 +9,13 @@
 --
 -----------------------------------------------------------------------------
 
+{-# OPTIONS -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+--     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
+-- for details
+
 module CmdLineParser (
        processArgs, OptKind(..), 
        CmdLineP(..), getCmdLineState, putCmdLineState
@@ -17,9 +24,7 @@ module CmdLineParser (
 #include "HsVersions.h"
 
 import Util    ( maybePrefixMatch, notNull, removeSpaces )
-#ifdef DEBUG
-import Panic   ( assertPanic )
-#endif
+import Panic
 
 data OptKind m         -- Suppose the flag is -f
        = NoArg (m ())                  -- -f all by itself