starlitcanopy/simple-sql-parser
1
Fork 0
Code Activity

parse a join b without inner

Browse source
This commit is contained in:
Jake Wheat 2013-12-17 12:27:00 +02:00
parent 9461a11c97
commit adfeac8d16
3 changed files with 16 additions and 11 deletions
Language/SQL/SimpleSQL
Parser.lhs

18
Language/SQL/SimpleSQL/Parser.lhs
View file

@ -518,14 +518,16 @@ tref
> <*> nonJoinTref
> <*> optionMaybe (joinCondition nat))
> >>= optionSuffix joinTrefSuffix
> joinType = choice
> [JCross <$ try (keyword_ "cross")
> ,JInner <$ try (keyword_ "inner")
> ,choice [JLeft <$ try (keyword_ "left")
> ,JRight <$ try (keyword_ "right")
> ,JFull <$ try (keyword_ "full")]
> <* optional (try $ keyword_ "outer")]
> <* keyword "join"
> joinType =
> choice [choice
> [JCross <$ try (keyword_ "cross")
> ,JInner <$ try (keyword_ "inner")
> ,choice [JLeft <$ try (keyword_ "left")
> ,JRight <$ try (keyword_ "right")
> ,JFull <$ try (keyword_ "full")]
> <* optional (try $ keyword_ "outer")]
> <* keyword "join"
> ,JInner <$ keyword_ "join"]
> joinCondition nat =
> choice [guard nat >> return JoinNatural
> ,try (keyword_ "on") >>