module Graphics.Vty.ControlStrings 
    where

csi, cvis, civis :: String

csi = "\ESC["

setCursorPosition :: Int -> Int -> String
setCursorPosition row column = csi ++ show row ++ ";" ++ show column ++ "H"

-- | Show the cursor
cvis = csi ++ "?25h" 

-- | Hide the cursor
civis = csi ++ "?25l"