diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2020-12-20 11:57:14 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@chimrod.com> | 2020-12-20 11:57:14 +0100 |
commit | a86ede2f3d29d6de6ef7c1eab577f00d4c583660 (patch) | |
tree | 7cd3a5185d8ebf995f75238fce6904b71c62596e /path/wireFramePrinter.ml | |
parent | 986a36b3728eba40789d6063997dafda67b519ec (diff) |
Update
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 |