test1.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

import Data.Default
import Graphics.Vty


main = do
      vty <- mkVty def
      let line0 = string (def withForeColor $ ISOColor 3) "first line"
          line1 = string (def withBackColor blue) "second line"
          img = line0 <-> line1
          pic = picForImage img
      update vty pic
      e <- nextEvent vty
      shutdown vty
      print $ "Last event was: " ++ show e