backend/refactor/local_time

nammayatri · Jun 27, 2023 · 5a1f39a · 5a1f39a
1 parent aadcf1d
commit 5a1f39a
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/lib/mobility-core/src/Kernel/Utils/Time.hs b/lib/mobility-core/src/Kernel/Utils/Time.hs
@@ -22,8 +22,8 @@ module Kernel.Utils.Time
 where
 
 import qualified Data.Text as T
-import Data.Time hiding (getCurrentTime, nominalDiffTimeToSeconds)
-import qualified Data.Time as Time
+import Data.Time hiding (getCurrentTime, nominalDiffTimeToSeconds, secondsToNominalDiffTime)
+import qualified Data.Time as Time hiding (secondsToNominalDiffTime)
 import EulerHS.Prelude
 import Kernel.Types.Time
 import Kernel.Utils.Logging
@@ -35,6 +35,9 @@ isExpired nominal time = do
   let addedUTCTime = addUTCTime nominal time
   return $ now > addedUTCTime
 
+getLocalCurrentTime :: MonadTime m => Seconds -> m UTCTime
+getLocalCurrentTime timeDiff = addUTCTime (secondsToNominalDiffTime timeDiff) <$> getCurrentTime
+
 -- | Format time in IST and return it as text
 -- Converts and Formats in the format
 -- TODO: make a generic function and then pass format