Bugfix for issue Bug: Brackets required in generated select statement. #57

Language/SQL/SimpleSQL/Pretty.hs

@@ -406,6 +406,7 @@ queryExpr d (Values vs) =
     pretty "values"
     <+> nest 7 (commaSep (map (parens . commaSep . map (scalarExpr d)) vs))
 queryExpr _ (Table t) = pretty "table" <+> names t
+queryExpr d (QueryExprParens qe) = parens (queryExpr d qe)
 queryExpr d (QEComment cmt v) =
     vsep $ map comment cmt <> [queryExpr d v]
 

Language/SQL/SimpleSQL/Syntax.hs

@@ -373,6 +373,7 @@ This would make some things a bit cleaner?
       ,qeQueryExpression :: QueryExpr}
     | Values [[ScalarExpr]]
     | Table [Name]
+    | QueryExprParens QueryExpr
     | QEComment [Comment] QueryExpr
       deriving (Eq,Show,Read,Data,Typeable)