/(-u      !"#$%&'()*+,-./ 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ `abcdefghijklmnopqrstportable provisionalEdward Kmett <ekmett@gmail.com>portable provisionalEdward Kmett <ekmett@gmail.com>portable provisionalEdward Kmett <ekmett@gmail.com>     portable provisionalEdward Kmett <ekmett@gmail.com> u     portable provisionalEdward Kmett <ekmett@gmail.com> portable provisionalEdward Kmett <ekmett@gmail.com> vportable provisionalEdward Kmett <ekmett@gmail.com> wx !" !" "! !"portable provisionalEdward Kmett <ekmett@gmail.com>#$;Ideally we would offer a way to lift comonad homomorphisms  but this isn'4t Haskell 98, so we settle for the most common case  here. 8 liftTrans :: (forall a. w a -> v a) -> t w a -> t v a * cohoist = liftTrans (Identity . extract) #$#$#$$portable provisionalEdward Kmett <ekmett@gmail.com> %&'yz{()*+,-. %&'()*+,-. '()%&*.+,- %&&'()*+,-.portable provisionalEdward Kmett <ekmett@gmail.com> %&'()*+,-. portable provisionalEdward Kmett <ekmett@gmail.com> /01|}~234567 /01234567 123/04567 /001234567 portable provisionalEdward Kmett <ekmett@gmail.com> 89:;<=>?@A 89:;<=>?@A :;<89=>?@A 899:;<=>?@Aportable provisionalEdward Kmett <ekmett@gmail.com> 89:;<=>?@A portable provisionalEdward Kmett <ekmett@gmail.com> BCDEFGHIJK BCDEFGHIJK DEFBCGHIJK BCCDEFGHIJK portable provisionalEdward Kmett <ekmett@gmail.com> LMNOPQRSTU LMNOPQRSTU MNOLQPRSTU LMNOPQRSTU portable provisionalEdward Kmett <ekmett@gmail.com> VWXYZ[\]^_ VWXYZ[\]^_ YZ[VWX\]^_ VWXWXYZ[\]^_portable provisionalEdward Kmett <ekmett@gmail.com> `abcdefghi `abcdefghi abc`edfghi `abcdefghiportable provisionalEdward Kmett <ekmett@gmail.com>jEThe f-branching stream comonad transformer is a comonadic version of  the "ListT done Right"> monad transformer. You can extract the underlying comonadic  value by using   or runStream klmnoIsomorphic to the definition: ' data Stream f a = a :< f (Stream f a) p cons onto an f-branching stream q"uncons from an f-branching stream runfold a stream from a seed. st jklmnopqrst opqrjklstmn jklklmnnopqrst !"#$ !"$# %!"#$&'(()*+,-./0 ( ( ) * + , - . / 1 1 2 3 4 5 6 7 8 9 1 1 2 3 4 5 6 7 8 9 1 2 3 4 5 : 6 7 8 9 ; ; < = > ? @ A B C;=>?<D@ABCEEFGHIJKLMNOOOPQR P Q R S S 1 S T;TUVWXYZ[\]^_comonad-transformers-1.3.0Control.Comonad.Trans.IdentityData.Functor.CoproductControl.Comonad.Trans.Class"Control.Comonad.Trans.Discont.Lazy$Control.Comonad.Trans.Discont.Strict"Control.Comonad.Trans.Discont.MemoControl.Comonad.Hoist.ClassControl.Comonad.Trans.Env.Lazy Control.Comonad.Trans.Env.Strict Control.Comonad.Trans.Store.Lazy"Control.Comonad.Trans.Store.Strict Control.Comonad.Trans.Store.MemoControl.Comonad.Trans.Traced!Control.Comonad.Trans.Traced.MemoControl.Comonad.Trans.StreamControl.Comonad.Trans.DiscontControl.Comonad.Trans.EnvControl.Comonad.Trans.Storetransformers-0.2.2.0Control.Monad.Trans.Identity runIdentityT IdentityT Coproduct getCoproductleftright coproduct ComonadTranslowerDiscontTDiscontdiscont runDiscont runDiscontTlabelcallCVdiscontT ComonadHoistcohoistEnvTEnvenvrunEnvrunEnvTaskaskslocal lowerEnvTStoreTStorestorerunStore runStoreTgetputmodify experimentstoreTTracedT runTracedTTracedtraced runTracedtracelistenlistenscensortracedTStreamT runStreamTNode:<Streamstream runStreamunfoldstailsunfoldsW discontTTyCon envTTyCon envTConstr envTDataType storeTTyCon tracedTTyConfstNsndNtypeFtypeW nodeTyCon streamTTyCon streamTConstrstreamTDataType nodeConstr nodeDataType