[reactive] memory leak with justE?

23 Feb 2009

      Hi,

I have a somewhat larger program using reactive which seems to leak
memory. I have narrowed at least one possible cause to justE.  If I
run main_justE  in ghci it eats all the memory while main_filterE
seems to run fine in constant.

What am I missing here? I'm using ghc 6.10 and reactive 0.10.5.
...
module Main where
import Control.Monad.Trans(MonadIO, liftIO)
import Control.Concurrent
import Control.Monad
import FRP.Reactive
import FRP.Reactive.LegacyAdapters
import Data.Monoid(mappend)
import Data.Maybe
...
main_justE = do
 clock <- makeClock
 (sink, taskevents) <- makeEvent clock
 let go _ = Just $ sink $ Nothing
 adaptE $ justE $ fmap go (atTimes [0, 0.1 .. ]) `mappend` taskevents
...
instance Show (IO a) where
    show _ = "IO"
...
main_filterE = do
  clock <- makeClock
  (sink, taskevents) <- makeEvent clock
  let go _ = Just $ sink $ Nothing
      justE' = fmap fromJust . filterE (maybe False (const True))
  adaptE $ justE' $ fmap go (atTimes [0, 0.1 ..]) `mappend` taskevents
Br,
Sakari

[reactive] memory leak with justE?

Sakari Jokinen