diff options
Diffstat (limited to 'path/wireFramePrinter.ml')
-rwxr-xr-x | path/wireFramePrinter.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/path/wireFramePrinter.ml b/path/wireFramePrinter.ml index a0f52d6..fc27c62 100755 --- a/path/wireFramePrinter.ml +++ b/path/wireFramePrinter.ml @@ -1,4 +1,4 @@ -module Repr = CanvaPrinter +module Repr = Layer.CanvaPrinter type t = Point.t @@ -28,8 +28,8 @@ let start } let line_to - : Point.t -> 'a repr -> 'a repr - = fun t {back; path; _} -> + : Point.t -> Point.t -> 'a repr -> 'a repr + = fun _ t {back; path; _} -> let line' = Repr.line_to (Point.get_coord' t) in { back = (fun t -> back @@ line' t) ; path = Repr.line_to (Point.get_coord t) path |