diff options
Diffstat (limited to 'src/GF/GFCC/API.hs')
| -rw-r--r-- | src/GF/GFCC/API.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/GFCC/API.hs b/src/GF/GFCC/API.hs index 0199dcf7e..39f44e2a3 100644 --- a/src/GF/GFCC/API.hs +++ b/src/GF/GFCC/API.hs @@ -21,6 +21,7 @@ import GF.GFCC.Macros import GF.GFCC.DataGFCC import GF.GFCC.AbsGFCC import GF.GFCC.ParGFCC +import GF.Command.PPrTree import GF.GFCC.ErrM @@ -105,9 +106,9 @@ generateRandom mgr cat = do generateAll mgr cat = generate (gfcc mgr) (CId cat) -readTree _ = err (const exp0) id . (pExp . myLexer) +readTree _ = pTree -showTree = prt +showTree = prExp languages mgr = [l | CId l <- cncnames (gfcc mgr)] |