13 lines
410 B
Haskell
13 lines
410 B
Haskell
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)
|
|
--
|
|
--
|
|
|