style
Ignore-this: 1275ad4578408ba22204579054062c71
darcs-hash:20100112235856-f0a0d-a27f8dea98f0bbf83bbea25929c9b1a1107c9d8e.gz
commit618d5469b0b45c27afc9ca97c0bc71bf991a8bf1
authorcoreyoconnor <coreyoconnor@gmail.com>
dateTue 12 Jan 2010, 15:58 (17 years ago)
parent8c26125
src/Data/Terminfo/Eval.hs+1−1
@@ -172,7 +172,7 @@ serialize_cap_op out_ptr DecOut = do
172172 serialize_bytes out_bytes out_ptr
173173serialize_cap_op out_ptr CharOut = do
174174 W# p <- pop
175− -- todo? Truncate the character value to a single byte?
175+ -- XXX Truncate the character value to a single byte?
176176 let !out_byte = W8# (and# p 0xFF##)
177177 !out_ptr' = out_ptr `plusPtr` 1
178178 liftIO $ poke out_ptr out_byte