@@ -34,14 +34,8 @@ remove_style s_mask = modify $ \attr ->
3434 SetTo s -> s .&. complement s_mask
3535 in attr { attr_style = SetTo style' }
3636
37−put_default_attr :: ( Applicative m, MonadIO m ) => TerminalHandle -> m ()
38−put_default_attr t = do
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 }
44− inline_hack d
37+default_all :: AttrChange ()
38+default_all = put def_attr
4539
4640put_attr_change :: ( Applicative m, MonadIO m ) => TerminalHandle -> AttrChange () -> m ()
4741put_attr_change t c = do
@@ -60,4 +54,5 @@ put_attr_change t c = do
6054 marshall_to_terminal t ( attr_required_bytes d fattr attr' diffs )
6155 ( serialize_set_attr d fattr attr' diffs )
6256 liftIO $ modifyIORef ( state_ref t ) $ \s -> s { known_fattr = Just fattr' }
57+ inline_hack d
6358