git.iko.soy/vty
on dc74901 help sign in
vty/test/ControlTable.hs
14 lines 502 B history raw
1module Main where
3import Graphics.Vty.ControlStrings
5import System.Console.Terminfo
7main = do
8 terminal <- setupTermFromEnv
9 control_table <- init_control_table terminal
10 putStrLn $ "ANSI terminal show cursor string: " ++ show cvis
11 putStrLn $ "Current terminal show cursor string: " ++ show (show_cursor_str control_table)
12 putStrLn $ "ANSI terminal hide cursor string: " ++ show civis
13 putStrLn $ "Current terminal hide cursor string: " ++ show (hide_cursor_str control_table)