diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-15 14:50:05 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-15 14:50:05 -0400 |
| commit | d54b92c952a5b6675c7426979a13d15c39d71a0e (patch) | |
| tree | d7355a0d77ff3e4ef38ad9d00ea5c80df3b2ff56 /Build/EvilSplicer.hs | |
| parent | 3147f7b6c104d3c6eac36d3ee8129ec7c723bc81 (diff) | |
fix 2 splicing bugs
Diffstat (limited to 'Build/EvilSplicer.hs')
| -rw-r--r-- | Build/EvilSplicer.hs | 4 |
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 |