19 lines
310 B
Haskell
19 lines
310 B
Haskell
|
|
import Data.Foldable (for_)
|
|
|
|
import ParseTree
|
|
import Parser
|
|
import AST
|
|
import Pretty
|
|
|
|
import System.Environment
|
|
|
|
main :: IO ()
|
|
main = do
|
|
[fin] <- getArgs
|
|
toParseTree fin >>= print
|
|
(res, errs) <- runParser contract fin
|
|
print (pp res)
|
|
putStrLn ""
|
|
putStrLn "Errors:"
|
|
for_ errs (print . nest 2 . pp) |