git.iko.soy/vty
on master help sign in
-

Ignore-this: aa036ec35ef000a0c4e66c8236f7641c darcs-hash:20091109074043-f0a0d-880cb60439b1dc6089511224431f3b1eb54e5c93.gz

commitd506ea570e36bbab4ff81e3ec0ebe8d58a1845ee authorcoreyoconnor <coreyoconnor@gmail.com> dateSun 8 Nov 2009, 23:40 (17 years ago) parent7f75f0d
2 files changed+5−6
compare with master
unifiedsplit
src/Graphics/Vty/Terminal/TerminfoBased.hs+1−2 test/interactive_terminal_test.hs+4−4
src/Graphics/Vty/Terminal/TerminfoBased.hs+1−2
@@ -299,8 +299,7 @@ instance DisplayTerminal DisplayContext where
299299 default_attr_required_bytes d
300300 = cap_expression_required_bytes (set_default_attr $ term d) []
301301 serialize_default_attr d out_ptr = do
302− out_ptr' <- serialize_cap_expression (set_default_attr $ term d) [] out_ptr
303− return out_ptr'
302+ serialize_cap_expression ( set_default_attr $ term d ) [] out_ptr
304303
305304ansi_color_index :: Color -> Word
306305ansi_color_index (ISOColor v) = toEnum $ fromEnum v
test/interactive_terminal_test.hs+4−4
@@ -852,17 +852,17 @@ inline_test_0 = Test
852852 , test_ID = "inline_test_0"
853853 , test_action = do
854854 t <- terminal_handle
855− putStrLn "line 0."
856− put_attr_change t $ back_color red >> apply_style underline
857855 putStrLn "line 1."
858− put_default_attr t
856+ put_attr_change t $ back_color red >> apply_style underline
859857 putStrLn "line 2."
858+ put_default_attr t
860859 putStrLn "line 3."
861860 release_terminal t
862861 return ()
863862 , print_summary = putStr $ [$heredoc|
864863lines are in order.
865−the second line "line 1" should have a red background and the text underline.
864+The second line "line 2" should have a red background and the text underline.
865+The third line "line 3" should be drawn in the same style as the first line.
866866|]
867867
868868 , confirm_results = generic_output_match_confirm