git.iko.soy/vty
on 72a016a help sign in
vty/test/MinimalExample.hs
16 lines 380 B history raw
1module Main where
3import Graphics.Vty
5import Data.Default
7main = do
8 vty <- mkVty def
9 let line0 = string (def `withForeColor` green) "first line"
10 line1 = string (def `withBackColor` blue) "second line"
11 img = line0 <-> line1
12 pic = picForImage img
13 update vty pic
14 e <- nextEvent vty
15 shutdown vty
16 print $ "Last event was: " ++ show e