summaryrefslogtreecommitdiff
path: root/Build/EvilSplicer.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Build/EvilSplicer.hs')
-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 $ "