From ebd98056ce9d478f0aca68d752a49d87f7431ec9 Mon Sep 17 00:00:00 2001 From: krasimir Date: Tue, 28 Oct 2008 13:57:10 +0000 Subject: binary serialization for PGF --- src/GF/Compile/Export.hs | 7 ------- 1 file changed, 7 deletions(-) (limited to 'src/GF/Compile/Export.hs') diff --git a/src/GF/Compile/Export.hs b/src/GF/Compile/Export.hs index 575a9dc84..64b4aeabf 100644 --- a/src/GF/Compile/Export.hs +++ b/src/GF/Compile/Export.hs @@ -2,8 +2,6 @@ module GF.Compile.Export where import PGF.CId import PGF.Data (PGF(..)) -import PGF.Raw.Print (printTree) -import PGF.Raw.Convert (fromPGF) import GF.Compile.GFCCtoHaskell import GF.Compile.GFCCtoProlog import GF.Compile.GFCCtoJS @@ -32,7 +30,6 @@ exportPGF :: Options -> [(FilePath,String)] -- ^ List of recommended file names and contents. exportPGF opts fmt pgf = case fmt of - FmtPGF -> multi "pgf" printPGF FmtPGFPretty -> multi "txt" prPGFPretty FmtJavaScript -> multi "js" pgf2js FmtHaskell -> multi "hs" (grammar2haskell opts name) @@ -65,7 +62,3 @@ outputConcr :: PGF -> CId outputConcr pgf = case cncnames pgf of [] -> error "No concrete syntax." cnc:_ -> cnc - -printPGF :: PGF -> String -printPGF = encodeUTF8 . printTree . fromPGF - -- cgit v1.2.3