diff options
| author | nineonine <mail4chemik@gmail.com> | 2022-02-23 00:01:55 -0800 |
|---|---|---|
| committer | Alex D <mail4chemik@gmail.com> | 2022-02-24 18:10:17 +0000 |
| commit | 7de6652cd0c1b8333971897d9193811863258f65 (patch) | |
| tree | 68afe8e464cb255c6689de08915bdf17d98d9d3f | |
| parent | e4fabb147ba38805cbf493e68453115161dd4d74 (diff) | |
| download | haskell-wip/T21083.tar.gz | |
Fix panic in InferTags.Rewrite.isTaggedwip/T21083
| -rw-r--r-- | compiler/GHC/Stg/InferTags/Rewrite.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/GHC/Stg/InferTags/Rewrite.hs b/compiler/GHC/Stg/InferTags/Rewrite.hs index 8b2c24cbdb..a061649f44 100644 --- a/compiler/GHC/Stg/InferTags/Rewrite.hs +++ b/compiler/GHC/Stg/InferTags/Rewrite.hs @@ -25,7 +25,7 @@ import GHC.Types.Name import GHC.Types.Unique.Supply import GHC.Types.Unique.FM import GHC.Types.RepType -import GHC.Unit.Types (Module) +import GHC.Unit.Types (Module, isInteractiveModule) import GHC.Core.DataCon import GHC.Core (AltCon(..) ) @@ -220,6 +220,8 @@ isTagged v = do True | isUnliftedType (idType v) -> return True + | isInteractiveModule this_mod + -> return False | otherwise -> do -- Local binding !s <- getMap let !sig = lookupWithDefaultUFM s (pprPanic "unknown Id:" (ppr v)) v |