Skip to content

Instantly share code, notes, and snippets.

@aratama

aratama/ReactiveTimer.purs

Created February 9, 2016 14:54
Show Gist options
  • Save aratama/b5ab4a5d4a1353cd155e to your computer and use it in GitHub Desktop.
Save aratama/b5ab4a5d4a1353cd155e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ReactiveTimer.purs
module ReactiveTimer where
import Prelude (Unit(), (*))
import Data.String (toUpper)
import Control.Monad.Eff (Eff())
import Control.Monad.Eff.Console (CONSOLE(), print)
import Signal (constant, (<~), runSignal)
import Signal.Time (every, second)
main :: forall eff . Eff (console :: CONSOLE | eff) Unit
main = runSignal (print <~ every (1.0 * second))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment