Control.Concurrent.Pulse

Documentation

data Pulse

A heartbeat

newPulse :: DiffTime -> IO Pulse

Create a new pulse that will send a heartbeat every DiffTime seconds

destroyPulse :: Pulse -> IO ()

Destroy the pulse. Note that all pending waitForPulse will be left blocked

withPulse :: DiffTime -> (Pulse -> IO a) -> IO a

Automatically calls newPulse and destroyPulse as needed

waitForPulse :: Pulse -> IO ()

Block until the next heartbeat is triggered on the Pulse