Skip to content

Commit

Permalink
remove comments
Browse files Browse the repository at this point in the history
  • Loading branch information
janmasrovira committed Feb 7, 2024
1 parent 82c4640 commit 1993ad2
Showing 1 changed file with 0 additions and 2 deletions.
2 changes: 0 additions & 2 deletions src/Juvix/Compiler/Tree/EvaluatorEff.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 1993ad2

Please sign in to comment.