vty-4.0.0: test/yi_issue_264.hs

module Main where
import Graphics.Vty
import Control.Exception

catchLog = handle (\except -> do putStrLn $ show (except :: IOException))

main = do
  vty <- mkVty
  catchLog $ update vty pic { pImage = empty, pCursor = NoCursor }
  catchLog $ update vty pic { pImage = empty, pCursor = NoCursor }
  shutdown vty