[Haskell-cafe] Strong version of 'local' for reader monad

[Sebastiaan Visser]

Hey Brent,

Of course, because your type signature has no valid implementation, the expected semantics are hard to guess. Why should strongLocal bother about the MonadReader constraint on m1 anyway? Are you internally combining it with 'ask' or another 'local'?

The monads are potentially different, so m1 has to be run inside m2.

A more specific version of strongLocal could be:

 strongLocalReader :: MonadReader r2 m2 => (r2 -> r1) -> Reader r1 a -> m2 a
 strongLocalReader f m = 
   do r <- asks f
      return (runReader m r)

Or you can generalize it to every 'Runnable' monad:

 class Monad m => Runnable m where
   run :: m a -> a

 strongLocalRunnable
   :: (MonadReader r2 m2, Runnable m1)
   => (r2 -> r1) -> (r1 -> m1 a) -> m2 a
 strongLocalRunnable f m =
   do r <- asks f
      return (run (m r))

Is this what you want to express?

Cheers,
Sebastiaan

On Dec 13, 2010, at 9:30 PM, Brent Yorgey wrote:
> Hi all,
> 
> Today I wanted this function
> 
>  strongLocal :: (MonadReader r1 m1, MonadReader r2 m2) => 
>                 (r2 -> r1) -> m1 a -> m2 a
> 
> Of course, after staring at this type for ten seconds I realized that
> it cannot be implemented.  But I wondered whether anyone has any
> pointers to anything related, or if anyone has good ideas for a
> reasonable interface that would allow this.
> 
> -Brent