From ac214984fd90d6b5ba39ad4beab5d11aa4c092cc Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Sun, 22 Feb 2015 16:17:32 -0400
Subject: accept longer prefix in case expression fixup

Eg, "Right r_a36iJ ->"
---
 Build/EvilSplicer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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"
-- 
cgit v1.2.3