vty/test/vty_inline_example.hs
2014-04-11 17:51:13 -07:00

10 lines
229 B
Haskell

import Graphics.Vty
import Graphics.Vty.Inline
main = do
putStr "Not styled. "
putAttrChange_ t $ backColor red >> applyStyle underline
putStr " Styled! "
putAttrChange_ t $ defaultAll
putStrLn "Not styled."