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

improve lambdaparens hack

Browse source
This commit is contained in:
Joey Hess 2013-09-22 11:41:26 -04:00
parent 8806fa9a8f
commit cc71315c50
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Build/EvilSplicer.hs
View file

@ -332,6 +332,12 @@ mangleCode = flip_colon
preindent <- many1 $ oneOf " \n"
string "\\ "
lambdaparams <- restofline
continuedlambdaparams <- many $ do
indent <- many1 $ char ' '
p <- satisfy isLetter
aram <- many $ satisfy isAlphaNum <|> oneOf "_"
newline
return $ indent ++ p:aram
indent <- many1 $ char ' '
string "-> "
firstline <- restofline
@ -342,7 +348,7 @@ mangleCode = flip_colon
return $ indent ++ " " ++ l
return $ concat
[ prefix:preindent
, "(\\ " ++ lambdaparams ++ "\n"
, "(\\ " ++ lambdaparams ++ "\n" ++ intercalate "\n" continuedlambdaparams
, indent ++ "-> "
, lambdaparens $ intercalate "\n" (firstline:lambdalines)
, ")\n"