From 820d32a2bf999b3391a2c1c13363db5cc3bac307 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 16 May 2000 09:08:03 +0000
Subject: [PATCH] [project @ 2000-05-16 09:08:03 by simonmar] oops... better
 unbreak the driver

---
 ghc/driver/ghc.lprl |   16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index 6bd471b..7ec0015 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -1502,13 +1502,15 @@ Now the Haskell compiler, C compiler, and assembler
 	&run_something("cp $hsc_out_h_stub $ofile_h_stub_target", 'Copy foreign export header file');
     }
 
-    #
-    # Bring the C stub protos into scope when compiling the .hc file.
-    #
-    push (@CcInjects, "#include \"${hsc_out_h_stub}\"\n");
-    # Hack - ensure that the stub .h file is included in the OPTIONS section
-    #	 if the .hc file is saved.
-    push (@File_options, "-#include \"${ofile_h_stub_target}\"\n");
+    if (-f $hsc_out_c_stub) {
+	#
+	# Bring the C stub protos into scope when compiling the .hc file.
+	#
+	push (@CcInjects, "#include \"${hsc_out_h_stub}\"\n");
+	# Hack - ensure that the stub .h file is included in the OPTIONS section
+	#	 if the .hc file is saved.
+	push (@File_options, "-#include \"${ofile_h_stub_target}\"\n");
+    }
 
     if ($do_cc) {
 	&runGcc    ($is_hc_file, $hsc_out, $cc_as_o);
-- 
1.7.10.4