Use first type module instead of functors

1 files changed, 6 insertions, 6 deletions

diff --git a/layer/canvaPrinter.ml b/layer/canvaPrinter.ml
index e696d10..23cf842 100755
--- a/layer/canvaPrinter.ml
+++ b/layer/canvaPrinter.ml
@@ -1,29 +1,29 @@
 module Path = Brr_canvas.C2d.Path
 module V2 = Gg.V2
 
-type 'a t = Path.t
+type t = Path.t
 
 let create
-  : unit -> 'a t
+  : unit -> t
   = Path.create
 
 (* Start a new path. *)
 let move_to
-  : Gg.v2 -> 'a t -> 'a t
+  : Gg.v2 -> t -> t
   = fun point path ->
     let x, y = V2.to_tuple point in
     Path.move_to ~x ~y path;
     path
 
 let line_to
-  : Gg.v2 -> 'a t -> 'a t
+  : Gg.v2 -> t -> t
   = fun  point path ->
     let x, y = V2.to_tuple point in
     Path.line_to ~x ~y path;
     path
 
 let quadratic_to
-  : Gg.v2 -> Gg.v2 -> Gg.v2 -> 'a t -> 'a t
+  : Gg.v2 -> Gg.v2 -> Gg.v2 -> t -> t
   = fun  ctrl0 ctrl1 p1 path ->
     let cx, cy = V2.to_tuple ctrl0
     and cx', cy' = V2.to_tuple ctrl1
@@ -36,7 +36,7 @@ let quadratic_to
     path
 
 let close
-  : 'a t -> 'a t
+  : t -> t
   = fun path ->
     Path.close path;
     path