diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-09-22 21:47:24 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-09-22 21:47:24 -0400 |
| commit | 7fbabbed47c2428547b303e96d68e30d6026f257 (patch) | |
| tree | 07daf001da0d53f066fa26c4333e946a6f8320db /Build/EvilSplicer.hs | |
| parent | 4b6b1f693ad4215f755ec1f63ed8d4baccc8964f (diff) | |
oops
Diffstat (limited to 'Build/EvilSplicer.hs')
| -rw-r--r-- | Build/EvilSplicer.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs index 442ac5952..f40d10033 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 |