mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions 1

mangle \ in paths (sheesh)

Browse source
This commit is contained in:
Joey Hess 2013-12-06 12:55:32 -04:00
parent 598dc56222
commit 6b30b66160
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Build/EvilLinker.hs
View file

@ -33,7 +33,7 @@ parseGhcLink = do
gcccmd <- many1 (noneOf "\"") gcccmd <- many1 (noneOf "\"")
string "\" " string "\" "
gccparams <- restOfLine gccparams <- restOfLine
return $ CmdParams gcccmd gccparams return $ CmdParams gcccmd (manglepaths gccparams)
where where
linkheaderline = do linkheaderline = do
string "*** Linker" string "*** Linker"
@ -41,6 +41,7 @@ parseGhcLink = do
prelinklines = do prelinklines = do
notFollowedBy linkheaderline notFollowedBy linkheaderline
restOfLine restOfLine
manglepaths = replace "\\" "/"
{- Find where gcc calls collect1. -} {- Find where gcc calls collect1. -}
parseGccLink :: Parser CmdParams parseGccLink :: Parser CmdParams