@@ -15,18 +15,18 @@ import Data.Bits ( (.&.), complement )
1515import Data.IORef
1616import Data.Monoid ( mappend )
1717
18−type AttrChange v = State Attr v
18+type InlineM v = State Attr v
1919
20−back_color :: Color -> AttrChange ()
20+back_color :: Color -> InlineM ()
2121back_color c = modify $ flip mappend ( current_attr `with_back_color` c )
2222
23−fore_color :: Color -> AttrChange ()
23+fore_color :: Color -> InlineM ()
2424fore_color c = modify $ flip mappend ( current_attr `with_fore_color` c )
2525
26−apply_style :: Style -> AttrChange ()
26+apply_style :: Style -> InlineM ()
2727apply_style s = modify $ flip mappend ( current_attr `with_style` s )
2828
29−remove_style :: Style -> AttrChange ()
29+remove_style :: Style -> InlineM ()
3030remove_style s_mask = modify $ \attr ->
3131 let style' = case attr_style attr of
3232 Default -> error $ "Graphics.Vty.Inline: Cannot remove_style if apply_style never used."
@@ -34,10 +34,10 @@ remove_style s_mask = modify $ \attr ->
3434 SetTo s -> s .&. complement s_mask
3535 in attr { attr_style = SetTo style' }
3636
37−default_all :: AttrChange ()
37+default_all :: InlineM ()
3838default_all = put def_attr
3939
40−put_attr_change :: ( Applicative m, MonadIO m ) => TerminalHandle -> AttrChange () -> m ()
40+put_attr_change :: ( Applicative m, MonadIO m ) => TerminalHandle -> InlineM () -> m ()
4141put_attr_change t c = do
4242 bounds <- display_bounds t
4343 d <- display_context t bounds