summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-12-06 12:55:32 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-12-06 12:55:32 -0400
commit71edb7f715b1c5897a56a9d12ac82c7c6f8a781b (patch)
treeb1deba287255b732d75f5a9712299a4fd48f81a7
parent56e7b06646e9cdfdad0ea10d72ee8069d984ce74 (diff)
mangle \ in paths (sheesh)
-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