Deleted bad sample programs, added polymorphic call in polymorphic function test

src/Main.hs

@@ -38,6 +38,10 @@ main' s = do
     typechecked <- fromTypeCheckerErr $ typecheck renamed
     printToErr $ printTree typechecked
 
+    --printToErr "\n-- TreeConverter --"
+    --converted <- fromTypeCheckerErr $ convertToTypecheckerIR renamed
+    --printToErr $ printTree converted
+
     printToErr "\n-- Lambda Lifter --"
     let lifted = lambdaLift typechecked
     printToErr $ printTree lifted

src/TreeConverter.hs

@@ -0,0 +1,13 @@
+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)
+--
+--
+