use fromIntegral to resolve ghc 7.6 compile issue.
commitc482f974570821397d8b0ab0922ce2bc1f8b81fa
authorCorey O'Connor <corey@ooyala.com>
dateFri 2 Nov 2012, 01:05 (14 years ago)
parentc231d05
src/Data/Terminfo/Eval.hs+1−1
@@ -166,7 +166,7 @@ serialize_cap_op !out_ptr ( Bytes !offset !byte_count !next_offset ) = do
166166 let ( !start_ptr, _ ) = cap_bytes cap
167167 !src_ptr = start_ptr `plusPtr` offset
168168 !out_ptr' = out_ptr `plusPtr` next_offset
169− liftIO $! memcpy out_ptr src_ptr byte_count
169+ liftIO $! memcpy out_ptr src_ptr (fromIntegral byte_count)
170170 return $! out_ptr'
171171serialize_cap_op out_ptr DecOut = do
172172 p <- pop