more effect stuff, incl. ST

tests/TypingImpls.idr

@@ -3,6 +3,9 @@ module TypingImpls
 import TAP
 import public Quox.Typing
 import public Quox.Pretty
+import Quox.Equal
+import Quox.Typechecker
+import Quox.ST
 import PrettyExtra
 
 import Derive.Prelude
@@ -19,3 +22,16 @@ ToInfo Error where
   toInfo err =
     let str = render (Opts 60) $ runPrettyDef $ prettyError True err in
     [("err", str)]
+
+
+export
+runEqual : Definitions -> Eff Equal a -> Either Error a
+runEqual defs act = runSTErr $ do
+  runEff act
+    [handleExcept (\e => stLeft e),
+     handleReaderConst defs,
+     handleStateSTRef !(newRef 0)]
+
+export
+runTC : Definitions -> Eff TC a -> Either Error a
+runTC = runEqual