diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-06 12:55:32 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-06 12:55:32 -0400 |
| commit | 71edb7f715b1c5897a56a9d12ac82c7c6f8a781b (patch) | |
| tree | b1deba287255b732d75f5a9712299a4fd48f81a7 /Build/EvilLinker.hs | |
| parent | 56e7b06646e9cdfdad0ea10d72ee8069d984ce74 (diff) | |
mangle \ in paths (sheesh)
Diffstat (limited to 'Build/EvilLinker.hs')
| -rw-r--r-- | Build/EvilLinker.hs | 3 |
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 |