Follow changes in Cabal

[ghc-hetmet.git] / compiler / main / CodeOutput.lhs

diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs
index fd67f21..d2d7c7f 100644 (file)
--- 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")