diff options
| author | Matthew Craven <5086-clyring@users.noreply.gitlab.haskell.org> | 2022-06-11 20:04:49 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-06-13 14:07:12 -0400 |
| commit | dc202080d6cb26bab38233266d539b626258cd2c (patch) | |
| tree | 1152828b3f617ee9565eb089c8af3f0a246d7f43 | |
| parent | 722814ba43af29ea863ed699ec706c89286046b1 (diff) | |
| download | haskell-dc202080d6cb26bab38233266d539b626258cd2c.tar.gz | |
Use (fixed_lev = True) in mkDataTyConRhs
| -rw-r--r-- | compiler/GHC/Core/TyCon.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Core/TyCon.hs b/compiler/GHC/Core/TyCon.hs index 6514b68aaf..236610c3a8 100644 --- a/compiler/GHC/Core/TyCon.hs +++ b/compiler/GHC/Core/TyCon.hs @@ -1235,7 +1235,7 @@ mkLevPolyDataTyConRhs fixed_lev cons -- -- Use 'mkLevPolyDataConRhs' if the datatype can be levity-polymorphic. mkDataTyConRhs :: [DataCon] -> AlgTyConRhs -mkDataTyConRhs = mkLevPolyDataTyConRhs False +mkDataTyConRhs = mkLevPolyDataTyConRhs True -- | Some promoted datacons signify extra info relevant to GHC. For example, -- the @IntRep@ constructor of @RuntimeRep@ corresponds to the 'IntRep' |