From 1993ad25123a9481e994246c59d266510421d33c Mon Sep 17 00:00:00 2001 From: Jan Mas Rovira Date: Wed, 7 Feb 2024 18:50:56 +0100 Subject: [PATCH] remove comments --- src/Juvix/Compiler/Tree/EvaluatorEff.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/Juvix/Compiler/Tree/EvaluatorEff.hs b/src/Juvix/Compiler/Tree/EvaluatorEff.hs index 515ae0dc48..0cad323910 100644 --- a/src/Juvix/Compiler/Tree/EvaluatorEff.hs +++ b/src/Juvix/Compiler/Tree/EvaluatorEff.hs @@ -40,11 +40,9 @@ runOutputEff handle m = do mapM_ handle l pure a --- eval :: (Members '[Output Value, Error EvalError] r) => InfoTable -> Node -> Sem r Value eval :: (Output Value :> r, E.Error EvalError :> r) => InfoTable -> Node -> Eff r Value eval tab = E.runReader emptyEvalCtx . eval' where - -- eval' :: forall r'. (Members '[Output Value, Reader EvalCtx, Error EvalError] r') => Node -> Sem r' Value eval' :: forall r'. (Output Value :> r', E.Reader EvalCtx :> r', E.Error EvalError :> r') => Node -> Eff r' Value eval' node = case node of Binop x -> goBinop x