ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-12-01 22:53:37 +03:00
Code Issues Projects Releases Wiki Activity

style

Browse Source 
Ignore-this: 1275ad4578408ba22204579054062c71

darcs-hash:20100112235856-f0a0d-a27f8dea98f0bbf83bbea25929c9b1a1107c9d8e.gz
This commit is contained in:
coreyoconnor 2010-01-12 15:58:56 -08:00
parent 8c261253d5
commit 618d5469b0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Terminfo/Eval.hs
View File

@ -172,7 +172,7 @@ serialize_cap_op out_ptr DecOut = do
serialize_bytes out_bytes out_ptr
serialize_cap_op out_ptr CharOut = do
W# p <- pop
-- todo? Truncate the character value to a single byte?
-- XXX Truncate the character value to a single byte?
let !out_byte = W8# (and# p 0xFF##)
!out_ptr' = out_ptr `plusPtr` 1
liftIO $ poke out_ptr out_byte