module Fun.Compiler where

import           Control.Exception
import           Fun.Parser
import           Fun.Tree

parse :: String -> Block -- TODO: Should be tree
parse file = case block file of
  Nothing     -> error "Invalid program"
  Just (a, b) -> a

compile :: String -> IO ()
compile path = do
  file <- try $ readFile path
  case file of
    Left  exception -> print (exception :: IOError)
    Right file      -> putStrLn . show $ parse file