diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-01-11 05:36:46 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-01-11 13:55:43 +0100 |
| commit | 979be5f588a1ffd6e1d060cd794e87526d517b7a (patch) | |
| tree | a96605b6ae27bcf646b17f022acf7f5f0cf0b8bf /path/builder.ml | |
| parent | 85b40e5712fcbe76c697d1a22fb126db8079098c (diff) | |
Layer review
Diffstat (limited to 'path/builder.ml')
| -rwxr-xr-x | path/builder.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/path/builder.ml b/path/builder.ml index 7901e78..166c073 100755 --- a/path/builder.ml +++ b/path/builder.ml @@ -104,8 +104,8 @@ module Make(Point:P) = struct | hd::_ -> Some hd let repr - : 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 -> + : t -> (module Repr.M with type point = Point.t and type t = 's) -> 's -> 's + = fun (type s) (points, beziers) (module Repr : Repr.M with type point = Point.t and type t = s) path -> (* Represent the last points *) let path = match points with |