mangle \ in paths (sheesh)

This commit is contained in:
Joey Hess 2013-12-06 12:55:32 -04:00
parent 598dc56222
commit 6b30b66160

View file

@ -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