Control.Monad.Trans.MultiGST.Lazy

Alternative multi-valued version of mtl's RWS / RWST. In contrast to MultiRWS(T) this version only takes a single list of types as parameter, but with additional encoding of the allowed access for each element. This supports the MonadMultiGet notion more succinctly, i.e. to pass a "state" element to a function that only requiresexpects readget access. This is not possible with MultiRWS.

Documentation

newtype MultiGSTT ts m a

Constructors

MultiGSTT

Fields

• runMultiGSTTRaw :: StateT (HListM ts) m a

Instances

(Monad m, Monoid a, HListMContains TellableFlag a cts) => MonadMultiWriter a (MultiGSTT cts m)

Methods

mTell :: a -> MultiGSTT cts m ()

(Monad m, HListMContains GettableFlag a cts) => MonadMultiGet a (MultiGSTT cts m)

Methods

mGet :: MultiGSTT cts m a

(Monad m, HListMContains SettableFlag a cts) => MonadMultiState a (MultiGSTT cts m)

Methods

mSet :: a -> MultiGSTT cts m ()

MonadTrans (MultiGSTT ts)

Methods

lift :: Monad m => m a -> MultiGSTT ts m a

Monad m => Monad (MultiGSTT ts m)

Methods

(>>=) :: MultiGSTT ts m a -> (a -> MultiGSTT ts m b) -> MultiGSTT ts m b

(>>) :: MultiGSTT ts m a -> MultiGSTT ts m b -> MultiGSTT ts m b

return :: a -> MultiGSTT ts m a

fail :: String -> MultiGSTT ts m a

Functor m => Functor (MultiGSTT ts m)

Methods

fmap :: (a -> b) -> MultiGSTT ts m a -> MultiGSTT ts m b

(<$) :: a -> MultiGSTT ts m b -> MultiGSTT ts m a

Monad m => Applicative (MultiGSTT ts m)

Methods

pure :: a -> MultiGSTT ts m a

(<*>) :: MultiGSTT ts m (a -> b) -> MultiGSTT ts m a -> MultiGSTT ts m b

(*>) :: MultiGSTT ts m a -> MultiGSTT ts m b -> MultiGSTT ts m b

(<*) :: MultiGSTT ts m a -> MultiGSTT ts m b -> MultiGSTT ts m a

MonadIO m => MonadIO (MultiGSTT ts m)

Methods

liftIO :: IO a -> MultiGSTT ts m a

MonadPlus m => Alternative (MultiGSTT ts m)

Methods

empty :: MultiGSTT ts m a

(<|>) :: MultiGSTT ts m a -> MultiGSTT ts m a -> MultiGSTT ts m a

some :: MultiGSTT ts m a -> MultiGSTT ts m [a]

many :: MultiGSTT ts m a -> MultiGSTT ts m [a]

MonadPlus m => MonadPlus (MultiGSTT ts m)

Methods

mzero :: MultiGSTT ts m a

mplus :: MultiGSTT ts m a -> MultiGSTT ts m a -> MultiGSTT ts m a

type MultiGSTTNull = MultiGSTT '[]

type MultiGST r = MultiGSTT r Identity

MonadMulti classes

type ContainsReader = HListMContains GettableFlag

type ContainsState = HListMContains SettableFlag

type ContainsWriter = HListMContains TellableFlag

class Monad m => MonadMultiReader a m where

All methods must be defined.

The idea is: Any monad stack is instance of MonadMultiReader a, iff the stack contains a MultiReaderT x with a element of x.

Minimal complete definition

mAsk

Methods

mAsk :: m a

Instances

(MonadTrans t, Monad (t m), MonadMultiReader a m) => MonadMultiReader a (t m)

Methods

mAsk :: t m a

(Monad m, ContainsType a c) => MonadMultiReader a (MultiReaderT c m)

Methods

mAsk :: MultiReaderT c m a

(Monad m, ContainsType a c) => MonadMultiReader a (MultiReaderT c m)

Methods

mAsk :: MultiReaderT c m a

(Monad m, ContainsType a r) => MonadMultiReader a (MultiRWST r w s m)

Methods

mAsk :: MultiRWST r w s m a

(Monad m, ContainsType a r) => MonadMultiReader a (MultiRWST r w s m)

Methods

mAsk :: MultiRWST r w s m a

class (Monad m, Monoid a) => MonadMultiWriter a m where

Minimal complete definition

mTell

Methods

mTell :: a -> m ()

Instances

(MonadTrans t, Monad (t m), MonadMultiWriter a m) => MonadMultiWriter a (t m)

Methods

mTell :: a -> t m ()

(Monad m, ContainsType a c, Monoid a) => MonadMultiWriter a (MultiWriterT c m)

Methods

mTell :: a -> MultiWriterT c m ()

(Monad m, ContainsType a c, Monoid a) => MonadMultiWriter a (MultiWriterT c m)

Methods

mTell :: a -> MultiWriterT c m ()

(Monad m, Monoid a, HListMContains TellableFlag a cts) => MonadMultiWriter a (MultiGSTT cts m)

Methods

mTell :: a -> MultiGSTT cts m ()

(Monad m, Monoid a, HListMContains TellableFlag a cts) => MonadMultiWriter a (MultiGSTT cts m)

Methods

mTell :: a -> MultiGSTT cts m ()

(Monad m, ContainsType a w, Monoid a) => MonadMultiWriter a (MultiRWST r w s m)

Methods

mTell :: a -> MultiRWST r w s m ()

(Monad m, ContainsType a w, Monoid a) => MonadMultiWriter a (MultiRWST r w s m)

