@@ -286,9 +286,8 @@ streamDecodeUtf8With onErr = decodeChunk B.empty 0 0
286 let end = ptr `plusPtr` (off + len)
286 let end = ptr `plusPtr` (off + len)
287 loop curPtr = do
287 loop curPtr = do
288 poke curPtrPtr curPtr
288 poke curPtrPtr curPtr
289− curPtr' <- error "c_decode_utf8_with_state: needs to be implemented"
290− -- curPtr' <- c_decode_utf8_with_state (A.maBA dest) destOffPtr
289+ curPtr' <- c_decode_utf8_with_state (A.maBA dest) destOffPtr
291− -- curPtrPtr end codepointPtr statePtr
290+ curPtrPtr end codepointPtr statePtr
292 state <- peek statePtr
291 state <- peek statePtr
293 case state of
292 case state of
294 UTF8_REJECT -> do
293 UTF8_REJECT -> do