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 " ->" lambdaarrow <- string " ->"
l2 <- restofline l2 <- restofline
return $ unlines return $ unlines
[ indent, staticr [ indent ++ staticr
, indent, yesod_dispatch_env , indent ++ yesod_dispatch_env
, indent, "(", lambdaprefix, l1 , indent ++ "(" ++ lambdaprefix ++ l1
, indent, lambdaarrow, l2, ")" , indent ++ lambdaarrow ++ l2 ++ ")"
] ]
restofline = manyTill (noneOf "\n") newline restofline = manyTill (noneOf "\n") newline