GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-26 19:28:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

prepare for GHC 9, base 4.15, by using Buffer constructor interface

Browse Source
This commit is contained in:
Meng Weng Wong
2022-02-20 22:13:26 +08:00
committed by Inari Listenmaa
parent 1b41e94f83
commit 3a1213ab37
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Text/Coding.hs
View File

@@ -38,7 +38,7 @@ decodeUnicode :: TextEncoding -> ByteString -> String
decodeUnicode enc bs = unsafePerformIO $ decodeUnicodeIO enc bs decodeUnicode enc bs = unsafePerformIO $ decodeUnicodeIO enc bs
decodeUnicodeIO enc (PS fptr l len) = do 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 cbuf <- newCharBuffer 128 WriteBuffer
case enc of case enc of
TextEncoding {mkTextDecoder=mk} -> do decoder <- mk TextEncoding {mkTextDecoder=mk} -> do decoder <- mk