X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fmain%2FCmdLineParser.hs;h=3373143ed39e80f3a1403cad071c8f15473d044e;hb=f8c52d7fde2d7408b4f734251c373f8d3e2c558e;hp=27a1409a55379c9afddd9197796687184d0a7b03;hpb=ad94d40948668032189ad22a0ad741ac1f645f50;p=ghc-hetmet.git diff --git a/compiler/main/CmdLineParser.hs b/compiler/main/CmdLineParser.hs index 27a1409..3373143 100644 --- a/compiler/main/CmdLineParser.hs +++ b/compiler/main/CmdLineParser.hs @@ -13,7 +13,7 @@ -- 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/CodingStyle#Warnings +-- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings -- for details module CmdLineParser ( @@ -24,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