pipes-protolude-0.1.0.0: src/Pipes/Temporary.hs

module Pipes.Temporary where

import Prelude

import Pipes
import Pipes.Internal

import Control.Monad.Except

exceptP
    :: Monad m
    => Proxy a' a b' b m (Either e r)
    -> Proxy a' a b' b (ExceptT e m) r
exceptP p = do
    x <- unsafeHoist lift p
    lift $ ExceptT (return x)