GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

revert an accidental change that I pushed together with the last patch

Browse Source
This commit is contained in:
kr.angelov
2014-08-11 11:44:49 +00:00
parent 03b067782c
commit a18c1709f3
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -23,7 +23,7 @@ encodeUnicode enc s =
where where
translate cod cbuf translate cod cbuf
| i < w = do bbuf <- newByteBuffer 128 WriteBuffer | i < w = do bbuf <- newByteBuffer 128 WriteBuffer
(cbuf,bbuf) <- cod cbuf bbuf (_,cbuf,bbuf) <- cod cbuf bbuf
if isEmptyBuffer bbuf if isEmptyBuffer bbuf
then ioe_invalidCharacter1 then ioe_invalidCharacter1
else do let bs = PS (bufRaw bbuf) (bufL bbuf) (bufR bbuf-bufL bbuf) else do let bs = PS (bufRaw bbuf) (bufL bbuf) (bufR bbuf-bufL bbuf)
@@ -48,7 +48,7 @@ decodeUnicodeIO enc (PS fptr l len) = do
where where
translate cod bbuf cbuf translate cod bbuf cbuf
| i < w = do | i < w = do
(bbuf,cbuf) <- cod bbuf cbuf (_,bbuf,cbuf) <- cod bbuf cbuf
if isEmptyBuffer cbuf if isEmptyBuffer cbuf
then ioe_invalidCharacter2 then ioe_invalidCharacter2
else unpack cod bbuf cbuf else unpack cod bbuf cbuf