Introduced output of stripped format gfcm.

1 files changed, 7 insertions, 0 deletions

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