mirror of
https://github.com/ilyakooo0/vty.git
synced 2024-10-04 11:17:08 +03:00
15 lines
502 B
Haskell
15 lines
502 B
Haskell
|
module Main where
|
||
|
|
|
||
|
|
import Graphics.Vty.ControlStrings
|
||
|
|
|
||
|
|
import System.Console.Terminfo
|
||
|
|
|
||
|
|
main = do
|
||
|
|
terminal <- setupTermFromEnv
|
||
|
|
control_table <- init_control_table terminal
|
||
|
|
putStrLn $ "ANSI terminal show cursor string: " ++ show cvis
|
||
|
|
putStrLn $ "Current terminal show cursor string: " ++ show (show_cursor_str control_table)
|
||
|
|
putStrLn $ "ANSI terminal hide cursor string: " ++ show civis
|
||
|
|
putStrLn $ "Current terminal hide cursor string: " ++ show (hide_cursor_str control_table)
|
||
|
|
|