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

use fromIntegral to resolve ghc 7.6 compile issue.

Browse Source
This commit is contained in:
Corey O'Connor 2012-11-02 01:05:00 -07:00
parent c231d05a4a
commit c482f97457
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

@ -166,7 +166,7 @@ serialize_cap_op !out_ptr ( Bytes !offset !byte_count !next_offset ) = do
let ( !start_ptr, _ ) = cap_bytes cap
!src_ptr = start_ptr `plusPtr` offset
!out_ptr' = out_ptr `plusPtr` next_offset
liftIO $! memcpy out_ptr src_ptr byte_count
liftIO $! memcpy out_ptr src_ptr (fromIntegral byte_count)
return $! out_ptr'
serialize_cap_op out_ptr DecOut = do
p <- pop