generated from tpl/purs
Let newPool
run in Effect
monad
This commit is contained in:
parent
b6f3e11a5d
commit
111790af84
@ -91,9 +91,9 @@ newtype Query i o = Query String
|
|||||||
derive instance newtypeQuery :: Newtype (Query i o) _
|
derive instance newtypeQuery :: Newtype (Query i o) _
|
||||||
|
|
||||||
-- | Create a new connection pool.
|
-- | Create a new connection pool.
|
||||||
newPool :: PoolConfiguration -> Aff Pool
|
newPool :: PoolConfiguration -> Effect Pool
|
||||||
newPool cfg =
|
newPool cfg =
|
||||||
liftEffect <<< ffiNewPool $ cfg'
|
ffiNewPool $ cfg'
|
||||||
where
|
where
|
||||||
cfg' =
|
cfg' =
|
||||||
{ user: toNullable cfg.user
|
{ user: toNullable cfg.user
|
||||||
|
Loading…
Reference in New Issue
Block a user