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

compiler/GF/Text/Coding.hs: fix build failure against ghc-7.2

Browse Source
This commit is contained in:
Sergei Trofimovich
2012-03-26 20:48:57 +00:00
parent 24740d250b
commit c015ac77bd
1 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,3 +1,5 @@
{-# LANGUAGE CPP #-}
module GF.Text.Coding where module GF.Text.Coding where
import qualified Data.ByteString as BS import qualified Data.ByteString as BS
@@ -23,7 +25,11 @@ 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
#if __GLASGOW_HASKELL__ >= 702
(_,cbuf,bbuf) <- cod cbuf bbuf
#else
(cbuf,bbuf) <- cod cbuf bbuf (cbuf,bbuf) <- cod cbuf bbuf
#endif
if isEmptyBuffer bbuf if isEmptyBuffer bbuf
then ioe_invalidCharacter then ioe_invalidCharacter
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)
@@ -46,7 +52,12 @@ decodeUnicode enc (PS fptr l len) =
return s return s
where where
translate cod bbuf cbuf translate cod bbuf cbuf
| i < w = do (bbuf,cbuf) <- cod bbuf cbuf | i < w = do
#if __GLASGOW_HASKELL__ >= 702
(_,bbuf,cbuf) <- cod bbuf cbuf
#else
(bbuf,cbuf) <- cod bbuf cbuf
#endif
if isEmptyBuffer cbuf if isEmptyBuffer cbuf
then ioe_invalidCharacter then ioe_invalidCharacter
else unpack cod bbuf cbuf else unpack cod bbuf cbuf