vty/test/vty_inline_example.hs

10 lines
236 B
Haskell

import Graphics.Vty
import Graphics.Vty.Inline
main = do
putStr "Not styled. "
put_attr_change_ t $ back_color red >> apply_style underline
putStr " Styled! "
put_attr_change_ t $ default_all
putStrLn "Not styled."