X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FCodeOutput.lhs;fp=ghc%2Fcompiler%2Fmain%2FCodeOutput.lhs;h=723227f030558884f4f3705bcec684b961cf671b;hb=50159f6c4a3560662e37c55e64af1fb0b685011e;hp=704a908d08630374613d62c6e8bf46ad4966b4a4;hpb=cbe4c3a7cc2b1e627b308aff520a9f354f7a730b;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs
index 704a908..723227f 100644
--- a/ghc/compiler/main/CodeOutput.lhs
+++ b/ghc/compiler/main/CodeOutput.lhs
@@ -152,7 +152,7 @@ outputC dflags filenm flat_absC
 	  hPutStr h cc_injects
 	  when stub_h_exists $ 
 	     hPutStrLn h ("#include \"" ++ (filenameOf (hscStubHOutName dflags)) ++ "\"")
-	  writeCs h flat_absC
+	  writeCs dflags h flat_absC
 \end{code}