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

diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs
index 0312dcb..607b319 100644
--- a/compiler/hsSyn/HsDecls.lhs
+++ b/compiler/hsSyn/HsDecls.lhs
@@ -940,9 +940,7 @@ instance Outputable ForeignImport where
 
       pprCEntity (CLabel lbl) = 
         ptext (sLit "static") <+> pp_hdr <+> char '&' <> ppr lbl
-      pprCEntity (CFunction (StaticTarget lbl)) = 
-        ptext (sLit "static") <+> pp_hdr <+> ppr lbl
-      pprCEntity (CFunction (PackageTarget lbl _)) =
+      pprCEntity (CFunction (StaticTarget lbl _)) = 
         ptext (sLit "static") <+> pp_hdr <+> ppr lbl
       pprCEntity (CFunction (DynamicTarget)) =
         ptext (sLit "dynamic")