git.iko.soy/vty
on 5edacaa help sign in
vty/test/Test2.hs
12 lines 234 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 shutdown vty
10 putStrLn "Done!"
11 return ()