Commit 7ed8079c authored by sewardj's avatar sewardj

[project @ 2000-11-21 14:43:30 by sewardj]

Return the correct file name for .stub_[ch] files.
parent e663f7b8
......@@ -177,9 +177,9 @@ outputForeignStubs dflags c_code h_code
-- turn out to be empty, in which case no file should be created.
outputForeignStubs_help is_header "" = return Nothing
outputForeignStubs_help is_header doc_str
= newTempName suffix >>= \ fname ->
writeFile fname (include_prefix ++ doc_str) >>
return (Just suffix)
= do fname <- newTempName suffix
writeFile fname (include_prefix ++ doc_str)
return (Just fname)
where
suffix
| is_header = "h_stub"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment