From ebd98056ce9d478f0aca68d752a49d87f7431ec9 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Tue, 28 Oct 2008 13:57:10 +0000
Subject: binary serialization for PGF

---
 src/PGF.hs | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'src/PGF.hs')

diff --git a/src/PGF.hs b/src/PGF.hs
index 38031dcbd..ac7deb537 100644
--- a/src/PGF.hs
+++ b/src/PGF.hs
@@ -66,9 +66,7 @@ import PGF.TypeCheck
 import PGF.Paraphrase
 import PGF.Macros
 import PGF.Data
-import PGF.Raw.Convert
-import PGF.Raw.Parse
-import PGF.Raw.Print (printTree)
+import PGF.Binary
 import PGF.Parsing.FCFG
 import qualified PGF.Parsing.FCFG.Incremental as Incremental
 import qualified GF.Compile.GeneratePMCFG as PMCFG
@@ -80,6 +78,7 @@ import GF.Data.Utilities (replace)
 import Data.Char
 import qualified Data.Map as Map
 import Data.Maybe
+import Data.Binary
 import System.Random (newStdGen)
 import Control.Monad
 
@@ -210,9 +209,8 @@ readLanguage = readCId
 showLanguage = prCId
 
 readPGF f = do
-  s <- readFile f >>= return . decodeUTF8 -- pgf is in UTF8, internal in unicode
-  g <- parseGrammar s
-  return $! addParsers $ toPGF g
+  g <- decodeFile f
+  return $! addParsers g
 
 -- Adds parsers for all concretes that don't have a parser and that have parser=ondemand.
 addParsers :: PGF -> PGF
-- 
cgit v1.2.3