summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/System/IO/Terminal/Render.hs9
-rw-r--r--src/Utils/Time.hs6
2 files changed, 2 insertions, 13 deletions
diff --git a/src/System/IO/Terminal/Render.hs b/src/System/IO/Terminal/Render.hs
index 6939c9f..86b5cb3 100644
--- a/src/System/IO/Terminal/Render.hs
+++ b/src/System/IO/Terminal/Render.hs
@@ -49,7 +49,6 @@ module System.IO.Terminal.Render
,module System.IO.Terminal.Characters)
where
-import Control.Concurrent
import Control.Monad.State.Strict
import Data.Array.IO
import Data.Colour.SRGB hiding (RGB)
@@ -131,12 +130,8 @@ withRender act = do
whenM (liftIO $ not <$> hIsTerminalDevice stdout) $
liftIO $ die "ERROR: Stdout is not connected to a terminal!"
- liftIO $ A.hSupportsANSIWithoutEmulation stdout >>= \case
- Just True -> return ()
- Just False -> die "ERROR: Terminal is not capable of interpreting ANSI escape sequences!"
- Nothing -> do
- hPutStrLn stderr "WARNING: Cannot determine terminal capabilities; continuing anyway..."
- threadDelay 1000000
+ liftIO $ whenM (not <$> A.hSupportsANSI stdout) $
+ die "ERROR: Terminal is not capable of interpreting ANSI escape sequences!"
liftIO IO.toAlternateScreen
liftIO A.clearScreen
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"))