--- a/src/algo/dominators.ml
+++ b/src/algo/dominators.ml
@@ -120,15 +120,7 @@ let dominators_tarjan graph =
     (fun v -> if G.in_degree graph v = 0 then G.add_edge graph start_pkg v)
     graph ;
   Util.Timer.start tjntimer ;
-  let module Dom = Dominator.Make_graph (struct
-    include G
-
-    let empty () = create ()
-
-    let add_edge g v1 v2 =
-      add_edge g v1 v2 ;
-      g
-  end) in
+  let module Dom = Dominator.Make_graph(G) in
   let idom = Dom.compute_all graph start_pkg in
   let domgr = idom.Dom.dom_graph () in
   Util.Timer.stop tjntimer () ;
