From 4f0b7a39a49559431c414d5865a732ed8ed18107 Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Wed, 4 Nov 2020 10:44:56 +0000 Subject: Add missing case for unboxed sum --- compiler/GHC/CoreToStg.hs | 1 + 1 file changed, 1 insertion(+) 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 -- cgit v1.2.1