diff options
Diffstat (limited to 'compiler/GHC/Stg/Syntax.hs')
| -rw-r--r-- | compiler/GHC/Stg/Syntax.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/compiler/GHC/Stg/Syntax.hs b/compiler/GHC/Stg/Syntax.hs index 4956920fb1..d1b44e94fa 100644 --- a/compiler/GHC/Stg/Syntax.hs +++ b/compiler/GHC/Stg/Syntax.hs @@ -74,6 +74,7 @@ import Data.ByteString ( ByteString ) import Data.Data ( Data ) import Data.List ( intersperse ) import GHC.Core.DataCon +import GHC.Types.Basic ( Levity(..) ) import GHC.Types.ForeignCall ( ForeignCall ) import GHC.Types.Id import GHC.Types.Name ( isDynLinkName ) @@ -165,10 +166,10 @@ isDllConApp platform ext_dyn_refs this_mod con args -- -- The coercion argument here gets VoidRep isAddrRep :: PrimRep -> Bool -isAddrRep AddrRep = True -isAddrRep LiftedRep = True -isAddrRep UnliftedRep = True -isAddrRep _ = False +isAddrRep AddrRep = True +isAddrRep (BoxedRep Lifted) = True +isAddrRep (BoxedRep Unlifted) = True +isAddrRep _ = False -- | Type of an @StgArg@ -- |