Orphans.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}

module Data.Conduit.Katip.Orphans where

import Control.Monad.Trans
import Data.Conduit
import Katip

instance (Katip m) => Katip (ConduitT i o m) where
  getLogEnv = lift getLogEnv

  localLogEnv f = transPipe (localLogEnv f)

instance (KatipContext m) => KatipContext (ConduitT i o m) where
  getKatipContext = lift getKatipContext

  getKatipNamespace = lift getKatipNamespace

  localKatipContext f = transPipe (localKatipContext f)

  localKatipNamespace f = transPipe (localKatipNamespace f)