spade-0.1.0.0: src/Test.hs

module Test where

import Compiler.Parser
import Control.Applicative
import Data.Text as T
import Data.Text.IO as T
import Parser

import Compiler.AST.Parser.Common
import Compiler.AST.Program

testDummy :: IO ()
testDummy = do
  src <- T.readFile "/tmp/input.txt"
  tokens <- tokenize src
  --T.putStrLn $ T.pack $ show tokens
  x <- runParserEither (do
         st <- optional testParser_
         pure st
    ) $ mkAstParserState tokens
  T.putStrLn $ T.pack $ show x
  pure ()
  where
    testParser_ = astParser @Program