diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2021-08-03 17:23:49 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2021-08-03 17:32:57 +0200 |
| commit | 32a1e8c43c9e89392c62b1f7f2e61136176afe7a (patch) | |
| tree | b637dc15a4aea85cf897b6f6b222a7d04c1a5489 /compiler/GHC/Core.hs | |
| parent | 34e352173dd1fc3cd86c49380fda5a4eb5dd7aef (diff) | |
| download | haskell-wip/more-panics.tar.gz | |
Convert warnings to panicswip/more-panics
This minimized module compiled with -O triggers the problem in GHC.Core.Rules:
module GHC.Utils.TmpFs where
import qualified Data.Map as Map
cleanTempDirs :: ([String] -> a) -> Map.Map String String -> a
cleanTempDirs logger ds = logger (Map.elems ds)
Diffstat (limited to 'compiler/GHC/Core.hs')
| -rw-r--r-- | compiler/GHC/Core.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/compiler/GHC/Core.hs b/compiler/GHC/Core.hs index ecd9a6ee00..878068b903 100644 --- a/compiler/GHC/Core.hs +++ b/compiler/GHC/Core.hs @@ -114,7 +114,6 @@ import GHC.Utils.Misc import GHC.Utils.Outputable import GHC.Utils.Panic import GHC.Utils.Panic.Plain -import GHC.Utils.Trace import Data.Data hiding (TyCon) import Data.Int @@ -1595,9 +1594,7 @@ cmpAltCon (DataAlt _) DEFAULT = GT cmpAltCon (LitAlt l1) (LitAlt l2) = l1 `compare` l2 cmpAltCon (LitAlt _) DEFAULT = GT -cmpAltCon con1 con2 = warnPprTrace True (text "Comparing incomparable AltCons" <+> - ppr con1 <+> ppr con2) $ - LT +cmpAltCon con1 con2 = pprPanic "cmpAltCon" (text "Incomparable AltCons" $$ ppr con1 $$ ppr con2) {- ************************************************************************ |