summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-02-22 19:39:20 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-02-22 19:39:20 -0400
commit532546a2ce903bf3eab918917e72b7ee8c20f2f2 (patch)
treedc2e771b87e8d0d9829d986fb776785dab495838
parent36660338cab71730a24688cff4823da6abfd7a5e (diff)
fix let_do parser
-rw-r--r--Build/EvilSplicer.hs4
1 files 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 $ "