import Outputable
import FastTypes
import FastString
+import Module ( PackageId )
\end{code}
%************************************************************************
%************************************************************************
\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}