-- vim: et ts=2 sw=2 ai:
module Main where

import Prelude hiding(lex)

import Text.Parsec.Error (ParseError)

import SPL.Syntax
import SPL.Lex
import SPL.Parse

main :: IO ()
main = do
  contents <- readFile "test/example1.spl"
  putStrLn $ (show . lex') contents
  putStrLn $ (show . result) contents
  where
    lex' :: String -> Maybe [Token]
    lex' = lex

    result :: String -> Maybe (Either ParseError Program)
    result c = parse <$> lex c