opaleye-trans 0.4.1 → 0.4.2

raw patch · 3 files changed

+10/−3 lines, 3 filesdep +exceptionsPVP ok

version bump matches the API change (PVP)

Dependencies added: exceptions

API changes (from Hackage documentation)

+ Opaleye.Trans: instance Control.Monad.Catch.MonadCatch m => Control.Monad.Catch.MonadCatch (Opaleye.Trans.OpaleyeT m)

+ Opaleye.Trans: instance Control.Monad.Catch.MonadThrow m => Control.Monad.Catch.MonadThrow (Opaleye.Trans.OpaleyeT m)

+ Opaleye.Trans.Exception: instance Control.Monad.Catch.MonadCatch m => Control.Monad.Catch.MonadCatch (Opaleye.Trans.Exception.OpaleyeT e m)

+ Opaleye.Trans.Exception: instance Control.Monad.Catch.MonadThrow m => Control.Monad.Catch.MonadThrow (Opaleye.Trans.Exception.OpaleyeT e m)

opaleye-trans.cabal view

@@ -1,5 +1,5 @@ name:                opaleye-trans-version:             0.4.1+version:             0.4.2 synopsis:            A monad transformer for Opaleye description:         A monad transformer for Opaleye homepage:            https://github.com/WraithM/opaleye-trans@@ -33,6 +33,7 @@                , postgresql-simple   >= 0.4 && < 0.6                , product-profunctors >= 0.6 && < 0.9                , transformers        >= 0.3 && < 0.6+               , exceptions          >= 0.6 && < 0.9   executable opaleye-rosetree

src/Opaleye/Trans.hs view

@@ -44,6 +44,7 @@ import           Control.Monad.Reader            (MonadReader, ReaderT (..),                                                   ask) import           Control.Monad.Trans             (MonadTrans (..))+import           Control.Monad.Catch             (MonadCatch, MonadThrow)  import           Data.Maybe                      (listToMaybe) import           Data.Profunctor.Product.Default (Default)@@ -58,7 +59,9 @@  -- | The 'Opaleye' monad transformer newtype OpaleyeT m a = OpaleyeT { unOpaleyeT :: ReaderT Connection m a }-    deriving (Functor, Applicative, Monad, MonadTrans, MonadIO, MonadReader Connection)+    deriving ( Functor, Applicative, Monad, MonadTrans, MonadIO+             , MonadReader Connection, MonadCatch, MonadThrow+             )   -- | Given a 'Connection', run an 'OpaleyeT'

src/Opaleye/Trans/Exception.hs view

@@ -58,6 +58,7 @@ import           Control.Monad.IO.Class          (MonadIO, liftIO) import           Control.Monad.Reader            (MonadReader (..)) import           Control.Monad.Trans             (MonadTrans (..))+import           Control.Monad.Catch             (MonadCatch, MonadThrow)  import           Data.Profunctor.Product.Default (Default) @@ -72,7 +73,9 @@   newtype OpaleyeT e m a = OpaleyeT { unOpaleyeT :: ExceptT e (T.OpaleyeT m) a }-    deriving (Functor, Applicative, Monad, MonadIO, MonadReader Connection, MonadError e)+    deriving ( Functor, Applicative, Monad, MonadIO, MonadReader Connection+             , MonadError e, MonadCatch, MonadThrow+             )   instance MonadTrans (OpaleyeT e) where