summaryrefslogtreecommitdiff
path: root/Build/EvilSplicer.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-09-22 15:36:56 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-09-22 15:36:56 -0400
commit9c564edaea56478ceca419f3a55ab457aacb5f12 (patch)
treede0ea5edaba54992ac31429130b69cfa81e62b3d /Build/EvilSplicer.hs
parent2b2c6d6ba6ac4ee447b374d2d45d139c5116f11a (diff)
fix broken EvilSplicer change
Diffstat (limited to 'Build/EvilSplicer.hs')
-rw-r--r--Build/EvilSplicer.hs7
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"