diff options
Diffstat (limited to 'src/GF/API.hs')
| -rw-r--r-- | src/GF/API.hs | 7 |
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 |