From 4746652abfb7aed46627d27a55919d2986885735 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sat, 14 Jan 2023 11:35:17 +0530
Subject: feat: adds custom effect overriding

---
 src/eval.ts | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/eval.ts b/src/eval.ts
index d7055a3..a7b1fb1 100644
--- a/src/eval.ts
+++ b/src/eval.ts
@@ -58,15 +58,13 @@ export const evaluateType = async (
     prevEnv = ctx.currentEnv
   }
 
+  if (name && ctx.hasCustomEffect(name)) {
+    return ctx.runCustomEffect(name, args)
+  }
+
   return match(name, {
-    // TODO: Allow overriding effects
     ...envEffects(ctx, args),
-
     _: async () => {
-      if (name && ctx.hasCustomEffect(name)) {
-        return ctx.runCustomEffect(name, args)
-      }
-
       console.log(ctx.typeToString(effTyp))
       throw new Error(`${name} effect is not handled`)
     },
-- 
cgit v1.3.1