summaryrefslogtreecommitdiff
path: root/Build/EvilSplicer.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-04-15 14:50:05 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-04-15 14:50:05 -0400
commitd54b92c952a5b6675c7426979a13d15c39d71a0e (patch)
treed7355a0d77ff3e4ef38ad9d00ea5c80df3b2ff56 /Build/EvilSplicer.hs
parent3147f7b6c104d3c6eac36d3ee8129ec7c723bc81 (diff)
fix 2 splicing bugs
Diffstat (limited to 'Build/EvilSplicer.hs')
-rw-r--r--Build/EvilSplicer.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs
index 22113226a..d70c0a220 100644
--- a/Build/EvilSplicer.hs
+++ b/Build/EvilSplicer.hs
@@ -268,6 +268,10 @@ expandExpressionSplice s lls = concat [before, spliced:padding, end]
-- function definition needs no preparation
-- ie: foo = $(splice)
| "=" `isSuffixOf` s' = s
+ -- nor does lambda definition
+ | "->" `isSuffixOf` s' = s
+ -- nor does a let .. in declaration
+ | "in" `isSuffixOf` s' = s
-- already have a $ to set off the splice
-- ie: foo $ $(splice)
| "$" `isSuffixOf` s' = s