From 71edb7f715b1c5897a56a9d12ac82c7c6f8a781b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 6 Dec 2013 12:55:32 -0400 Subject: mangle \ in paths (sheesh) --- Build/EvilLinker.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3