OutWatchPureScriptDemo.purs

module Main where

import OutWatch
import Builder ((<==))
import Control.Monad.Eff (Eff)
import Prelude (Unit, map, (#), (+))
import RxJS.Observable (interval, startWith)

main :: Eff () Unit
main = let
  seconds = interval 1000
    # map (_ + 1)
    # startWith 0
  root = div [text "Seconds elapsed: ", child <== seconds]
  in do render "#app" root