From 7ed8079c3ba2498a02065105d40030f4f3be4217 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 21 Nov 2000 14:43:30 +0000
Subject: [PATCH] [project @ 2000-11-21 14:43:30 by sewardj] Return the
 correct file name for .stub_[ch] files.

---
 ghc/compiler/main/CodeOutput.lhs |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs
index 0d865b9..896e151 100644
--- a/ghc/compiler/main/CodeOutput.lhs
+++ b/ghc/compiler/main/CodeOutput.lhs
@@ -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"
-- 
1.7.10.4