{- |
This timer doesn't wait but returns immediately.
This is useful for turning real-time processing to non-real-time processing.
-}moduleHaskore.RealTime.Timer.Immediate(timer)whereimportqualifiedHaskore.RealTime.TimerasTimerimportSystem.Time(ClockTime(TOD))importqualifiedNumeric.NonNegative.WrapperasNonNegtimer::(Monadm)=>Timer.Tmtimer=Timer.ConsgetClockTimewaitresolutiongetClockTime::(Monadm)=>mClockTimegetClockTime=return$TOD00{- |
Wait the given number of @(recip resolution)@ seconds.
-}wait::(Monadm)=>NonNeg.Int->m()wait_=return()resolution::Numa=>aresolution=50