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