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