diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-13 20:19:47 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-13 20:19:47 +0000 |
| commit | b447cf1a047a6f6e1c4945e809bffa57c88a08af (patch) | |
| tree | 4b6792997f34b764796a8b787b3e8a9638c6ff49 /src/GF/Devel/PrintGFCC.hs | |
| parent | a311dda5392ac1d019bc4f60bd94b37df01a1411 (diff) | |
new GFCC concrete syntax in place everywhere
Diffstat (limited to 'src/GF/Devel/PrintGFCC.hs')
| -rw-r--r-- | src/GF/Devel/PrintGFCC.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/GF/Devel/PrintGFCC.hs b/src/GF/Devel/PrintGFCC.hs index 864fc07c0..700eb7ce0 100644 --- a/src/GF/Devel/PrintGFCC.hs +++ b/src/GF/Devel/PrintGFCC.hs @@ -1,6 +1,8 @@ module GF.Devel.PrintGFCC where -import GF.GFCC.DataGFCC (GFCC,printGFCC) +import GF.GFCC.DataGFCC (GFCC) +import GF.GFCC.Raw.ConvertGFCC (fromGFCC) +import GF.GFCC.Raw.PrintGFCCRaw (printTree) import GF.Devel.GFCCtoHaskell import GF.Devel.GFCCtoJS @@ -14,3 +16,6 @@ prGFCC printer gr = case printer of "jsref" -> gfcc2grammarRef gr _ -> printGFCC gr +printGFCC :: GFCC -> String +printGFCC = printTree . fromGFCC + |