pipes-errors-0.3: Pipes/Lift/Error/Instances.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}
module Pipes.Lift.Error.Instances where

import Pipes (MFunctor, hoist)
import Control.Error (ExceptRT(ExceptRT, runExceptRT))

instance MFunctor (ExceptRT r) where
    hoist nat m = ExceptRT (hoist nat (runExceptRT m))