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

fix let_do parser

Browse source
This commit is contained in:
Joey Hess 2015-02-22 19:39:20 -04:00
parent 3d9be9c829
commit 900c50a305
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Build/EvilSplicer.hs
View file

@ -615,8 +615,8 @@ mangleCode = flip_colon
-} -}
let_do = parsecAndReplace $ do let_do = parsecAndReplace $ do
void $ string "= do { let " void $ string "= do { let "
x <- hstoken x <- many $ noneOf "=\r\n"
ws <- many $ oneOf " \t\r\n" ws <- many1 $ oneOf " \t\r\n"
void $ string "= " void $ string "= "
return $ "= do { " ++ x ++ " <- return $ " return $ "= do { " ++ x ++ " <- return $ "