12 lines
291 B
Haskell
12 lines
291 B
Haskell
module Main where
|
|
|
|
import qualified Lexer
|
|
import qualified Parser
|
|
import qualified AbstractSyntaxTree as AST
|
|
|
|
main :: IO ()
|
|
main = do
|
|
source <- readFile "arithmetic.txt"
|
|
case Parser.parse $ Lexer.lex source of
|
|
Just source -> print $ AST.createAST source
|
|
_ -> putStr "Some error"
|