hm is compatible

src/TypeChecker/TypeChecker.hs

@@ -0,0 +1,18 @@
+module TypeChecker.TypeChecker (typecheck, TypeChecker (..)) where
+
+import Control.Monad ((<=<))
+import Grammar.Abs
+import Grammar.ErrM (Err)
+import TypeChecker.RemoveTEVar (RemoveTEVar (rmTEVar))
+import TypeChecker.TypeCheckerBidir qualified as Bi
+import TypeChecker.TypeCheckerHm qualified as Hm
+import TypeChecker.TypeCheckerIr qualified as T
+
+data TypeChecker = Bi | Hm
+
+typecheck :: TypeChecker -> Program -> Err T.Program
+typecheck tc = rmTEVar <=< f
+  where
+    f = case tc of
+        Bi -> Bi.typecheck
+        Hm -> Hm.typecheck