diff options
| author | peb <unknown> | 2005-10-05 10:56:42 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-10-05 10:56:42 +0000 |
| commit | 1703bb826e314eb78c15f846af1e76784f7759e2 (patch) | |
| tree | bd791d83e7a08c803799e3a6762326a1ce49f853 /src/GF/UseGrammar/Custom.hs | |
| parent | fff9b01aa91cf8f2f2b78641d6234cda459370f1 (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 15e909004..f5ed30009 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/09/29 13:20:08 $ --- > CVS $Author: aarne $ --- > CVS $Revision: 1.75 $ +-- > CVS $Date: 2005/10/05 11:56:42 $ +-- > CVS $Author: peb $ +-- > CVS $Revision: 1.76 $ -- -- A database for customizable GF shell commands. -- @@ -81,6 +81,7 @@ import qualified GF.Conversion.GFC as Cnv import qualified GF.Conversion.Types as CnvTypes import qualified GF.Conversion.Haskell as CnvHaskell import qualified GF.Conversion.Prolog as CnvProlog +import qualified GF.Conversion.TypeGraph as CnvTypeGraph import GF.Canon.Unparametrize import GF.Canon.Subexpressions @@ -278,6 +279,9 @@ customGrammarPrinter = ,(strCI "pinfo", Prt.prt . statePInfo) ,(strCI "abstract", Prt.prtAfter "\n" . Cnv.gfc2abstract . stateGrammarLang) + ,(strCI "functiongraph",CnvTypeGraph.prtFunctionGraph . uncurry Cnv.gfc2simple . stateGrammarLangOpts) + ,(strCI "typegraph", CnvTypeGraph.prtTypeGraph . uncurry Cnv.gfc2simple . stateGrammarLangOpts) + ,(strCI "gfc-haskell", CnvHaskell.prtSGrammar . uncurry Cnv.gfc2simple . stateGrammarLangOpts) ,(strCI "mcfg-haskell", CnvHaskell.prtMGrammar . stateMCFG) ,(strCI "cfg-haskell", CnvHaskell.prtCGrammar . stateCFG) |