add support for values

Language/SQL/SimpleSQL/Parser.lhs

@@ -599,7 +599,7 @@ and union, etc..
 > queryExpr :: P QueryExpr
 > queryExpr =
 >   choice [with
->          ,select >>= optionSuffix queryExprSuffix]
+>          ,choice [values,select] >>= optionSuffix queryExprSuffix]
 >   where
 >     select = try (keyword_ "select") >>
 >         Select
@@ -612,6 +612,8 @@ and union, etc..
 >         <*> option [] orderBy
 >         <*> optionMaybe limit
 >         <*> optionMaybe offset
+>     values = try (keyword_ "values")
+>              >> Values <$> commaSep (parens (commaSep scalarExpr))
 
 > queryExprSuffix :: QueryExpr -> P QueryExpr
 > queryExprSuffix qe =

Language/SQL/SimpleSQL/Pretty.lhs

@@ -177,6 +177,9 @@
 >             (vcat $ punctuate comma $ flip map withs $ \(n,q) ->
 >              name n <+> text "as" <+> parens (queryExpr q))
 >            ,queryExpr qe]
+> queryExpr (Values vs) =
+>     text "values"
+>     <+> nest 7 (commaSep (map (parens . commaSep . map scalarExpr) vs))
 
 > selectList :: [(Maybe Name, ScalarExpr)] -> Doc
 > selectList is = commaSep $ map si is

Language/SQL/SimpleSQL/Syntax.lhs

@@ -159,6 +159,8 @@
 >       ,qe2 :: QueryExpr
 >       }
 >     | With [(Name,QueryExpr)] QueryExpr
+>     | Values [[ScalarExpr]]
+
 >       deriving (Eq,Show,Read)
 
 TODO: add queryexpr parens to deal with e.g.