@@ -34,6 +34,8 @@ import Rel8.Table.Name ( namesFromLabels )
34import Rel8.Table.Recontextualize ( Selects )
34import Rel8.Table.Recontextualize ( Selects )
37+-- | Convert a query to a 'String' containing the query as a @SELECT@
37showQuery :: Table DB a => Query a -> String
39showQuery :: Table DB a => Query a -> String
38showQuery = fold . sqlForQuery
40showQuery = fold . sqlForQuery