@@ -238,15 +238,15 @@ relationAtomExprP = RelationAtomExpr <$> makeRelationP
238238
239239withMacroExprP :: RelationalMarkerExpr a => Parser (RelationalExprBase a)
240240withMacroExprP = do
241− reservedOp "WITH"
242− views <- parens (sepBy createViewP comma)
243− expr <-relExprP
241+ reservedOp "with"
242+ views <- parens (sepBy1 createViewP comma)
243+ expr <- relExprP
244244 pure $ With views expr
245245
246246createViewP :: RelationalMarkerExpr a => Parser (RelVarName, RelationalExprBase a)
247247createViewP = do
248248 name <- identifier
249− reservedOp "AS"
249+ reservedOp "as"
250250 expr <- relExprP
251251 pure $ (name, expr)
252252