@@ -20,9 +20,8 @@ guest e = do
20 leftmost [show <$> e, show <$> ticks]
20 leftmost [show <$> e, show <$> ticks]
21 return $ VtyResult
21 return $ VtyResult
22 { _vtyResult_picture = picture
22 { _vtyResult_picture = picture
23− , _vtyResult_refresh = never
24 , _vtyResult_shutdown = shutdown
23 , _vtyResult_shutdown = shutdown
27main :: IO ()
26main :: IO ()
28−main = host guest
27+main = runVtyApp guest