X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fprelude%2FPrimOp.lhs;h=8c532ffc869157e6503cf66f1211d05b0a810664;hb=841e81e28f8cc711f624fdca122219a5bbde2fae;hp=a9a8fa277e588030d03d8e0c715d64faa898f66f;hpb=cbbee4e8727c583daf32d9bf17f00afaa839ef10;p=ghc-hetmet.git

diff --git a/compiler/prelude/PrimOp.lhs b/compiler/prelude/PrimOp.lhs
index a9a8fa2..8c532ff 100644
--- a/compiler/prelude/PrimOp.lhs
+++ b/compiler/prelude/PrimOp.lhs
@@ -31,7 +31,7 @@ module PrimOp (
 import TysPrim
 import TysWiredIn
 
-import NewDemand
+import Demand
 import Var		( TyVar )
 import OccName		( OccName, pprOccName, mkVarOccFS )
 import TyCon		( TyCon, isPrimTyCon, tyConPrimRep, PrimRep(..) )
@@ -43,6 +43,7 @@ import Unique		( Unique, mkPrimOpIdUnique )
 import Outputable
 import FastTypes
 import FastString
+import Module		( PackageId )
 \end{code}
 
 %************************************************************************
@@ -517,9 +518,10 @@ pprPrimOp other_op = pprOccName (primOpOcc other_op)
 %************************************************************************
 
 \begin{code}
-newtype PrimCall = PrimCall CLabelString
+data PrimCall = PrimCall CLabelString PackageId
 
 instance Outputable PrimCall where
-  ppr (PrimCall lbl) = ppr lbl
+  ppr (PrimCall lbl pkgId) 
+  	= text "__primcall" <+> ppr pkgId <+> ppr lbl
 
 \end{code}