git.iko.soy/vty
on b842e2f help sign in
vty/test/vty_inline_example.hs
12 lines 296 B history raw
1import Graphics.Vty
2import Graphics.Vty.Inline
4main = do
5 t <- terminal_handle
6 putStr "Not styled. "
7 put_attr_change t $ back_color red >> apply_style underline
8 putStr " Styled! "
9 put_attr_change t $ default_all
10 putStrLn "Not styled."
11 release_terminal t
12 return ()