import Module
import Maybes ( firstJust )
-import Distribution.Package ( showPackageId )
+import Distribution.Text
import Directory ( doesFileExist )
import Monad ( when )
import IO
_ -> "#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")