X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FstgSyn%2FCoreToStg.lhs;h=edda60300710a82d4de874124aa8740199820f42;hp=f49f092b64031e12b22501bcf161c898cf0cf95f;hb=6e9c0431a7cf2bf1a48f01db48c6a1d41fe15a09;hpb=172b85497dc0da68176fa90c993abd9bcdc6b96f

diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs
index f49f092..edda603 100644
--- a/compiler/stgSyn/CoreToStg.lhs
+++ b/compiler/stgSyn/CoreToStg.lhs
@@ -534,7 +534,7 @@ coreToStgApp _ f args = do
 				    StgOpApp (StgPrimOp op) args' res_ty
 
 		-- A call to some primitive Cmm function.
-		FCallId (CCall (CCallSpec (PackageTarget lbl (Just pkgId)) PrimCallConv _))
+		FCallId (CCall (CCallSpec (StaticTarget lbl (Just pkgId)) PrimCallConv _))
 		                 -> ASSERT( saturated )
 				    StgOpApp (StgPrimCallOp (PrimCall lbl pkgId)) args' res_ty