@@ -76,7 +76,7 @@ data Severity
7676 | CriticalS -- ^ Severe situations
7777 | AlertS -- ^ Take immediate action
7878 | EmergencyS -- ^ System is unusable
79− deriving (Eq, Ord, Show, Read, Generic)
79+ deriving (Eq, Ord, Show, Read, Generic, Enum, Bounded)
8080
8181
8282-------------------------------------------------------------------------------
@@ -324,7 +324,7 @@ instance (Katip m, Monoid s) => Katip (WriterT s m) where
324324-- | A concrete monad you can use to run logging actions.
325325newtype KatipT m a = KatipT { unKatipT :: ReaderT LogEnv m a }
326326 deriving ( Functor, Applicative, Monad, MonadIO
327− , MonadMask, MonadCatch, MonadThrow )
327+ , MonadMask, MonadCatch, MonadThrow, MonadTrans )
328328
329329
330330instance MonadIO m => Katip (KatipT m) where