@@ -119,9 +119,8 @@ intMkVty input out = do
119119
120120 shutdownVar <- atomically $ newTVar False
121121 let shutdownIo = do
122− alreadyShutdown <- atomically $ readTVar shutdownVar
122+ alreadyShutdown <- atomically $ swapTVar shutdownVar True
123123 when (not alreadyShutdown) $ do
124− atomically $ writeTVar shutdownVar True
125124 shutdownInput input
126125 releaseDisplay out
127126 releaseTerminal out