ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-10-04 11:17:08 +03:00
Code Issues Projects Releases Wiki Activity

compile fixes

Browse Source 
Ignore-this: afd25b5fd8ab6275aaccd74ce2a5e994

darcs-hash:20100114080519-f0a0d-e18d467a1ac0f09452c697f996f131d12e1c2d4a.gz
This commit is contained in:
coreyoconnor 2010-01-14 00:05:19 -08:00
parent aacb4abe7c
commit e110cc1e0e
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Graphics/Vty/Inline.hs
View File

@ -44,15 +44,15 @@ put_attr_change t c = do
mfattr <- liftIO $ known_fattr <$> readIORef ( state_ref t )
fattr <- case mfattr of
Nothing -> do
marshall_to_terminal t (default_attr_required_bytes d) (serialize_default_attr d)
liftIO $ marshall_to_terminal t (default_attr_required_bytes d) (serialize_default_attr d)
return $ FixedAttr default_style_mask Nothing Nothing
Just v -> return v
let attr = execState c current_attr
attr' = limit_attr_for_display d attr
fattr' = fix_display_attr fattr attr'
diffs = display_attr_diffs fattr fattr'
marshall_to_terminal t ( attr_required_bytes d fattr attr' diffs )
( serialize_set_attr d fattr attr' diffs )
liftIO $ marshall_to_terminal t ( attr_required_bytes d fattr attr' diffs )
( serialize_set_attr d fattr attr' diffs )
liftIO $ modifyIORef ( state_ref t ) $ \s -> s { known_fattr = Just fattr' }
inline_hack d

2
test/Verify/Data/Terminfo/Parse.hs
View File

@ -102,7 +102,7 @@ bytes_for_range cap offset c
collect_bytes :: CapExpression -> [Word8]
collect_bytes e = concat [ bytes
| Bytes offset c <- cap_ops e
| Bytes offset c _ <- cap_ops e
, let bytes = bytes_for_range e offset c
]