From 9b362ff231efbd43ffb4f1c6285c41a34caf3777 Mon Sep 17 00:00:00 2001 From: krasimir Date: Sun, 17 Jan 2010 21:35:36 +0000 Subject: PGF is now real synchronous PMCFG --- src/compiler/GF/Compile/Export.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/compiler/GF/Compile/Export.hs') diff --git a/src/compiler/GF/Compile/Export.hs b/src/compiler/GF/Compile/Export.hs index 29f35e32a..463a48aa6 100644 --- a/src/compiler/GF/Compile/Export.hs +++ b/src/compiler/GF/Compile/Export.hs @@ -2,10 +2,10 @@ module GF.Compile.Export where import PGF.CId import PGF.Data (PGF(..)) +import PGF.Printer import GF.Compile.PGFtoHaskell import GF.Compile.PGFtoProlog import GF.Compile.PGFtoJS -import GF.Compile.PGFPretty import GF.Infra.Option import GF.Speech.CFG import GF.Speech.PGFToCFG @@ -20,6 +20,7 @@ import GF.Speech.PrRegExp import Data.Maybe import System.FilePath +import Text.PrettyPrint -- top-level access to code generation @@ -29,8 +30,7 @@ exportPGF :: Options -> [(FilePath,String)] -- ^ List of recommended file names and contents. exportPGF opts fmt pgf = case fmt of - FmtPGFPretty -> multi "txt" prPGFPretty - FmtPMCFGPretty -> single "pmcfg" prPMCFGPretty + FmtPGFPretty -> multi "txt" (render . ppPGF) FmtJavaScript -> multi "js" pgf2js FmtHaskell -> multi "hs" (grammar2haskell opts name) FmtProlog -> multi "pl" grammar2prolog -- cgit v1.2.3