summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Build/EvilLinker.hs3
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