From 2febe6dec2ae127e0022f2c78c56c19d03e2cadc Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sun, 9 Jul 2023 10:59:35 +0200 Subject: Fix deprecation warnings --- src/Utils/Time.hs | 6 ------ 1 file changed, 6 deletions(-) (limited to 'src/Utils') diff --git a/src/Utils/Time.hs b/src/Utils/Time.hs index 2139c53..8931afe 100644 --- a/src/Utils/Time.hs +++ b/src/Utils/Time.hs @@ -8,10 +8,8 @@ Portability : POSIX, macOS, Windows -} module Utils.Time where -import Data.Time.Clock import Data.Time.Clock.System hiding (getSystemTime) import qualified Data.Time.Clock.System as Sys -import Data.Time.Format -- | A timestamp in milliseconds. @@ -37,7 +35,3 @@ getSystemTime = TimeStamp . systemToMS <$> Sys.getSystemTime where systemToMS tm = let MkSystemTime s ns = truncateSystemTimeLeapSecond tm in fromIntegral s * 1000 + fromIntegral ns `div` 1000000 - --- | Show a UTCTime in ISO-8601 format. -iso8601Show :: UTCTime -> String -iso8601Show = formatTime defaultTimeLocale (iso8601DateFormat (Just "%H:%M:%S")) -- cgit v1.2.3-70-g09d2