X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FCodeOutput.lhs;h=d2d7c7f16d314ac353391ff0cd2f51ea4ec695c3;hp=fd67f2173a436bdaa2d644f2251d1797a1e8ae72;hb=e25d5095e6fd47e0a02404d9532c2f776d3f8a32;hpb=abfbfafac4f4713d106a214be1c5237b61b7c5e2

diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs
index fd67f21..d2d7c7f 100644
--- a/compiler/main/CodeOutput.lhs
+++ b/compiler/main/CodeOutput.lhs
@@ -33,7 +33,7 @@ import Outputable
 import Module
 import Maybes		( firstJust )
 
-import Distribution.Package	( showPackageId )
+import Distribution.Text
 import Directory	( doesFileExist )
 import Monad		( when )
 import IO
@@ -127,7 +127,7 @@ outputC dflags filenm flat_absC packages
        	       _          -> "#include \""++h_file++"\""
 
        pkg_configs <- getPreloadPackagesAnd dflags packages
-       let pkg_names = map (showPackageId.package) pkg_configs
+       let pkg_names = map (display.package) pkg_configs
 
        doOutput filenm $ \ h -> do
 	  hPutStr h ("/* GHC_PACKAGES " ++ unwords pkg_names ++ "\n*/\n")