mirror of
https://github.com/ilyakooo0/vty.git
synced 2024-11-30 02:13:36 +03:00
13 lines
234 B
Haskell
13 lines
234 B
Haskell
|
module Main where
|
||
|
|
import Graphics.Vty
|
||
|
|
|
||
|
|
main = do
|
||
|
|
vty <- mkVty
|
||
|
|
(sx,sy) <- getSize vty
|
||
|
|
update vty (pic { pImage = renderFill (setBG red attr) 'X' sx sy })
|
||
|
|
refresh vty
|
||
|
|
shutdown vty
|
||
|
|
putStrLn "Done!"
|
||
|
|
return ()
|
||
|
|
|