@@ -209,9 +209,9 @@ flatten variantDict pathPattern@(path, A.A ann pattern) =
209 [pathPattern]
209 [pathPattern]
211 P.Alias alias realPattern ->
211 P.Alias alias realPattern ->
212− [ (add path Alias, A.A ann (P.Var alias))
212+ (add path Alias, A.A ann (P.Var alias))
213− , (path, realPattern)
214+ flatten variantDict (path, realPattern)
216 P.Record _ ->
216 P.Record _ ->
217 [pathPattern]
217 [pathPattern]