mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-25 12:32:50 -06:00
minibar: include the grammar's last modification in the grammar info shown by the "i" button
Also bumped version number in gf.cabal to 3.6-darcs. Also removed some unecessary use of CPP.
This commit is contained in:
@@ -1,5 +1,3 @@
|
||||
{-# LANGUAGE CPP #-}
|
||||
|
||||
module GF.Text.Coding where
|
||||
|
||||
import qualified Data.ByteString as BS
|
||||
@@ -25,11 +23,7 @@ encodeUnicode enc s =
|
||||
where
|
||||
translate cod cbuf
|
||||
| i < w = do bbuf <- newByteBuffer 128 WriteBuffer
|
||||
#if __GLASGOW_HASKELL__ >= 702
|
||||
(_,cbuf,bbuf) <- cod cbuf bbuf
|
||||
#else
|
||||
(cbuf,bbuf) <- cod cbuf bbuf
|
||||
#endif
|
||||
if isEmptyBuffer bbuf
|
||||
then ioe_invalidCharacter1
|
||||
else do let bs = PS (bufRaw bbuf) (bufL bbuf) (bufR bbuf-bufL bbuf)
|
||||
@@ -54,11 +48,7 @@ decodeUnicodeIO enc (PS fptr l len) = do
|
||||
where
|
||||
translate 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
|
||||
then ioe_invalidCharacter2
|
||||
else unpack cod bbuf cbuf
|
||||
|
||||
Reference in New Issue
Block a user