From fb7f5c936a0148e990a8e542591159fccb76c9ae Mon Sep 17 00:00:00 2001
From: Sebastian Larsen Prehn <sbstprehn@icloud.com>
Date: Thu, 3 Oct 2024 18:34:32 +0200
Subject: [PATCH] :rocket: Catch'ing

---
 a4/src/APL/Monad.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/a4/src/APL/Monad.hs b/a4/src/APL/Monad.hs
index 8bdcce1..3bdf3f7 100644
--- a/a4/src/APL/Monad.hs
+++ b/a4/src/APL/Monad.hs
@@ -119,7 +119,7 @@ failure :: String -> EvalM a
 failure = Free . ErrorOp
 
 catch :: EvalM a -> EvalM a -> EvalM a
-catch = error "TODO"
+catch m1 m2 = Free $ TryCatchOp m1 m2
 
 evalKvGet :: Val -> EvalM Val
 evalKvGet = error "TODO"