Cannot use query param for set role. Concat should be safe though
This commit is contained in:
+2
-2
@@ -23,7 +23,7 @@ import Data.Maybe (fromMaybe, mapMaybe)
|
|||||||
import Data.Monoid ((<>), mconcat)
|
import Data.Monoid ((<>), mconcat)
|
||||||
import qualified Data.Map as M
|
import qualified Data.Map as M
|
||||||
|
|
||||||
import Control.Monad (join, void)
|
import Control.Monad (join)
|
||||||
|
|
||||||
import qualified RangeQuery as R
|
import qualified RangeQuery as R
|
||||||
import qualified Data.ByteString.Char8 as BS
|
import qualified Data.ByteString.Char8 as BS
|
||||||
@@ -239,7 +239,7 @@ populateSql conn sql = do
|
|||||||
ph = intercalate ", " . map (const "?::varchar")
|
ph = intercalate ", " . map (const "?::varchar")
|
||||||
|
|
||||||
setRole :: Connection -> DbRole -> IO ()
|
setRole :: Connection -> DbRole -> IO ()
|
||||||
setRole conn role = void $ run conn "set role ?" [toSql role]
|
setRole conn role = runRaw conn $ "set role " <> cs role
|
||||||
|
|
||||||
resetRole :: Connection -> IO ()
|
resetRole :: Connection -> IO ()
|
||||||
resetRole conn = runRaw conn "reset role"
|
resetRole conn = runRaw conn "reset role"
|
||||||
|
|||||||
Reference in New Issue
Block a user