summaryrefslogtreecommitdiff
path: root/src/Utils
diff options
context:
space:
mode:
Diffstat (limited to 'src/Utils')
-rw-r--r--src/Utils/Time.hs6
1 files changed, 0 insertions, 6 deletions
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"))