diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-02-22 19:39:20 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-02-22 19:39:20 -0400 |
| commit | 532546a2ce903bf3eab918917e72b7ee8c20f2f2 (patch) | |
| tree | dc2e771b87e8d0d9829d986fb776785dab495838 /Build/EvilSplicer.hs | |
| parent | 36660338cab71730a24688cff4823da6abfd7a5e (diff) | |
fix let_do parser
Diffstat (limited to 'Build/EvilSplicer.hs')
| -rw-r--r-- | Build/EvilSplicer.hs | 4 |
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 $ " |