@@ -75,14 +75,15 @@ instance Monoid Buffer where
76 memcpy (ptr0 `plusPtr` (off0+len0))
76 memcpy (ptr0 `plusPtr` (off0+len0))
77 (ptr1 `plusPtr` off1)
77 (ptr1 `plusPtr` off1)
78− len1
78+ (fromIntegral len1)
79 return (Buf fp0 off0 newlen cap0)
79 return (Buf fp0 off0 newlen cap0)
81 let newcap = newlen * 2
81 let newcap = newlen * 2
82 fp <- mallocPlainForeignPtrBytes newcap
82 fp <- mallocPlainForeignPtrBytes newcap
83 withForeignPtr fp $ \ptr -> do
83 withForeignPtr fp $ \ptr -> do
84− memcpy ptr (ptr0 `plusPtr` off0) len0
84+ memcpy ptr (ptr0 `plusPtr` off0) (fromIntegral len0)
85− memcpy (ptr `plusPtr` len0) (ptr1 `plusPtr` off1) len1
85+ memcpy (ptr `plusPtr` len0) (ptr1 `plusPtr` off1)
86 return (Buf fp 0 newlen newcap)
87 return (Buf fp 0 newlen newcap)
88 mconcat [] = mempty
89 mconcat [] = mempty