🚀 Catch'ing

2024-10-03 18:34:32 +02:00
parent 98d41e6a6d
commit fb7f5c936a
1 changed files with 1 additions and 1 deletions
--- 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"