diff options
author | Joey Hess <joey@kitenet.net> | 2013-09-22 15:36:56 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-09-22 15:36:56 -0400 |
commit | 9c564edaea56478ceca419f3a55ab457aacb5f12 (patch) | |
tree | de0ea5edaba54992ac31429130b69cfa81e62b3d /Build | |
parent | 2b2c6d6ba6ac4ee447b374d2d45d139c5116f11a (diff) |
fix broken EvilSplicer change
Diffstat (limited to 'Build')
-rw-r--r-- | Build/EvilSplicer.hs | 7 |
1 files changed, 4 insertions, 3 deletions
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" |