diff options
| -rw-r--r-- | compiler/GHC/Iface/Type.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Iface/Type.hs b/compiler/GHC/Iface/Type.hs index 33f6bbc425..06033bda37 100644 --- a/compiler/GHC/Iface/Type.hs +++ b/compiler/GHC/Iface/Type.hs @@ -1065,7 +1065,7 @@ defaultNonStandardVars do_runtimereps do_multiplicities ty = go False emptyFsEnv -- See Note [Defaulting RuntimeRep variables], about free vars | const False in_kind && do_runtimereps && GHC.Core.Type.isRuntimeRepTy (tyVarKind tv) = liftedRep_ty - | do_multiplicities && GHC.Core.Type.isMultiplicityTy (tyVarKind tv) + | const False do_multiplicities && GHC.Core.Type.isMultiplicityTy (tyVarKind tv) = many_ty | otherwise = ty |