@@ -166,7 +166,7 @@ internalMkVty :: Input -> Output -> IO Vty
166166internalMkVty input out = do
167167 reserveDisplay out
168168
169− shutdownVar <- atomically $ newTVar False
169+ shutdownVar <- newTVarIO False
170170 let shutdownIo = do
171171 alreadyShutdown <- atomically $ swapTVar shutdownVar True
172172 when (not alreadyShutdown) $ do
@@ -174,7 +174,7 @@ internalMkVty input out = do
174174 releaseDisplay out
175175 releaseTerminal out
176176
177− let shutdownStatus = atomically $ readTVar shutdownVar
177+ let shutdownStatus = readTVarIO shutdownVar
178178
179179 lastPicRef <- newIORef Nothing
180180 lastUpdateRef <- newIORef Nothing