From 6caab6f5391f3a16b2e1e8fbf48d6727a0c83ffd Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Sun, 11 Apr 2021 11:22:56 +0100
Subject: [PATCH] fix: initially blocked keys (#94)

---
 ChatTerminal.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/ChatTerminal.hs b/ChatTerminal.hs
index f2dd2e2c4a..13b8d15e07 100644
--- a/ChatTerminal.hs
+++ b/ChatTerminal.hs
@@ -63,7 +63,7 @@ basicReceiveFromTTY ct =
   forever $ getLn >>= atomically . writeTBQueue (inputQ ct)
 
 basicSendToTTY :: ChatTerminal -> IO ()
-basicSendToTTY ct = forever $ atomically (readOutputQ ct) >>= mapM_ putStyledLn
+basicSendToTTY ct = forever $ readOutputQ ct >>= mapM_ putStyledLn
 
 withTermLock :: MonadTerminal m => ChatTerminal -> m () -> m ()
 withTermLock ChatTerminal {termLock} action = do
@@ -94,11 +94,12 @@ receiveFromTTY ct@ChatTerminal {inputQ, activeContact, termSize, termState} =
       withTermLock ct $ printMessage ct [styleMessage msg]
 
 sendToTTY :: ChatTerminal -> IO ()
-sendToTTY ct = withTerminal . runTerminalT . forever $ do
-  msg <- atomically $ readOutputQ ct
-  withTermLock ct $ do
+sendToTTY ct = forever $ do
+  -- `readOutputQ` should be outside of `withTerminal` (see #94)
+  msg <- readOutputQ ct
+  withTerminal . runTerminalT . withTermLock ct $ do
     printMessage ct msg
     updateInput ct
 
-readOutputQ :: ChatTerminal -> STM [StyledString]
-readOutputQ = readTBQueue . outputQ
+readOutputQ :: ChatTerminal -> IO [StyledString]
+readOutputQ = atomically . readTBQueue . outputQ