+ -- Turn the list of headers requested in foreign import
+ -- declarations into a string suitable for emission into generated
+ -- C code...
+mkForeignHeaders headers
+ = unlines
+ . map (\fname -> "#include \"" ++ unpackFS fname ++ "\"")
+ . reverse
+ $ headers
+
+outputForeignStubs :: DynFlags -> ForeignStubs
+ -> IO (Bool, -- Header file created
+ Bool) -- C file created
+outputForeignStubs dflags NoStubs = return (False, False)
+outputForeignStubs dflags (ForeignStubs h_code c_code hdrs _)