From 81c59c75ebe2ea832479c0f423c6ca234844a3fb Mon Sep 17 00:00:00 2001
From: mthomas <unknown>
Date: Thu, 16 Sep 2004 01:39:24 +0000
Subject: [PATCH] [project @ 2004-09-16 01:39:24 by mthomas] On Windows
 default to main.exe instead of a.out.

---
 ghc/compiler/main/DriverPipeline.hs |    4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 0673abb..0116aee 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -994,7 +994,11 @@ staticLink o_files dep_packages = do
     -- dependencies, and eliminating duplicates.
 
     o_file <- readIORef v_Output_file
+#if defined(mingw32_HOST_OS)
+    let output_fn = case o_file of { Just s -> s; Nothing -> "main.exe"; }
+#else
     let output_fn = case o_file of { Just s -> s; Nothing -> "a.out"; }
+#endif
 
     pkg_lib_paths <- getPackageLibraryPath dep_packages
     let pkg_lib_path_opts = map ("-L"++) pkg_lib_paths
-- 
1.7.10.4