mangle \ in paths (sheesh)

1 files changed, 2 insertions, 1 deletions

diff --git a/Build/EvilLinker.hs b/Build/EvilLinker.hs
index 2e6482374..b5944bfd8 100644
--- a/Build/EvilLinker.hs
+++ b/Build/EvilLinker.hs
@@ -33,7 +33,7 @@ parseGhcLink = do
 	gcccmd <- many1 (noneOf "\"")
 	string "\" "
 	gccparams <- restOfLine
-	return $ CmdParams gcccmd gccparams
+	return $ CmdParams gcccmd (manglepaths gccparams)
   where
 	linkheaderline = do
 		string "*** Linker"
@@ -41,6 +41,7 @@ parseGhcLink = do
 	prelinklines = do
 		notFollowedBy linkheaderline
 		restOfLine
+	manglepaths = replace "\\" "/"
 
 {- Find where gcc calls collect1. -}
 parseGccLink :: Parser CmdParams