mirror of
https://github.com/ilyakooo0/vty.git
synced 2024-12-03 14:17:18 +03:00
f6c3cbfa01
Ignore-this: e82f6a3b8eec33ab55fd04a51f4d9873 darcs-hash:20091228233218-f0a0d-345ddcbee616acc4f39d9d12393bdea5982f34d9.gz
13 lines
296 B
Haskell
13 lines
296 B
Haskell
import Graphics.Vty
|
|
import Graphics.Vty.Inline
|
|
|
|
main = do
|
|
t <- terminal_handle
|
|
putStr "Not styled. "
|
|
put_attr_change t $ back_color red >> apply_style underline
|
|
putStr " Styled! "
|
|
put_attr_change t $ default_all
|
|
putStrLn "Not styled."
|
|
release_terminal t
|
|
return ()
|