vty/test/vty_inline_example.hs

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."