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/repr.ml | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'layer/repr.ml') diff --git a/layer/repr.ml b/layer/repr.ml index b91442b..f2d114c 100755 --- a/layer/repr.ml +++ b/layer/repr.ml @@ -1,19 +1,19 @@ module type PRINTER = sig - type 'a t + type t - val create: unit -> 'a t + val create: unit -> t (* Start a new path. *) - val move_to: Gg.v2 -> 'a t -> 'a t + val move_to: Gg.v2 -> t -> t - val line_to: Gg.v2 -> 'a t -> 'a t + val line_to: Gg.v2 -> t -> t (** [quadratic_to ctrl0 ctrl1 p1] ctreate a quadratic curve from the current point to [p1], with control points [ctrl0] and [ctrl1] *) - val quadratic_to: Gg.v2 -> Gg.v2 -> Gg.v2 -> 'a t -> 'a t + val quadratic_to: Gg.v2 -> Gg.v2 -> Gg.v2 -> t -> t (** Request for the path to be closed *) - val close: 'a t -> 'a t + val close: t -> t end -- cgit v1.2.3