Fix parser for (:) in patterns. Had wrong associativity.
commit81d185e3c5ffb191bed463cac4bdea93d6fe599e
authorevancz <info@elm-lang.org>
dateSat 25 Aug 2012, 16:13 (14 years ago)
parent534dc73
elm/src/Parse/Patterns.hs+1−1
@@ -26,7 +26,7 @@ patternTerm :: Monad m => ParsecT [Char] u m Pattern
2626patternTerm = patternTuple <|> patternList <|> patternBasic <?> "pattern"
2727
2828patternExpr :: Monad m => ParsecT [Char] u m Pattern
29−patternExpr = foldl1 pcons <$> consSep1 patternTerm <?> "pattern"
29+patternExpr = foldr1 pcons <$> consSep1 patternTerm <?> "pattern"
3030
3131
3232makeLambda pats body = foldr Lambda (makeBody pats body) (map getName pats)