import qualified Parser

runEvalWith input = do
  let ast = Parser.parse input
  putStrLn $ "Ast: " ++ (show ast)

main :: IO ()
main = do
  putStrLn "; Generated by HDC"

  program <- getContents
  runEvalWith program

import qualified Parser
import qualified Text.Show.Pretty as Pr

runEvalWith input = do
  let syntax_tree = Parser.parse input
  putStrLn $ "Syntax tree:\n" ++ (Pr.ppShow syntax_tree)

main :: IO ()
main = do
  putStrLn "; Generated by HDC"

  program <- getContents
  runEvalWith program

Use PrettyPrint. Needs to be included in cabalfile
Use PrettyPrint. Needs to be included in cabalfile
