From 986a36b3728eba40789d6063997dafda67b519ec Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sun, 20 Dec 2020 06:38:04 +0100
Subject: Update

---
 script.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'script.ml')

diff --git a/script.ml b/script.ml
index be7fe8e..198453f 100755
--- a/script.ml
+++ b/script.ml
@@ -8,6 +8,7 @@ module Point = Draw.Point
 module Path = Draw
 
 module Path_Builder = Path.Builder.Make(Point)
+module Path_Printer = Path_Builder.Draw(Path.WireFrame)
 
 type mode =
   | Edit
@@ -199,7 +200,7 @@ let on_change canva mouse_position state =
       state.current
   in
 
-  let path = Point.get @@ Path_Builder.draw current  in
+  let path = Draw.WireFrame.get @@ Path_Printer.draw current  in
   stroke context path;
 
 (*
-- 
cgit v1.2.3