git.iko.soy/vty
on master help sign in
vty/test/Issue76.hs
17 lines 400 B history raw
1module Main where
3import Control.Monad (void)
4import Graphics.Vty
6main :: IO ()
7main = do
8 cfg <- standardIOConfig
9 vty <- mkVty cfg
10 let line1 = charFill (defAttr `withBackColor` blue) ' ' 10 1
11 line2 = charFill (defAttr `withBackColor` green) ' ' 10 1
12 img = translate 10 5 (line1 `vertJoin` line2)
13 pic = picForImage img
15 update vty pic
16 void $ nextEvent vty
17 shutdown vty