Permalink
Fetching contributors…
Cannot retrieve contributors at this time
15 lines (10 sloc) 493 Bytes
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)