Hi,
If you like metalift you might like these too :-)
-Iavor
newtype Morph m n = M (forall a. m a -> n a)
-- indexed monad on the category of monads
class (MonadT (t i), MonadT (t j), MonadT (t k))
=> TMon t i j k | t i j -> k where
bindT :: (Monad m) => Morph m (t i m) -> t j m a -> t k m a
instance TMon ReaderT i j (i,j) where
bindT (M f) m = do ~(i,j) <- ask
lift (runReaderT i (f (runReaderT j m)))
instance TMon StateT i j (i,j) where
bindT (M f) m = do ~(i,j) <- get
~(~(a,i'),j') <- lift (runStateT i (f (runStateT j m)))
set (i,j)
return a
instance (Monoid i, Monoid j) => TMon WriterT i j (i,j) where
bindT (M f) m = do ~(~(a,j),i) <- lift (runWriterT (f (runWriterT m)))
put (i,j)
return a
instance TMon ExceptionT i j (Either i j) where
bindT (M f) m = do x <- lift (runExceptionT (f (runExceptionT m)))
case x of
Left i -> raise (Left i)
Right (Left j) -> raise (Right j)
Right (Right a) -> return a
On 3/7/07, Stefan O'Rear
On Wed, Mar 07, 2007 at 11:59:24PM +0000, Ross Paterson wrote:
I propose that we restructure and split the mtl into two packages:
Thank you, I was just thinking the same thing, but I would never have thought to publically challenge the mtl folks :)
mtl-base: a Haskell-98 package containing the monad transformers and non-overloaded versions of the operations, e.g.
Why can't we have:
class MonadTrans t where lift :: Monad m => m a -> t m a
looks perfectly H98 to me. both ghci-6.7.20070223 -fno-glasgow-exts and hugs +98 accept it.
mtl (depending on mtl-base): multi-parameter+FD type classes with instances for the transformers in mtl-base, e.g.
Would it also now be possible to get my metalift operation in mtl?
class MonadTrans t where lift :: Monad m => m a -> t m a metalift :: (Monad m, Monad m') => (forall a. m1 a -> m2 a) -> t m a -> t m' b
It is often useful in practice, for instance metalift lift can be used at type State s a -> StateT s IO a (a suprisingly common request on #haskell).
Disclaimer: I have been able to write instances for all mtl transformers *except ContT*, and it seems plausible that ContT may force the class to be split.
Stefan _______________________________________________ Libraries mailing list Libraries@haskell.org http://www.haskell.org/mailman/listinfo/libraries