mirror of
https://github.com/ilyakooo0/vty.git
synced 2024-11-29 08:49:40 +03:00
15 lines
493 B
Haskell
15 lines
493 B
Haskell
module Main where
|
|
|
|
import Graphics.Vty.ControlStrings
|
|
|
|
import System.Console.Terminfo
|
|
|
|
main = do
|
|
terminal <- setupTermFromEnv
|
|
controlTable <- init_controlTable terminal
|
|
putStrLn $ "ANSI terminal show cursor string: " ++ show cvis
|
|
putStrLn $ "Current terminal show cursor string: " ++ show (showCursorStr controlTable)
|
|
putStrLn $ "ANSI terminal hide cursor string: " ++ show civis
|
|
putStrLn $ "Current terminal hide cursor string: " ++ show (hideCursorStr controlTable)
|
|
|