jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

selective exports hides implementation details.

Browse Source
This commit is contained in:
Adam C. Baker
2014-09-26 13:25:32 -07:00
parent a93065a887
commit 29b70ca035
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/PgQuery.hs
+9 -4
View File
@@ -2,7 +2,12 @@
-- {{{ Imports -- {{{ Imports
module PgQuery where module PgQuery (
getRows,
insert,
upsert,
RangedResult(..),
) where
import Data.Text (Text, pack) import Data.Text (Text, pack)
import Data.Functor ( (<$>) ) import Data.Functor ( (<$>) )
@@ -100,9 +105,9 @@ selectStarClause :: Schema -> String -> QuotedSql
selectStarClause schema table = selectStarClause schema table =
(" select * from %I.%I ", map toSql [schema, table]) (" select * from %I.%I ", map toSql [schema, table])
selectCountClause :: Schema -> String -> QuotedSql -- selectCountClause :: Schema -> String -> QuotedSql
selectCountClause schema table = -- selectCountClause schema table =
(" select count(1) from %I.%I ", map toSql [schema, table]) -- (" select count(1) from %I.%I ", map toSql [schema, table])
jsonArrayRows :: QuotedSql -> QuotedSql jsonArrayRows :: QuotedSql -> QuotedSql
jsonArrayRows q = jsonArrayRows q =