@@ -34,14 +34,8 @@ remove_style s_mask = modify $ \attr ->
34 SetTo s -> s .&. complement s_mask
34 SetTo s -> s .&. complement s_mask
35 in attr { attr_style = SetTo style' }
35 in attr { attr_style = SetTo style' }
37−put_default_attr :: ( Applicative m, MonadIO m ) => TerminalHandle -> m ()
37+default_all :: AttrChange ()
38−put_default_attr t = do
38+default_all = put def_attr
39− bounds <- display_bounds t
40− d <- display_context t bounds
41− marshall_to_terminal t ( default_attr_required_bytes d )
42− ( serialize_default_attr d )
43− liftIO $ modifyIORef ( state_ref t ) $ \s -> s { known_fattr = Just $ FixedAttr default_style_mask Nothing Nothing }
46put_attr_change :: ( Applicative m, MonadIO m ) => TerminalHandle -> AttrChange () -> m ()
40put_attr_change :: ( Applicative m, MonadIO m ) => TerminalHandle -> AttrChange () -> m ()
47put_attr_change t c = do
41put_attr_change t c = do
@@ -60,4 +54,5 @@ put_attr_change t c = do
60 marshall_to_terminal t ( attr_required_bytes d fattr attr' diffs )
54 marshall_to_terminal t ( attr_required_bytes d fattr attr' diffs )
61 ( serialize_set_attr d fattr attr' diffs )
55 ( serialize_set_attr d fattr attr' diffs )
62 liftIO $ modifyIORef ( state_ref t ) $ \s -> s { known_fattr = Just fattr' }
56 liftIO $ modifyIORef ( state_ref t ) $ \s -> s { known_fattr = Just fattr' }