Commit 172b8549 authored by Ben.Lippmeier@anu.edu.au's avatar Ben.Lippmeier@anu.edu.au
Browse files

Follow PackageTarget changes in pprCEntity

parent 3f6e3045
...@@ -942,6 +942,8 @@ instance Outputable ForeignImport where ...@@ -942,6 +942,8 @@ instance Outputable ForeignImport where
ptext (sLit "static") <+> pp_hdr <+> char '&' <> ppr lbl ptext (sLit "static") <+> pp_hdr <+> char '&' <> ppr lbl
pprCEntity (CFunction (StaticTarget lbl)) = pprCEntity (CFunction (StaticTarget lbl)) =
ptext (sLit "static") <+> pp_hdr <+> ppr lbl ptext (sLit "static") <+> pp_hdr <+> ppr lbl
pprCEntity (CFunction (PackageTarget lbl _)) =
ptext (sLit "static") <+> pp_hdr <+> ppr lbl
pprCEntity (CFunction (DynamicTarget)) = pprCEntity (CFunction (DynamicTarget)) =
ptext (sLit "dynamic") ptext (sLit "dynamic")
pprCEntity (CWrapper) = ptext (sLit "wrapper") pprCEntity (CWrapper) = ptext (sLit "wrapper")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment