git.iko.soy/elk
on master help sign in
Fix nested pattern matching in let expressions.
2ee2372evancz
compiler/Parse/Patterns.hs+1−1
compare with master
unifiedsplit
@@ -90,7 +90,7 @@ matchSingle pat exp@(C t s _) p =
90 case p of
90 case p of
91 PData _ ps -> do x <- guid
91 PData _ ps -> do x <- guid
92 let v = '_' : show x
92 let v = '_' : show x
93− dss <- mapM (matchSingle p . ctx $ Var v) ps
93+ dss <- mapM (matchSingle pat . ctx $ Var v) ps
94 return (FnDef v [] exp : concat dss)
94 return (FnDef v [] exp : concat dss)
95
95
96 PVar x ->
96 PVar x ->