@@ -75,14 +75,15 @@ instance Monoid Buffer where
7575 then do
7676 memcpy (ptr0 `plusPtr` (off0+len0))
7777 (ptr1 `plusPtr` off1)
78− len1
78+ (fromIntegral len1)
7979 return (Buf fp0 off0 newlen cap0)
8080 else do
8181 let newcap = newlen * 2
8282 fp <- mallocPlainForeignPtrBytes newcap
8383 withForeignPtr fp $ \ptr -> do
84− memcpy ptr (ptr0 `plusPtr` off0) len0
85− memcpy (ptr `plusPtr` len0) (ptr1 `plusPtr` off1) len1
84+ memcpy ptr (ptr0 `plusPtr` off0) (fromIntegral len0)
85+ memcpy (ptr `plusPtr` len0) (ptr1 `plusPtr` off1)
86+ (fromIntegral len1)
8687 return (Buf fp 0 newlen newcap)
8788
8889 mconcat [] = mempty