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/System/IO/Terminal/Render.hs | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'src/System/IO')

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
-- 
cgit v1.2.3-70-g09d2