diff options
Diffstat (limited to 'test1.hs')
-rw-r--r-- | test1.hs | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/test1.hs b/test1.hs deleted file mode 100644 index 43f3098..0000000 --- a/test1.hs +++ /dev/null @@ -1,14 +0,0 @@ -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 |