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/Rules.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/Rules.hs')
| -rw-r--r-- | compiler/GHC/Core/Rules.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Core/Rules.hs b/compiler/GHC/Core/Rules.hs index 878b905929..02511d96b5 100644 --- a/compiler/GHC/Core/Rules.hs +++ b/compiler/GHC/Core/Rules.hs @@ -933,7 +933,7 @@ match_var renv@(RV { rv_tmpls = tmpls, rv_lcl = rn_env, rv_fltR = flt_env }) Var v2 | v1' == rnOccR rn_env v2 -> Just subst - | Var v2' <- lookupIdSubst flt_env v2 + | Var v2' <- lookupIdSubstUnchecked flt_env v2 , v1' == v2' -> Just subst |