@@ -9,8 +9,7 @@
9module Streamly.Internal.Data.Time.Clock
9module Streamly.Internal.Data.Time.Clock
11 -- * System clock
11 -- * System clock
12− Clock(..)
12+ module Streamly.Internal.Data.Time.Clock.Type
15 -- * Async clock
14 -- * Async clock
16 , asyncClock
15 , asyncClock
@@ -30,13 +29,14 @@ where
30import Control.Concurrent (threadDelay, ThreadId)
29import Control.Concurrent (threadDelay, ThreadId)
31import Control.Concurrent.MVar (MVar, newEmptyMVar, takeMVar, tryPutMVar)
30import Control.Concurrent.MVar (MVar, newEmptyMVar, takeMVar, tryPutMVar)
32import Control.Monad (forever, when, void)
31import Control.Monad (forever, when, void)
33−import Streamly.Internal.Data.Time.Clock.Type (Clock(..), getTime)
34import Streamly.Internal.Data.Time.Units
32import Streamly.Internal.Data.Time.Units
35 (MicroSecond64(..), fromAbsTime, addToAbsTime, toRelTime)
33 (MicroSecond64(..), fromAbsTime, addToAbsTime, toRelTime)
36import Streamly.Internal.Control.ForkIO (forkIOManaged)
34import Streamly.Internal.Control.ForkIO (forkIOManaged)
38import qualified Streamly.Internal.Data.IORef.Unboxed as Unboxed
36import qualified Streamly.Internal.Data.IORef.Unboxed as Unboxed
38+import Streamly.Internal.Data.Time.Clock.Type
40------------------------------------------------------------------------------
40------------------------------------------------------------------------------
41-- Async clock
41-- Async clock
42------------------------------------------------------------------------------
42------------------------------------------------------------------------------