git.iko.soy/vty
on master help sign in
remove use of put_string in interactive_terminal_test
fddf5c9coreyoconnor
src/Graphics/Vty/Inline.hs+1
compare with master
unifiedsplit
@@ -94,4 +94,5 @@ put_attr_change t c = do
94 ( serialize_set_attr d fattr attr' diffs )
94 ( serialize_set_attr d fattr attr' diffs )
95 liftIO $ modifyIORef ( state_ref t ) $ \s -> s { known_fattr = Just fattr' }
95 liftIO $ modifyIORef ( state_ref t ) $ \s -> s { known_fattr = Just fattr' }
96 inline_hack d
96 inline_hack d
97+ liftIO $ hFlush stdout
97
98
test/interactive_terminal_test.hs+4−4
@@ -3,7 +3,6 @@
3module Main where
3module Main where
4
4
5import Graphics.Vty.Attributes
5import Graphics.Vty.Attributes
6−import Graphics.Vty.Image
7import Graphics.Vty.Inline
6import Graphics.Vty.Inline
8import Graphics.Vty.Picture
7import Graphics.Vty.Picture
9import Graphics.Vty.Terminal
8import Graphics.Vty.Terminal
@@ -912,11 +911,11 @@ inline_test_2 = Test
912 , test_ID = "inline_test_1"
911 , test_ID = "inline_test_1"
913 , test_action = do
912 , test_action = do
914 t <- terminal_handle
913 t <- terminal_handle
915− put_string t "Not styled. "
914+ putStr "Not styled. "
916 put_attr_change t $ back_color red >> apply_style underline
915 put_attr_change t $ back_color red >> apply_style underline
917− put_string t " Styled! "
916+ putStr " Styled! "
918 put_attr_change t $ default_all
917 put_attr_change t $ default_all
919− put_string t "Not styled.\n"
918+ putStr "Not styled.\n"
920 release_terminal t
919 release_terminal t
921 return ()
920 return ()
922 , print_summary = putStr $ [$heredoc|
921 , print_summary = putStr $ [$heredoc|
@@ -924,3 +923,4 @@ inline_test_2 = Test
924
923
925 , confirm_results = generic_output_match_confirm
924 , confirm_results = generic_output_match_confirm
926 }
925 }
926+