Use first type module instead of functors pt.2

1 files changed, 2 insertions, 21 deletions

diff --git a/path/builder.ml b/path/builder.ml
index cb87fc5..182fc13 100755
--- a/path/builder.ml
+++ b/path/builder.ml
@@ -12,25 +12,6 @@ module type P = sig
 
 end
 
-module type REPR = sig
-  type t
-
-  type repr
-
-  (* Start a new path. *)
-  val start
-    : t -> repr -> repr
-
-  val line_to
-    : t -> t -> repr -> repr
-
-  val quadratic_to
-    : t -> Gg.v2 -> Gg.v2 -> t -> repr -> repr
-
-  val stop
-    : repr -> repr
-end
-
 module Make(Point:P) = struct
 
   (** Point creation  **)
@@ -123,8 +104,8 @@ module Make(Point:P) = struct
       | hd::_ -> Some hd
 
   let repr
-    : t -> (module REPR with type t = Point.t and type repr = 's) -> 's -> 's
-    = fun (type s) (points, beziers) (module Repr : REPR with type t = Point.t and type repr = s) path ->
+    : t -> (module Repr.M with type t = Point.t and type repr = 's) -> 's -> 's
+    = fun (type s) (points, beziers) (module Repr : Repr.M with type t = Point.t and type repr = s) path ->
 
       (* Represent the last points *)
       let path = match points with