Methods

mTell :: a -> MultiRWST r w s m ()

class Monad m => MonadMultiGet a m where

In contrast to MonadMultiReader, MonadMultiGet is defined for State too, so it corresponds to read-access of any kind.

Note however that for MultiRWS, only the values from the state part can be accessed via MonadMultiGet, due to limitations of the design of MultiRWS and of the type system. This is issue is resolved in the MultiGST type.

Minimal complete definition

mGet

Methods

mGet :: m a

Instances

(MonadTrans t, Monad (t m), MonadMultiGet a m) => MonadMultiGet a (t m)

Methods

mGet :: t m a

(Monad m, ContainsType a c) => MonadMultiGet a (MultiReaderT c m)

Methods

mGet :: MultiReaderT c m a

(Monad m, ContainsType a c) => MonadMultiGet a (MultiReaderT c m)

Methods

mGet :: MultiReaderT c m a

(Monad m, ContainsType a c) => MonadMultiGet a (MultiStateT c m)

Methods

mGet :: MultiStateT c m a

(Monad m, ContainsType a c) => MonadMultiGet a (MultiStateT c m)

Methods

mGet :: MultiStateT c m a

(Monad m, HListMContains GettableFlag a cts) => MonadMultiGet a (MultiGSTT cts m)

Methods

mGet :: MultiGSTT cts m a

(Monad m, HListMContains GettableFlag a cts) => MonadMultiGet a (MultiGSTT cts m)

Methods

mGet :: MultiGSTT cts m a

(Monad m, ContainsType a s) => MonadMultiGet a (MultiRWST r w s m)

Methods

mGet :: MultiRWST r w s m a

(Monad m, ContainsType a s) => MonadMultiGet a (MultiRWST r w s m)

Methods

mGet :: MultiRWST r w s m a

class MonadMultiGet a m => MonadMultiState a m where

Minimal complete definition

mSet

Methods

mSet :: a -> m ()

Instances

(MonadTrans t, Monad (t m), MonadMultiState a m) => MonadMultiState a (t m)

Methods

mSet :: a -> t m ()

(Monad m, ContainsType a c) => MonadMultiState a (MultiStateT c m)

Methods

mSet :: a -> MultiStateT c m ()

(Monad m, ContainsType a c) => MonadMultiState a (MultiStateT c m)

Methods

mSet :: a -> MultiStateT c m ()

(Monad m, HListMContains SettableFlag a cts) => MonadMultiState a (MultiGSTT cts m)

Methods

mSet :: a -> MultiGSTT cts m ()

(Monad m, HListMContains SettableFlag a cts) => MonadMultiState a (MultiGSTT cts m)

Methods

mSet :: a -> MultiGSTT cts m ()

(Monad m, ContainsType a s) => MonadMultiState a (MultiRWST r w s m)

Methods

mSet :: a -> MultiRWST r w s m ()

(Monad m, ContainsType a s) => MonadMultiState a (MultiRWST r w s m)

Methods

mSet :: a -> MultiRWST r w s m ()

data CanReadWrite a

Constructors

Gettable a

Settable a

Tellable a

run-functions

runMultiGSTTNil :: Monad m => MultiGSTT '[] m a -> m a

runMultiGSTTNil_ :: Monad m => MultiGSTT '[] m a -> m ()

with-functions

withReader :: Monad m => t -> MultiGSTT (Gettable t ': tr) m a -> MultiGSTT tr m a

withReader_ :: Monad m => t -> MultiGSTT (Gettable t ': tr) m a -> MultiGSTT tr m ()

withReaders :: Monad m => HList rs -> MultiGSTT (AppendM (HListMReaders rs) ts) m a -> MultiGSTT ts m a

withWriter :: (Monoid t, Monad m) => MultiGSTT (Tellable t ': tr) m a -> MultiGSTT tr m (a, t)

withWriterAW :: (Monoid t, Monad m) => MultiGSTT (Tellable t ': tr) m a -> MultiGSTT tr m (a, t)

withWriterWA :: (Monoid t, Monad m) => MultiGSTT (Tellable t ': tr) m a -> MultiGSTT tr m (t, a)

withWriterW :: (Monoid t, Monad m) => MultiGSTT (Tellable t ': tr) m a -> MultiGSTT tr m t

withState :: Monad m => t -> MultiGSTT (Settable t ': tr) m a -> MultiGSTT tr m (a, t)

withStateAS :: Monad m => t -> MultiGSTT (Settable t ': tr) m a -> MultiGSTT tr m (a, t)

withStateSA :: Monad m => t -> MultiGSTT (Settable t ': tr) m a -> MultiGSTT tr m (t, a)

withStateA :: Monad m => t -> MultiGSTT (Settable t ': tr) m a -> MultiGSTT tr m a

withStateS :: Monad m => t -> MultiGSTT (Settable t ': tr) m a -> MultiGSTT tr m t

withState_ :: Monad m => t -> MultiGSTT (Settable t ': tr) m a -> MultiGSTT tr m ()

without-functions

without :: Monad m => MultiGSTT tr m a -> MultiGSTT (ct ': tr) m a

other functions

mGetRaw :: Monad m => MultiGSTT ts m (HListM ts)

mSetRaw :: Monad m => HListM ts -> MultiGSTT ts m ()

mGetRawR :: (Monad m, HListMGettableClass ts) => MultiGSTT ts m (HList (HListMGettableOnly ts))

mapMultiGSTT :: ts ~ HListM cts => (m (a, ts) -> m' (a', ts)) -> MultiGSTT cts m a -> MultiGSTT cts m' a'