thunderstrike/purescript-postgresql-client
thunderstrike/purescript-postgresql-client
2
0
Fork 0
generated from tpl/purs
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Hoist to correct monad in PG.hoist*

Browse Source
This commit is contained in:
Tomasz Rybarczyk 2018-12-22 19:52:37 +01:00
parent df492b108d
commit 600c643738
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Database/PostgreSQL/PG.purs
View File

@ -42,14 +42,14 @@ type Database = String
-- | PGError a)`.
type PG a = ExceptT PGError Aff a
hoistWith :: forall e m. MonadAff m => MonadError e m => (PGError -> e) -> PG ~> ExceptT e m
hoistWith :: forall e m. MonadAff m => MonadError e m => (PGError -> e) -> PG ~> m
hoistWith f m = do
result <- liftAff $ runExceptT m
case result of
Right a -> pure a
Left pgError -> throwError (f pgError)
hoist :: forall m. MonadAff m => MonadError PGError m => PG ~> ExceptT PGError m
hoist :: forall m. MonadAff m => MonadError PGError m => PG ~> m
hoist = hoistWith identity
-- | Run an action with a connection. The connection is released to the pool