on master help sign in
Finish streamDecodeUtf8With
commit377a23e271dbb19be24eb0f41307ca9c646aad19 authorLuigy Leon <luigy@outlook.com> dateWed 5 Oct 2016, 18:40 (10 years ago) parent44ceb33
1 file changed+2−3
Data/Text/Encoding.hs+2−3
Data/Text/Encoding.hs+2−3
@@ -286,9 +286,8 @@ streamDecodeUtf8With onErr = decodeChunk B.empty 0 0
286286 let end = ptr `plusPtr` (off + len)
287287 loop curPtr = do
288288 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
291− -- curPtrPtr end codepointPtr statePtr
289+ curPtr' <- c_decode_utf8_with_state (A.maBA dest) destOffPtr
290+ curPtrPtr end codepointPtr statePtr
292291 state <- peek statePtr
293292 case state of
294293 UTF8_REJECT -> do