diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-02-22 16:17:32 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-02-22 16:17:32 -0400 |
| commit | ac214984fd90d6b5ba39ad4beab5d11aa4c092cc (patch) | |
| tree | 9d1270c79b25c8c9cd0aea6f46a46ea3ffaf3231 /Build/EvilSplicer.hs | |
| parent | 855848222eb3adb92e74544cdf0b79cf7d325f9c (diff) | |
accept longer prefix in case expression fixup
Eg, "Right r_a36iJ ->"
Diffstat (limited to 'Build/EvilSplicer.hs')
| -rw-r--r-- | Build/EvilSplicer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs index 29ef41a61..e25608a3b 100644 --- a/Build/EvilSplicer.hs +++ b/Build/EvilSplicer.hs @@ -451,7 +451,7 @@ mangleCode = flip_colon void newline indent1 <- many1 $ char ' ' prefix <- manyTill (noneOf "\n") (try (string "-> ")) - if length prefix > 10 + if length prefix > 20 then unexpected "too long a prefix" else if "\\ " `isInfixOf` prefix then unexpected "lambda expression" |