diff options
| author | John J. Camilleri <john@digitalgrammars.com> | 2022-06-18 21:09:23 +0200 |
|---|---|---|
| committer | John J. Camilleri <john@digitalgrammars.com> | 2022-06-18 21:09:23 +0200 |
| commit | 65308861bc6cd899d0fcf3695a382e8016d40a05 (patch) | |
| tree | 50bfb648eb6cd32cf6798d5700c6bfa4199665c1 /src/compiler/GF/Text/Coding.hs | |
| parent | 9f2a3de7a3cc0db2db741b7f9766681a95e729ff (diff) | |
| parent | b7672b67a39fb46f3ba8dbacca96babb04fca82c (diff) | |
Merge branch 'master' of github.com:GrammaticalFramework/gf-core
Diffstat (limited to 'src/compiler/GF/Text/Coding.hs')
| -rw-r--r-- | src/compiler/GF/Text/Coding.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Text/Coding.hs b/src/compiler/GF/Text/Coding.hs index bac7938c0..2a89427fe 100644 --- a/src/compiler/GF/Text/Coding.hs +++ b/src/compiler/GF/Text/Coding.hs @@ -38,7 +38,7 @@ decodeUnicode :: TextEncoding -> ByteString -> String decodeUnicode enc bs = unsafePerformIO $ decodeUnicodeIO enc bs decodeUnicodeIO enc (PS fptr l len) = do - let bbuf = Buffer{bufRaw=fptr, bufState=ReadBuffer, bufSize=len, bufL=l, bufR=l+len} + let bbuf = (emptyBuffer fptr len ReadBuffer) { bufL=l, bufR=l+len } cbuf <- newCharBuffer 128 WriteBuffer case enc of TextEncoding {mkTextDecoder=mk} -> do decoder <- mk |