module Main where

import qualified Lexer
import qualified Parser
import qualified AbstractSyntaxTree as AST
import qualified Compiler
import qualified Assembler
import qualified Data.ByteString.Lazy as BL

main :: IO ()
main = do
  source <- readFile "arithmetic.txt"
  case Parser.parse $ Lexer.lex source of
    Just source -> BL.putStr $ Assembler.assemble $ Compiler.compile $ AST.createAST source
    _ -> putStr "Some error"