Fix inner join parsing (#26)

* Fix inner join parsing

* More join fixes

Author: natefaubion

src/SqlSquared/Parser.purs

@@ -717,17 +717,22 @@ stdJoinRelation
 stdJoinRelation = PC.try do
   joinType ←
     (Sig.LeftJoin
-     <$ keyword "left")
+     <$ keyword "left"
+     <* (PC.optional $ keyword "outer"))
      <|>
     (Sig.RightJoin
-     <$ keyword "right")
+     <$ keyword "right"
+     <* (PC.optional $ keyword "outer"))
      <|>
-    (Sig.FullJoin
+    (PC.try $ Sig.FullJoin
      <$ (PC.optional $ keyword "full")
-     <* (PC.optional $ keyword "outer"))
-    <|>
+     <* keyword "outer")
+     <|>
+    (Sig.FullJoin
+     <$ keyword "full")
+     <|>
     (Sig.InnerJoin
-     <$ keyword "inner")
+     <$ (PC.optional $ keyword "inner"))
   _ ← keyword "join"
   right ← simpleRelation
   _ ← keyword "on"

test/src/Parse.purs

@@ -47,6 +47,14 @@ select 12
   , E.Right """select :where"""
   , E.Right """foo.`_id`"""
   , E.Left  """foo._id"""
+  , E.Right """select * from foo JOIN bar on baz"""
+  , E.Right """select * from foo FULL JOIN bar on baz"""
+  , E.Right """select * from foo FULL OUTER JOIN bar on baz"""
+  , E.Right """select * from foo INNER JOIN bar on baz"""
+  , E.Right """select * from foo LEFT OUTER JOIN bar on baz"""
+  , E.Right """select * from foo LEFT JOIN bar on baz"""
+  , E.Right """select * from foo RIGHT OUTER JOIN bar on baz"""
+  , E.Right """select * from foo RIGHT JOIN bar on baz"""
   ]
 
 testSuite ∷ ∀ e. TestSuite (testOutput ∷ Console.TESTOUTPUT | e)