mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

accept longer prefix in case expression fixup

Browse source 
Eg, "Right r_a36iJ ->"
This commit is contained in:
Joey Hess 2015-02-22 16:17:32 -04:00
parent 530db25158
commit 367cde30da
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Build/EvilSplicer.hs
View file

@ -451,7 +451,7 @@ mangleCode = flip_colon
void newline void newline
indent1 <- many1 $ char ' ' indent1 <- many1 $ char ' '
prefix <- manyTill (noneOf "\n") (try (string "-> ")) prefix <- manyTill (noneOf "\n") (try (string "-> "))
if length prefix > 10 if length prefix > 20
then unexpected "too long a prefix" then unexpected "too long a prefix"
else if "\\ " `isInfixOf` prefix else if "\\ " `isInfixOf` prefix
then unexpected "lambda expression" then unexpected "lambda expression"