From 9c564edaea56478ceca419f3a55ab457aacb5f12 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 22 Sep 2013 15:36:56 -0400 Subject: fix broken EvilSplicer change --- Build/EvilSplicer.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Build') diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs index 7476e1a0a..11ab7612b 100644 --- a/Build/EvilSplicer.hs +++ b/Build/EvilSplicer.hs @@ -332,12 +332,12 @@ mangleCode = flip_colon preindent <- many1 $ oneOf " \n" string "\\ " lambdaparams <- restofline - continuedlambdaparams <- many $ do + continuedlambdaparams <- many $ try $ do indent <- many1 $ char ' ' p <- satisfy isLetter aram <- many $ satisfy isAlphaNum <|> oneOf "_" newline - return $ indent ++ p:aram + return $ indent ++ p:aram ++ "\n" indent <- many1 $ char ' ' string "-> " firstline <- restofline @@ -348,7 +348,8 @@ mangleCode = flip_colon return $ indent ++ " " ++ l return $ concat [ prefix:preindent - , "(\\ " ++ lambdaparams ++ "\n" ++ intercalate "\n" continuedlambdaparams + , "(\\ " ++ lambdaparams ++ "\n" + , concat continuedlambdaparams , indent ++ "-> " , lambdaparens $ intercalate "\n" (firstline:lambdalines) , ")\n" -- cgit v1.2.3