git.iko.soy/reflex-vty
on develop help sign in
Whitespace
75de665Ali Abrar
src/Reflex/Vty.hs+1−1
compare with develop
unifiedsplit
@@ -74,7 +74,7 @@ host vtyGuest = runSpiderHost $ do
74 updateVty
74 updateVty
75
75
76 shutdown <- subscribeEvent $ _vtyResult_shutdown r
76 shutdown <- subscribeEvent $ _vtyResult_shutdown r
77−
77+
78 vtyEvent <- liftIO newTChanIO
78 vtyEvent <- liftIO newTChanIO
79 void $ liftIO $ forkIO $ forever $ atomically . writeTChan vtyEvent =<< V.nextEvent vty
79 void $ liftIO $ forkIO $ forever $ atomically . writeTChan vtyEvent =<< V.nextEvent vty
80
80