From: stolz <unknown>
Date: Sun, 25 May 2003 20:54:18 +0000 (+0000)
Subject: [project @ 2003-05-25 20:54:18 by stolz]
X-Git-Tag: Approx_11550_changesets_converted~862
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b301b6ecef42b3787c0b6bbf81ad3301c36331fc

[project @ 2003-05-25 20:54:18 by stolz]
Fix quoted source filenames on *nix

Noticed by: Calle Lejdfors
(please merge)
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 5d2c180..d99ce5d 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -860,11 +860,7 @@ getProcessID = Posix.getProcessID
 #endif
 
 quote :: String -> String
-#if defined(mingw32_HOST_OS)
 quote "" = ""
 quote s  = "\"" ++ s ++ "\""
-#else
-quote s = s
-#endif
 
 \end{code}