Fix #1839, Renaming for nested constructor binders
This commit changes the `everywhereOnValues` traversal in `CoreFn.Traversals`
to call the binder function `h` recursively on nested binders.
commite935aa37980493085fd6a7c1b197ff16849fcba4
authorsharkdp <davidpeter@web.de>
dateThu 21 Jan 2016, 08:43 (11 years ago)
parentebb7f8d
src/Language/PureScript/CoreFn/Traversals.hs+1
@@ -40,6 +40,7 @@ everywhereOnValues f g h = (f', g', h')
4040
4141 h' (LiteralBinder a b) = h (LiteralBinder a (handleLiteral h' b))
4242 h' (NamedBinder a name b) = h (NamedBinder a name (h' b))
43+ h' (ConstructorBinder a q1 q2 bs) = h (ConstructorBinder a q1 q2 (map h' bs))
4344 h' b = h b
4445
4546 handleCaseAlternative ca =