From fe09107946202ad0216d518c95dcff6d159d76b0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 15 Apr 2025 22:22:40 +0200
Subject: Terminal: handle end-of-file error

---
 main/Terminal.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'main/Terminal.hs')

diff --git a/main/Terminal.hs b/main/Terminal.hs
index 5dc3612..150bd8c 100644
--- a/main/Terminal.hs
+++ b/main/Terminal.hs
@@ -31,8 +31,9 @@ import Data.List
 import Data.Text (Text)
 import Data.Text qualified as T
 
-import System.IO
 import System.Console.ANSI
+import System.IO
+import System.IO.Error
 
 
 data Terminal = Terminal
@@ -107,7 +108,7 @@ termPutStr Terminal {..} str = do
 
 getInput :: IO Input
 getInput = do
-    getChar >>= \case
+    handleJust (guard . isEOFError) (\() -> return InputEnd) $ getChar >>= \case
         '\ESC' -> do
             esc <- readEsc
             case parseEsc esc of
-- 
cgit v1.2.3