diff options
| author | kr.angelov <kr.angelov@chalmers.se> | 2008-05-22 15:41:17 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@chalmers.se> | 2008-05-22 15:41:17 +0000 |
| commit | d7bad708658f40cfb5a54dbd9836cc7c6035635a (patch) | |
| tree | deeb7f67a5b7ebcc3813c9b0f2a446a220f57bdf /src-3.0/GF/Devel | |
| parent | 359647445a851e3d6fc8b2071cada614aacda11e (diff) | |
move GF.Devel.PrintGFCC to GF.GFCC.PrintGFCC
Diffstat (limited to 'src-3.0/GF/Devel')
| -rw-r--r-- | src-3.0/GF/Devel/PrintGFCC.hs | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/src-3.0/GF/Devel/PrintGFCC.hs b/src-3.0/GF/Devel/PrintGFCC.hs deleted file mode 100644 index c7e668884..000000000 --- a/src-3.0/GF/Devel/PrintGFCC.hs +++ /dev/null @@ -1,21 +0,0 @@ -module GF.Devel.PrintGFCC where - -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 -import GF.Text.UTF8 - --- top-level access to code generation - -prGFCC :: String -> GFCC -> String -prGFCC printer gr = case printer of - "haskell" -> grammar2haskell gr - "haskell_gadt" -> grammar2haskellGADT gr - "js" -> gfcc2js gr - _ -> printGFCC gr - -printGFCC :: GFCC -> String -printGFCC = encodeUTF8 . printTree . fromGFCC - |