diff options
| -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 |