From 08c9a2ab8cf7b77a5c0392f5f8e9643e39c89c5b Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 9 Dec 2003 16:39:24 +0000
Subject: Introduced output of stripped format gfcm.

---
 src/GF/API.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/GF/API.hs')

diff --git a/src/GF/API.hs b/src/GF/API.hs
index 29474585f..ab630d7a6 100644
--- a/src/GF/API.hs
+++ b/src/GF/API.hs
@@ -35,6 +35,7 @@ import qualified Compute as Co
 import qualified Ident as I
 import qualified GrammarToCanon as GC
 import qualified CanonToGrammar as CG
+import qualified MkGFC as MC
 
 import Editing
 
@@ -113,6 +114,9 @@ transformGrammarFile opts file = do
   return $ optPrintSyntax opts sy
 -}
 
+prIdent :: Ident -> String
+prIdent = prt
+
 -- then stg for customizable and internal use
 
 {- -----
@@ -257,6 +261,9 @@ optPrintGrammar opts = customOrDefault opts grammarPrinter customGrammarPrinter
 optPrintSyntax :: Options -> GF.Grammar -> String
 optPrintSyntax opts = customOrDefault opts grammarPrinter customSyntaxPrinter
 
+prCanonGrammar :: CanonGrammar -> String
+prCanonGrammar = MC.prCanon
+
 {- ----
 optPrintTree :: Options -> GFGrammar -> Tree -> String
 optPrintTree opts = customOrDefault opts grammarPrinter customTermPrinter
-- 
cgit v1.2.3