module Counter where

import Hawk

resetCounter :: Signal Bool -> Signal Int
resetCounter reset = output
  where
  output = select reset (pure 0) (increment <$> output)

increment :: Int -> Int
increment n = n + 1