fudgets-0.18.3: Demos/life/Timer.hs

module Timer(timer) where

import Fudgets

timer :: Int -> F Bool Tick
timer t = timerF >=^< \b -> if b then Just (t,0) else Nothing