From af88c8895bba85fe5340b34aafb3dce7650bd01f Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Fri, 1 Jan 2021 11:08:38 +0100 Subject: Use first type module instead of functors --- layer/canvaPrinter.ml | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'layer/canvaPrinter.ml') 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 -- cgit v1.2.3