Skip to content

GitLab

A
alphaLib
Commit 49f51aaa authored by POTTIER Francois's avatar POTTIER Francois
Browse files
Options

Use [unit_monoid] in [iter] and [iter2].

parent b3f82b9e
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 8 deletions
src/BindingForms.ml
View file @ 49f51aaa
......@@ -260,12 +260,9 @@ end
(* [iter] *)
class virtual ['self] iter = object (_ : 'self)
inherit ['self] reduce
method private plus () () = ()
inherit [_] VisitorsRuntime.unit_monoid
method private restrict _ () = ()
end
(* -------------------------------------------------------------------------- *)
......@@ -343,10 +340,7 @@ end
(* [iter2] *)
class virtual ['self] iter2 = object (_ : 'self)
inherit ['self] reduce2
method private plus () () = ()
inherit [_] VisitorsRuntime.unit_monoid
method private restrict _ _ () = ()
end
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment