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

rename pgSetRole, pgResetRole to setRole, resetRole

Browse Source
This commit is contained in:
Adam C. Baker
2014-10-13 16:46:33 -07:00
parent 2028500da7
commit f7c825f646
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/PgQuery.hs
+6 -6
View File
@@ -8,8 +8,8 @@ module PgQuery (
, upsert , upsert
, addUser , addUser
, signInRole , signInRole
, pgSetRole , setRole
, pgResetRole , resetRole
, checkPass , checkPass
, RangedResult(..) , RangedResult(..)
, LoginAttempt(..) , LoginAttempt(..)
@@ -203,10 +203,10 @@ populateSql conn sql = do
ph :: [a] -> String ph :: [a] -> String
ph = intercalate ", " . map (const "?::varchar") ph = intercalate ", " . map (const "?::varchar")
pgSetRole :: Connection -> DbRole -> IO () setRole :: Connection -> DbRole -> IO ()
pgSetRole conn role = do setRole conn role = do
query <- populateSql conn ("set role %I", [toSql role]) query <- populateSql conn ("set role %I", [toSql role])
void $ run conn query [] void $ run conn query []
pgResetRole :: Connection -> IO () resetRole :: Connection -> IO ()
pgResetRole conn = void $ run conn "reset role" [] resetRole conn = void $ run conn "reset role" []