gistfile1.txt

-- playing with the adaptive library.

import Control.Monad.Adaptive

printMod mod = do
  r <- inCh $ readMod mod
  inM (putStrLn $ show r)

main = run $ do
  i1 <- newMod (return (2 :: Integer))
  i2 <- newMod (return 3)
  r <- newMod $ do
    i1' <- readMod i1
    i2' <- readMod i2
    return (i1' + i2')
  printMod r
  change i2 5
  propagate
  printMod r