From 5ac0fcd12ff7a2492aa6f8bef2b64d59caee0a52 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 22 Sep 2013 21:47:24 -0400 Subject: [PATCH] oops --- Build/EvilSplicer.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs index 442ac59522..f40d100331 100644 --- a/Build/EvilSplicer.hs +++ b/Build/EvilSplicer.hs @@ -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