From d90ed8afa2530ef7ef2a6521019a10ec60ea7c70 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Wed, 31 Jul 2024 13:34:10 +0100
Subject: [PATCH] minor improvement (using vector literals in
 'helpGetTrianglesVector', which is in functional-core/app-update.sml

---
 functional-core/app-update.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/functional-core/app-update.sml b/functional-core/app-update.sml
index 7ef859f..91303c3 100644
--- a/functional-core/app-update.sml
+++ b/functional-core/app-update.sml
@@ -6,7 +6,7 @@ struct
     fun helpGetTrianglesVector (lst, acc) =
       case lst of
         {x1, y1, x2, y2, x3, y3} :: tl =>
-          let val vec = Vector.fromList [x1, y1, x2, y2, x3, y3]
+          let val vec = #[x1, y1, x2, y2, x3, y3]
           in helpGetTrianglesVector (tl, vec :: acc)
           end
       | [] => acc