mirror of
https://github.com/ilyakooo0/vty.git
synced 2024-12-02 08:53:43 +03:00
13 lines
314 B
Haskell
13 lines
314 B
Haskell
|
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
|
||
|
|
|