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