import CmmLint ( cmmLint )
import Packages
import DriverState ( getExplicitPackagesAnd, getPackageCIncludes )
+import DriverUtil ( filenameOf )
import FastString ( unpackFS )
import Cmm ( Cmm )
import HscTypes
import Maybes ( firstJust )
import Directory ( doesFileExist )
-import Data.List ( intersperse )
import Monad ( when )
import IO
\end{code}
hPutStr h ("/* GHC_PACKAGES " ++ unwords pkg_names ++ "\n*/\n")
hPutStr h cc_injects
when stub_h_exists $
- hPutStrLn h ("#include \"" ++ (hscStubHOutName dflags) ++ "\"")
+ hPutStrLn h ("#include \"" ++ (filenameOf (hscStubHOutName dflags)) ++ "\"")
writeCs h flat_absC
\end{code}