diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-11-29 12:22:40 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-11-29 12:22:40 +0000 |
| commit | 3564aa406bba333bdc8937edcfdf670186ddd0bf (patch) | |
| tree | c8b5ade7a94262f0fdb56aeb8f0c7498848a15e0 /src/GF/UseGrammar/Custom.hs | |
| parent | 19f052723f2ad9b3e656ff020de66d9f55a2707a (diff) | |
Added GrammarToTransfer. It works, except that the constructor types are missing Tree here and there.
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 26bad1ee9..f888c22ab 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -67,6 +67,7 @@ import GF.UseGrammar.Statistics import GF.UseGrammar.Morphology import GF.UseGrammar.Information import GF.API.GrammarToHaskell +import GF.API.GrammarToTransfer -----import GrammarToCanon (showCanon, showCanonOpt) -----import qualified GrammarToGFC as GFC import GF.Probabilistic.Probabilistic (prProbs) @@ -269,6 +270,7 @@ customGrammarPrinter = ,(strCI "lbnf", prLBNF False) ,(strCI "bnf", prBNF False) ,(strCI "haskell", grammar2haskell . stateGrammarST) + ,(strCI "transfer", grammar2transfer . stateGrammarST) ,(strCI "morpho", prMorpho . stateMorpho) ,(strCI "fullform",prFullForm . stateMorpho) ,(strCI "opts", prOpts . stateOptions) |