git.iko.soy/vty
on master help sign in
-
d506ea5coreyoconnor
src/Graphics/Vty/Terminal/TerminfoBased.hs+1−2
compare with master
unifiedsplit
@@ -299,8 +299,7 @@ instance DisplayTerminal DisplayContext where
299 default_attr_required_bytes d
299 default_attr_required_bytes d
300 = cap_expression_required_bytes (set_default_attr $ term d) []
300 = cap_expression_required_bytes (set_default_attr $ term d) []
301 serialize_default_attr d out_ptr = do
301 serialize_default_attr d out_ptr = do
302− out_ptr' <- serialize_cap_expression (set_default_attr $ term d) [] out_ptr
302+ serialize_cap_expression ( set_default_attr $ term d ) [] out_ptr
303− return out_ptr'
304
303
305ansi_color_index :: Color -> Word
304ansi_color_index :: Color -> Word
306ansi_color_index (ISOColor v) = toEnum $ fromEnum v
305ansi_color_index (ISOColor v) = toEnum $ fromEnum v
test/interactive_terminal_test.hs+4−4
@@ -852,17 +852,17 @@ inline_test_0 = Test
852 , test_ID = "inline_test_0"
852 , test_ID = "inline_test_0"
853 , test_action = do
853 , test_action = do
854 t <- terminal_handle
854 t <- terminal_handle
855− putStrLn "line 0."
856− put_attr_change t $ back_color red >> apply_style underline
857 putStrLn "line 1."
855 putStrLn "line 1."
858− put_default_attr t
856+ put_attr_change t $ back_color red >> apply_style underline
859 putStrLn "line 2."
857 putStrLn "line 2."
858+ put_default_attr t
860 putStrLn "line 3."
859 putStrLn "line 3."
861 release_terminal t
860 release_terminal t
862 return ()
861 return ()
863 , print_summary = putStr $ [$heredoc|
862 , print_summary = putStr $ [$heredoc|
864lines are in order.
863lines 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.
866|]
866|]
867
867
868 , confirm_results = generic_output_match_confirm
868 , confirm_results = generic_output_match_confirm