Hi everyone,

I am experimenting with various implementation styles for classical FRP. My current thoughts are on a continuation-style push implementation, which can be summarized as follows.

> newtype EventT m r a    = E { runE :: (a -> m r) -> m r -> m r }

> newtype ReactiveT m r a = R { runR :: (m a -> m r) -> m r }

> type Event    = EventT IO ()

> type Reactive = ReactiveT IO ()

The idea is that events allow subscription of handlers, which are automatically unsubscribed after the continuation has finished, while reactives allow observation of a shared state until the continuation has finished.

I managed to write the following Applicative instance

> instance Applicative (ReactiveT m r) where

>     pure a      = R $ \k -> k (pure a)

>     R f <*> R a = R $ \k -> f (\f' -> a (\a' -> k $ f' <*> a'))

But I am stuck on finding a suitable Monad instance. I notice the similarity between my types and the ContT monad and have a feeling this similarity could be used to clean up my instance code, but am not sure how to proceed. Does anyone have an idea, or a pointer to suitable literature.

Best regards,

Hans

_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe