git.iko.soy/vty
on master help sign in
remove use of put_string in interactive_terminal_test

Ignore-this: 437fabe080cf23c005b11eb1d09f974e darcs-hash:20100907050742-f0a0d-3a331931909c1170fafa389cf71b27e6215c9eee.gz

commitfddf5c977a0fbec1be3fe88207fcb274878da6ba authorcoreyoconnor <coreyoconnor@gmail.com> dateMon 6 Sep 2010, 22:07 (16 years ago) parentdbcbe58
2 files changed+5−4
compare with master
unifiedsplit
src/Graphics/Vty/Inline.hs+1 test/interactive_terminal_test.hs+4−4
src/Graphics/Vty/Inline.hs+1
@@ -94,4 +94,5 @@ put_attr_change t c = do
9494 ( serialize_set_attr d fattr attr' diffs )
9595 liftIO $ modifyIORef ( state_ref t ) $ \s -> s { known_fattr = Just fattr' }
9696 inline_hack d
97+ liftIO $ hFlush stdout
9798
test/interactive_terminal_test.hs+4−4
@@ -3,7 +3,6 @@
33module Main where
44
55import Graphics.Vty.Attributes
6−import Graphics.Vty.Image
76import Graphics.Vty.Inline
87import Graphics.Vty.Picture
98import Graphics.Vty.Terminal
@@ -912,11 +911,11 @@ inline_test_2 = Test
912911 , test_ID = "inline_test_1"
913912 , test_action = do
914913 t <- terminal_handle
915− put_string t "Not styled. "
914+ putStr "Not styled. "
916915 put_attr_change t $ back_color red >> apply_style underline
917− put_string t " Styled! "
916+ putStr " Styled! "
918917 put_attr_change t $ default_all
919− put_string t "Not styled.\n"
918+ putStr "Not styled.\n"
920919 release_terminal t
921920 return ()
922921 , print_summary = putStr $ [$heredoc|
@@ -924,3 +923,4 @@ inline_test_2 = Test
924923
925924 , confirm_results = generic_output_match_confirm
926925 }
926+