diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2020-11-04 10:44:56 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2020-11-04 10:44:56 +0000 |
| commit | 4f0b7a39a49559431c414d5865a732ed8ed18107 (patch) | |
| tree | c8b7edd234b6a99ecc54b617a6b54bf1167deec3 | |
| parent | d92b162377ac683780ba565afdc4830d11904e5d (diff) | |
| download | haskell-4f0b7a39a49559431c414d5865a732ed8ed18107.tar.gz | |
Add missing case for unboxed sum
| -rw-r--r-- | compiler/GHC/CoreToStg.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/GHC/CoreToStg.hs b/compiler/GHC/CoreToStg.hs index 42cc630858..05b0a9a5aa 100644 --- a/compiler/GHC/CoreToStg.hs +++ b/compiler/GHC/CoreToStg.hs @@ -925,6 +925,7 @@ lookupBinding env v = case lookupVarEnv env v of incDc :: DataCon -> CtsM (Maybe Int) incDc dc | isUnboxedTupleDataCon dc = return Nothing +incDc dc | isUnboxedSumDataCon dc = return Nothing incDc dc = CtsM $ \dflags _ -> if not (gopt Opt_DistinctConstructorTables dflags) then return Nothing else do env <- get cc <- ask |