Fix #1115, handle nested aliases in patterns
Though I hope folks don’t write code like this…
commit8e15f96ebfb35dd7df5ba15eac0394735dbdd7d6
authorEvan Czaplicki <info@elm-lang.org>
dateFri 23 Oct 2015, 02:27 (11 years ago)
parent769faec
src/Optimize/DecisionTree.hs+3−3
@@ -209,9 +209,9 @@ flatten variantDict pathPattern@(path, A.A ann pattern) =
209209 [pathPattern]
210210
211211 P.Alias alias realPattern ->
212− [ (add path Alias, A.A ann (P.Var alias))
213− , (path, realPattern)
214− ]
212+ (add path Alias, A.A ann (P.Var alias))
213+ :
214+ flatten variantDict (path, realPattern)
215215
216216 P.Record _ ->
217217 [pathPattern]