- module Main where
-
- import qualified Data.ByteString.Lazy as Bsl
- import Data.Foldable
-
- import Presyntax.Parser
- import Presyntax.Tokens
- import Presyntax.Lexer
-
- main :: IO ()
- main = do
- t <- Bsl.readFile "test.tt"
- let Right tks = runAlex t parseProg
- traverse_ print tks
|