Language/Symantic/Parsing/EBNF.hs

   1 module Parsing.EBNF where
   2
   3 import Data.Text.IO as Text
   4 import Control.Monad
   5
   6 import Language.Symantic.Typing
   7 import Language.Symantic.Parsing.Grammar
   8 import Parsing.Grammar.Test
   9 import Typing.Test
  10
  11 main :: IO ()
  12 main = do
  13         forM_ gram_lexer render
  14         forM_ gram_type  render
  15         where render = Text.putStrLn . renderEBNF . unCF