From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 14 Jul 2008 15:34:11 +0000 (+0000)
Subject: FIX BUILD on Windows
X-Git-Tag: Before_cabalised-GHC~2
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=80fe09d777ec2d4cc8dc3d58bf57d0a0684e0bf6

FIX BUILD on Windows
---

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index 39cb9b5..37e9047 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -401,7 +401,7 @@ guessOutputFile s = modifySession s $ \env ->
         -- we must add the .exe extention unconditionally here, otherwise
         -- when name has an extension of its own, the .exe extension will
         -- not be added by DriverPipeline.exeFileName.  See #2248
-        name_exe = name <.> "exe"
+        name_exe = fmap (<.> "exe") name
 #else
         name_exe = name
 #endif