module Data.MediaBus.Conduit.TypeAnnotations
( annotateTypeC
, annotateTypeCIn
, annotateTypeCOut
, annotateTypeSource
, annotateTypeSink
) where
import Conduit
annotateTypeC :: proxy a -> Conduit a m a -> Conduit a m a
annotateTypeC _ = id
annotateTypeCIn :: proxy a -> Conduit a m b -> Conduit a m b
annotateTypeCIn _ = id
annotateTypeCOut :: proxy b -> Conduit a m b -> Conduit a m b
annotateTypeCOut _ = id
annotateTypeSource :: proxy a -> Source m a -> Source m a
annotateTypeSource _ = id
annotateTypeSink :: proxy a -> Sink a m r -> Sink a m r
annotateTypeSink _ = id