úÎ6Œ0+l      !" # $ % & ' ( ) * + , - . / 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 XYZ[\]^_`abcdefghijk~We often need to distinguish between various forms of Functor-like composition in Haskell in order to please the type system. 9 This lets us work with these representations uniformly. portable provisionalEdward Kmett <ekmett@gmail.com>    portable provisionalEdward Kmett <ekmett@gmail.com>portable provisionalEdward Kmett <ekmett@gmail.com>     portable provisionalEdward Kmett <ekmett@gmail.com>lportable provisionalEdward Kmett <ekmett@gmail.com>portable provisionalEdward Kmett <ekmett@gmail.com>mportable provisionalEdward Kmett <ekmett@gmail.com>noportable 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> "#$pqr%&'()*+ "#$%&'()*+ $%&"#'+()* "##$%&'()*+portable provisionalEdward Kmett <ekmett@gmail.com> "#$%&'()*+ portable provisionalEdward Kmett <ekmett@gmail.com> ,-.stu/012345 ,-./012345 ./0,-12345 ,--./012345 portable provisionalEdward Kmett <ekmett@gmail.com> 678v9:;<Read the current position =Seek to an absolute location  seek s = peek s . duplicate >Seek to a relative location  seeks f = peeks f . duplicate ?-Peek at a value at a given absolute location # peek x . extend (peek y) = peek y @-Peek at a value at a given relative location 6789:;<=>?@ 89:67;<=>?@ 67789:;<=>?@portable provisionalEdward Kmett <ekmett@gmail.com> 6789:;<=>?@ portable provisionalEdward Kmett <ekmett@gmail.com> ABCwDEFGRead the current position HSeek to an absolute location  seek s = peek s . duplicate ISeek to a relative location  seeks f = peeks f . duplicate J-Peek at a value at a given absolute location # peek x . extend (peek y) = peek y K-Peek at a value at a given relative location ABCDEFGHIJK CDEABFGHIJK ABBCDEFGHIJK portable provisionalEdward Kmett <ekmett@gmail.com>LxMyNOPQRSRead the current position TSeek to an absolute location  seek s = peek s . duplicate USeek to a relative location  seeks f = peeks f . duplicate V-Peek at a value at a given absolute location # peek x . extend (peek y) = peek y W-Peek at a value at a given relative location LMNOPQRSTUVW MNOLQPRSTUVW LMNOPQRSTUVWportable provisionalEdward Kmett <ekmett@gmail.com> XYZ[\]^_`az XYZ[\]^_`a [\]XYZ^_`a XYZYZ[\]^_`aportable provisionalEdward Kmett <ekmett@gmail.com> b{cdefghijk| bcdefghijk cdebgfhijk bcdefghijk} !!"#$%!!"#$%!"#&$%'( ) ) * + , - . / 0 1 ) ) * + , - 1 . / 0 2 2 3 4 5 6 7 8 9 : ; 2 2 3 4 5 6 7 8 9 : ; 2 3 4 5 6 < = 7 8 9 : ;>>?@ABCDEF>@AB?GCDEFHH!H I J K I J K L L 2 LM>MNcomonad-transformers-2.0.0Control.Comonad.Trans.IdentityData.Functor.CompositionData.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.DiscontControl.Comonad.Trans.EnvControl.Comonad.Trans.Storetransformers-0.2.2.0Control.Monad.Trans.Identity runIdentityT IdentityT Composition decomposecompose Coproduct getCoproductleftright coproduct ComonadTranslowerDiscontTDiscontdiscont runDiscont runDiscontTdiscontT ComonadHoistcohoistEnvTEnvenvrunEnvrunEnvTaskaskslocal lowerEnvTStoreTStorestorerunStore runStoreTposseekseekspeekpeeksstoreT lowerStoreTTracedT runTracedTTracedtraced runTracedtracelistenlistenscensortracedT discontTTyCon envTTyCon envTConstr envTDataType storeTTyCon tracedTTyCon