From 2370d23e3862828c3e38ed126ec83dd6fcacbb4b Mon Sep 17 00:00:00 2001
From: Ranjeet Kumar Ranjan <ranjeetr@composewell.com>
Date: Mon, 21 Aug 2023 21:17:13 +0530
Subject: [PATCH] Export the Data.Time.Clock.Type module from Clock

---
 core/src/Streamly/Internal/Data/Time/Clock.hs | 6 +++---
 core/streamly-core.cabal                      | 3 ++-
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/core/src/Streamly/Internal/Data/Time/Clock.hs b/core/src/Streamly/Internal/Data/Time/Clock.hs
index 579212e04..6fc374408 100644
--- a/core/src/Streamly/Internal/Data/Time/Clock.hs
+++ b/core/src/Streamly/Internal/Data/Time/Clock.hs
@@ -9,8 +9,7 @@
 module Streamly.Internal.Data.Time.Clock
     (
     -- * System clock
-      Clock(..)
-    , getTime
+      module Streamly.Internal.Data.Time.Clock.Type
 
     -- * Async clock
     , asyncClock
@@ -30,13 +29,14 @@ where
 import Control.Concurrent (threadDelay, ThreadId)
 import Control.Concurrent.MVar (MVar, newEmptyMVar, takeMVar, tryPutMVar)
 import Control.Monad (forever, when, void)
-import Streamly.Internal.Data.Time.Clock.Type (Clock(..), getTime)
 import Streamly.Internal.Data.Time.Units
     (MicroSecond64(..), fromAbsTime, addToAbsTime, toRelTime)
 import Streamly.Internal.Control.ForkIO (forkIOManaged)
 
 import qualified Streamly.Internal.Data.IORef.Unboxed as Unboxed
 
+import Streamly.Internal.Data.Time.Clock.Type
+
 ------------------------------------------------------------------------------
 -- Async clock
 ------------------------------------------------------------------------------
diff --git a/core/streamly-core.cabal b/core/streamly-core.cabal
index a6c9281ca..a920539f2 100644
--- a/core/streamly-core.cabal
+++ b/core/streamly-core.cabal
@@ -285,7 +285,6 @@ library
                      -- streamly-time
                      , Streamly.Internal.Data.Time.TimeSpec
                      , Streamly.Internal.Data.Time.Units
-                     , Streamly.Internal.Data.Time.Clock.Type
                      , Streamly.Internal.Data.Time.Clock
 
                      -- streamly-core-stream-types
@@ -433,6 +432,8 @@ library
                     , Streamly.Internal.Data.Producer.Type
                     , Streamly.Internal.Data.Producer.Source
 
+                    , Streamly.Internal.Data.Time.Clock.Type
+
     if flag(dev)
       other-modules:
                         Streamly.Internal.Data.StreamK.Alt