module Eventloop.Module.Timer.Types where
import Control.Concurrent.MVar
import Control.Concurrent.Timer
import Control.Concurrent.Suspend.Lifted
type MicroSecondDelay = Int
type TimerId = [Char]
type IncomingTickBuffer = MVar [TimerIn]
type StartedTimer = (TimerId, TimerIO)
type TimerStartFunction = (TimerIO -> IO () -> Delay -> IO Bool)
data TimerIn = Tick TimerId
deriving (Eq, Show)
data TimerOut = SetTimer TimerId MicroSecondDelay
| SetIntervalTimer TimerId MicroSecondDelay
| UnsetTimer TimerId
deriving (Eq, Show)