module TreeConverter where

--import qualified Grammar.Abs as G
--import qualified TypeChecker.TypeCheckerIr as T
--
--convertToTypecheckerIR :: G.Program -> Either String T.Program
--convertToTypecheckerIR (G.Program defs) = T.Program (map convertDef defs)
--
--convertDef :: G.Bind -> T.Bind
--convertDef (G.Bind name t _ args exp) = T.Bind (name, t) (map (\i -> (i, T.TMono "Int"))) (convertExp exp)
--
--