unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-10-04 21:57:25 +03:00
Code Issues Projects Releases Wiki Activity

Fix parser tests

Browse Source
This commit is contained in:
Chris Penner 2024-01-15 15:32:24 -08:00
parent 9d2c57282f
commit c2ceca7c65
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
parser-typechecker/src/Unison/Syntax/TermParser.hs
View File

@ -257,8 +257,8 @@ parsePattern = label "pattern" root
char = (\c -> Pattern.Char (ann c) (L.payload c)) <$> character
parenthesizedOrTuplePattern :: P v m (Pattern Ann, [(Ann, v)])
parenthesizedOrTuplePattern = do
(spanAnn, (pat, pats)) <- tupleOrParenthesized parsePattern unit pair
pure (fmap (<> spanAnn) pat, pats)
(_spanAnn, (pat, pats)) <- tupleOrParenthesized parsePattern unit pair
pure (pat, pats)
unit ann = (Pattern.Constructor ann (ConstructorReference DD.unitRef 0) [], [])
pair (p1, v1) (p2, v2) =
( Pattern.Constructor (ann p1 <> ann p2) (ConstructorReference DD.pairRef 0) [p1, p2],