Fix nested pattern matching in let expressions.
commit2ee23724f9adeb94295a22e4d1f89b783ba4cdaa
authorevancz <info@elm-lang.org>
dateFri 29 Mar 2013, 19:26 (14 years ago)
parent9c8dfd9
compiler/Parse/Patterns.hs+1−1
@@ -90,7 +90,7 @@ matchSingle pat exp@(C t s _) p =
9090 case p of
9191 PData _ ps -> do x <- guid
9292 let v = '_' : show x
93− dss <- mapM (matchSingle p . ctx $ Var v) ps
93+ dss <- mapM (matchSingle pat . ctx $ Var v) ps
9494 return (FnDef v [] exp : concat dss)
9595
9696 PVar x ->