-- bufferchain_output bc@(BufferChain lst len) (ptr::Ptr CChar) =
--   copybuf ptr lst
--   where copybuf ptrDest [] = return ()
--         copybuf ptrDest (x:xs) =
--           withForeignPtr (buf_ptr x)
--             (\ptrSrc -> do
--                  copyArray ptrDest (ptrSrc `plusPtr` (buf_offset x)) (buf_len x)
--                  copybuf (ptrDest `plusPtr` (buf_len x)) xs
--             )

bufferchain_ok :: BufferChain -> Bool
bufferchain_ok _ = True
bufferchain_ok :: BufferChain -> Bool
bufferchain_ok _ = True
bufferchain_ok _ = True