git.iko.soy/elk
on master help sign in
Fix parser for (:) in patterns. Had wrong associativity.
81d185eevancz
elm/src/Parse/Patterns.hs+1−1
compare with master
unifiedsplit
@@ -26,7 +26,7 @@ patternTerm :: Monad m => ParsecT [Char] u m Pattern
26patternTerm = patternTuple <|> patternList <|> patternBasic <?> "pattern"
26patternTerm = patternTuple <|> patternList <|> patternBasic <?> "pattern"
27
27
28patternExpr :: Monad m => ParsecT [Char] u m Pattern
28patternExpr :: Monad m => ParsecT [Char] u m Pattern
29−patternExpr = foldl1 pcons <$> consSep1 patternTerm <?> "pattern"
29+patternExpr = foldr1 pcons <$> consSep1 patternTerm <?> "pattern"
30
30
31
31
32makeLambda pats body = foldr Lambda (makeBody pats body) (map getName pats)
32makeLambda pats body = foldr Lambda (makeBody pats body) (map getName pats)