git.iko.soy/vty
on master help sign in
vty/test/Test2.hs
14 lines 252 B history raw
1module Main where
3import Graphics.Vty
5main = do
6 vty <- mkVty
7 (sx,sy) <- getSize vty
8 update vty (pic { pImage = renderFill (setBG red attr) 'X' sx sy })
9 refresh vty
10 getEvent vty
11 shutdown vty
12 putStrLn "Done!"
13 return ()