This commit is contained in:
Joey Hess 2013-09-22 21:47:24 -04:00
parent 929aa1452d
commit 5ac0fcd12f

View file

@ -385,10 +385,10 @@ mangleCode = flip_colon
lambdaarrow <- string " ->"
l2 <- restofline
return $ unlines
[ indent, staticr
, indent, yesod_dispatch_env
, indent, "(", lambdaprefix, l1
, indent, lambdaarrow, l2, ")"
[ indent ++ staticr
, indent ++ yesod_dispatch_env
, indent ++ "(" ++ lambdaprefix ++ l1
, indent ++ lambdaarrow ++ l2 ++ ")"
]
restofline = manyTill (noneOf "\n") newline