@@ -9,8 +9,7 @@
99module Streamly.Internal.Data.Time.Clock
1010 (
1111 -- * System clock
12− Clock(..)
13− , getTime
12+ module Streamly.Internal.Data.Time.Clock.Type
1413
1514 -- * Async clock
1615 , asyncClock
@@ -30,13 +29,14 @@ where
3029import Control.Concurrent (threadDelay, ThreadId)
3130import Control.Concurrent.MVar (MVar, newEmptyMVar, takeMVar, tryPutMVar)
3231import Control.Monad (forever, when, void)
33−import Streamly.Internal.Data.Time.Clock.Type (Clock(..), getTime)
3432import Streamly.Internal.Data.Time.Units
3533 (MicroSecond64(..), fromAbsTime, addToAbsTime, toRelTime)
3634import Streamly.Internal.Control.ForkIO (forkIOManaged)
3735
3836import qualified Streamly.Internal.Data.IORef.Unboxed as Unboxed
3937
38+import Streamly.Internal.Data.Time.Clock.Type
39+
4040------------------------------------------------------------------------------
4141-- Async clock
4242------------------------------------------------------------------------------