From 532546a2ce903bf3eab918917e72b7ee8c20f2f2 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 22 Feb 2015 19:39:20 -0400 Subject: fix let_do parser --- Build/EvilSplicer.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs index 2b9084a52..111a61c6b 100644 --- a/Build/EvilSplicer.hs +++ b/Build/EvilSplicer.hs @@ -615,8 +615,8 @@ mangleCode = flip_colon -} let_do = parsecAndReplace $ do void $ string "= do { let " - x <- hstoken - ws <- many $ oneOf " \t\r\n" + x <- many $ noneOf "=\r\n" + ws <- many1 $ oneOf " \t\r\n" void $ string "= " return $ "= do { " ++ x ++ " <- return $ " -- cgit v1.2.3