on 5.29 help sign in
vty/test/vty_inline_example.hs
9 lines 229 B history raw
1import Graphics.Vty
2import Graphics.Vty.Inline
4main = do
5 putStr "Not styled. "
6 putAttrChange_ t $ backColor red >> applyStyle underline
7 putStr " Styled! "
8 putAttrChange_ t $ defaultAll
9 putStrLn "Not styled."