diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-05-10 13:56:41 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-05-10 13:56:41 +0000 |
| commit | e4ef09f6aac55452031cc16def7048b0dd0d30cd (patch) | |
| tree | b2daaf442bef77b1542ff95b4f384894f8e1c00b /src/GF/UseGrammar/Custom.hs | |
| parent | 278a0ab45d02e85ba6d863615abaaf24bba5317b (diff) | |
Added haskell_gadt -printer. It does not include a Compos instance yet, so it's not terribly useful.
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index bbfb1e09e..132c832cd 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -270,6 +270,7 @@ customGrammarPrinter = ,(strCI "bnf", \_ -> prBNF False) ,(strCI "absbnf", \_ -> abstract2bnf . stateGrammarST) ,(strCI "haskell", \_ -> grammar2haskell . stateGrammarST) + ,(strCI "haskell_gadt", \_ -> grammar2haskellGADT . stateGrammarST) ,(strCI "transfer", \_ -> grammar2transfer . stateGrammarST) ,(strCI "morpho", \_ -> prMorpho . stateMorpho) ,(strCI "fullform",\_ -> prFullForm . stateMorpho) |