This repository was archived by the owner on Jun 15, 2023. It is now read-only.
File tree Expand file tree Collapse file tree 2 files changed +19
-6
lines changed Expand file tree Collapse file tree 2 files changed +19
-6
lines changed Original file line number Diff line number Diff line change @@ -717,17 +717,22 @@ stdJoinRelation
717
717
stdJoinRelation = PC .try do
718
718
joinType ←
719
719
(Sig.LeftJoin
720
- <$ keyword " left" )
720
+ <$ keyword " left"
721
+ <* (PC .optional $ keyword " outer" ))
721
722
<|>
722
723
(Sig.RightJoin
723
- <$ keyword " right" )
724
+ <$ keyword " right"
725
+ <* (PC .optional $ keyword " outer" ))
724
726
<|>
725
- (Sig.FullJoin
727
+ (PC .try $ Sig.FullJoin
726
728
<$ (PC .optional $ keyword " full" )
727
- <* (PC .optional $ keyword " outer" ))
728
- <|>
729
+ <* keyword " outer" )
730
+ <|>
731
+ (Sig.FullJoin
732
+ <$ keyword " full" )
733
+ <|>
729
734
(Sig.InnerJoin
730
- <$ keyword " inner" )
735
+ <$ ( PC .optional $ keyword " inner" ) )
731
736
_ ← keyword " join"
732
737
right ← simpleRelation
733
738
_ ← keyword " on"
Original file line number Diff line number Diff line change @@ -47,6 +47,14 @@ select 12
47
47
, E.Right """ select :where"""
48
48
, E.Right """ foo.`_id`"""
49
49
, E.Left """ foo._id"""
50
+ , E.Right """ select * from foo JOIN bar on baz"""
51
+ , E.Right """ select * from foo FULL JOIN bar on baz"""
52
+ , E.Right """ select * from foo FULL OUTER JOIN bar on baz"""
53
+ , E.Right """ select * from foo INNER JOIN bar on baz"""
54
+ , E.Right """ select * from foo LEFT OUTER JOIN bar on baz"""
55
+ , E.Right """ select * from foo LEFT JOIN bar on baz"""
56
+ , E.Right """ select * from foo RIGHT OUTER JOIN bar on baz"""
57
+ , E.Right """ select * from foo RIGHT JOIN bar on baz"""
50
58
]
51
59
52
60
testSuite ∷ ∀ e . TestSuite (testOutput ∷ Console.TESTOUTPUT | e )
You can’t perform that action at this time.
0 commit comments