From 2febe6dec2ae127e0022f2c78c56c19d03e2cadc Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
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/Time.hs')

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