X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FhsSyn%2FHsDecls.lhs;fp=compiler%2FhsSyn%2FHsDecls.lhs;h=0312dcb197a790d383b12f91f90169af3273d3f8;hp=273cc98c540ee03f8243cc4f6050fb7771210c87;hb=172b85497dc0da68176fa90c993abd9bcdc6b96f;hpb=3f6e3045889112bf4cab2768c92095209f02fe6c

diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs
index 273cc98..0312dcb 100644
--- a/compiler/hsSyn/HsDecls.lhs
+++ b/compiler/hsSyn/HsDecls.lhs
@@ -942,6 +942,8 @@ instance Outputable ForeignImport where
         ptext (sLit "static") <+> pp_hdr <+> char '&' <> ppr lbl
       pprCEntity (CFunction (StaticTarget lbl)) = 
         ptext (sLit "static") <+> pp_hdr <+> ppr lbl
+      pprCEntity (CFunction (PackageTarget lbl _)) =
+        ptext (sLit "static") <+> pp_hdr <+> ppr lbl
       pprCEntity (CFunction (DynamicTarget)) =
         ptext (sLit "dynamic")
       pprCEntity (CWrapper) = ptext (sLit "wrapper")