summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-02-22 16:17:32 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-02-22 16:17:32 -0400
commitac214984fd90d6b5ba39ad4beab5d11aa4c092cc (patch)
tree9d1270c79b25c8c9cd0aea6f46a46ea3ffaf3231
parent855848222eb3adb92e74544cdf0b79cf7d325f9c (diff)
accept longer prefix in case expression fixup
Eg, "Right r_a36iJ ->"
-rw-r--r--Build/EvilSplicer.hs2
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"