shared-kernel/fix:#187/Added Redis Sorted Set Functions and Redis Str…

…eams Functions for Job Scheduling...

lib/mobility-core/src/Kernel/Utils/Time.hs

@@ -24,6 +24,7 @@ where
 import qualified Data.Text as T
 import Data.Time hiding (getCurrentTime, nominalDiffTimeToSeconds, secondsToNominalDiffTime)
 import qualified Data.Time as Time hiding (secondsToNominalDiffTime)
+import Data.Time.Clock.System (SystemTime (systemNanoseconds, systemSeconds), utcToSystemTime)
 import EulerHS.Prelude
 import Kernel.Types.Time
 import Kernel.Utils.Logging
@@ -48,6 +49,12 @@ showTimeIst time =
     formatTime defaultTimeLocale "%d %b, %I:%M %p" $
       addUTCTime (60 * 330) time
 
+getCurrentTimestamp :: (Monad m, MonadTime m) => m Double
+getCurrentTimestamp = do
+  now <- getCurrentTime
+  let systemTime = utcToSystemTime now
+  pure . fromIntegral $ div (systemSeconds systemTime * 1000000000 + fromIntegral (systemNanoseconds systemTime)) 1000000
+
 getClockTimeInMs :: MonadClock m => m Milliseconds
 getClockTimeInMs = Milliseconds . fromInteger . (`div` 1000000) . toNanoSecs <$> getClockTime