From af88c8895bba85fe5340b34aafb3dce7650bd01f Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Fri, 1 Jan 2021 11:08:38 +0100
Subject: Use first type module instead of functors

---
 path/wireFramePrinter.mli | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'path/wireFramePrinter.mli')

diff --git a/path/wireFramePrinter.mli b/path/wireFramePrinter.mli
index d6f346e..1e76120 100755
--- a/path/wireFramePrinter.mli
+++ b/path/wireFramePrinter.mli
@@ -1,26 +1,26 @@
 module Make(Repr:Layer.Repr.PRINTER): sig
 
-  type 'a repr 
+  type repr 
 
   type t = Point.t
 
   val create_path
-    : 'b -> 'a repr
+    : 'b -> repr
 
   (* Start a new path. *)
   val start
-    : Point.t -> 'a repr -> 'a repr
+    : Point.t -> repr -> repr
 
   val line_to
-    : Point.t -> Point.t -> 'a repr -> 'a repr
+    : Point.t -> Point.t -> repr -> repr
 
   val quadratic_to
-    : Point.t -> Gg.v2 -> Gg.v2 -> Point.t -> 'a repr -> 'a repr
+    : Point.t -> Gg.v2 -> Gg.v2 -> Point.t -> repr -> repr
 
   val stop
-    : 'a repr -> 'a repr
+    : repr -> repr
 
   val get 
-    : 'a repr -> 'a Repr.t
+    : repr -> Repr.t
 
 end
-- 
cgit v1.2.3