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

fix broken EvilSplicer change

Browse source
This commit is contained in:
Joey Hess 2013-09-22 15:36:56 -04:00
parent ca0cd2dacc
commit 9aa4ec6ee0
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Build/EvilSplicer.hs
View file

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