Yur
This commit is contained in:
parent
dac675a417
commit
0fd8a9bc74
3 changed files with 5 additions and 28 deletions
|
|
@ -1,13 +0,0 @@
|
|||
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)
|
||||
--
|
||||
--
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue