git.iko.soy/vty
on master help sign in
vty/test/YiIssue264.hs
13 lines 315 B history raw
1module Main where
3import Graphics.Vty
4import Control.Exception
6catchLog = handle (\except -> do putStrLn $ show (except :: IOException))
8main = do
9 vty <- mkVty
10 catchLog $ update vty pic { pImage = empty, pCursor = NoCursor }
11 catchLog $ update vty pic { pImage = empty, pCursor = NoCursor }
12 shutdown vty