@@ -74,7 +74,7 @@ host vtyGuest = runSpiderHost $ do
7474 updateVty
7575
7676 shutdown <- subscribeEvent $ _vtyResult_shutdown r
77−
77+
7878 vtyEvent <- liftIO newTChanIO
7979 void $ liftIO $ forkIO $ forever $ atomically . writeTChan vtyEvent =<< V.nextEvent vty
8080