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

Fix coding style

Browse Source
This commit is contained in:
Tomasz Rybarczyk 2018-12-16 18:58:02 +01:00
parent 280320b553
commit a04090da0b
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,6 +5,7 @@ module Database.PostgreSQL.PG
, PG
, command
, execute
, hoistPG
, query
, onIntegrityError
, scalar
@ -40,11 +41,11 @@ type Database = String
-- | PGError a)`.
type PG a = ExceptT PGError Aff a
hoistPG ∷ ∀ m. MonadAff m ⇒ PG ~> ExceptT PGError m
hoistPG :: forall m. MonadAff m => PG ~> ExceptT PGError m
hoistPG m = ExceptT $ liftAff $
runExceptT m >>= case _ of
Right a → pure (Right a)
Left pgError → pure (Left pgError)
Right a -> pure (Right a)
Left pgError -> pure (Left pgError)
-- | Run an action with a connection. The connection is released to the pool
-- | when the action returns.