diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2014-08-11 11:44:49 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2014-08-11 11:44:49 +0000 |
| commit | d3b9652b81e3d43bfb0de9faf4aea578c60e5cc4 (patch) | |
| tree | 6fb056f6e6409aa68f3d3b8ad2e2043d74e666ea /src/compiler/GF/Text | |
| parent | 584d589041f63fdd3ea777019679275657902c2d (diff) | |
revert an accidental change that I pushed together with the last patch
Diffstat (limited to 'src/compiler/GF/Text')
| -rw-r--r-- | src/compiler/GF/Text/Coding.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Text/Coding.hs b/src/compiler/GF/Text/Coding.hs index 661547421..bac7938c0 100644 --- a/src/compiler/GF/Text/Coding.hs +++ b/src/compiler/GF/Text/Coding.hs @@ -23,7 +23,7 @@ encodeUnicode enc s = where translate cod cbuf | i < w = do bbuf <- newByteBuffer 128 WriteBuffer - (cbuf,bbuf) <- cod cbuf bbuf + (_,cbuf,bbuf) <- cod cbuf bbuf if isEmptyBuffer bbuf then ioe_invalidCharacter1 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 translate cod bbuf cbuf | i < w = do - (bbuf,cbuf) <- cod bbuf cbuf + (_,bbuf,cbuf) <- cod bbuf cbuf if isEmptyBuffer cbuf then ioe_invalidCharacter2 else unpack cod bbuf cbuf |