From 6a6a36a277c79788ac6b27f49e3e8359f477341b Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Sun, 6 Jul 2025 15:54:08 +0100
Subject: [PATCH] fix bug regarding squares not updating properly, and remove
 debugging code for that functionality

---
 fcore/app-with.sml | 22 ----------------------
 1 file changed, 22 deletions(-)

diff --git a/fcore/app-with.sml b/fcore/app-with.sml
index 77ad23b..6a91f58 100644
--- a/fcore/app-with.sml
+++ b/fcore/app-with.sml
@@ -2,24 +2,6 @@ structure AppWith =
 struct
   open AppType
 
-  fun toList vec = Vector.foldr (fn (el, acc) => el :: acc) [] vec
-
-  fun squaresToString squares =
-  let
-    val vec =
-      Vector.map (fn vec =>
-      let
-        val vec = Vector.map (fn num => Int.toString num) vec
-        val vec: string list = toList vec
-      in
-        String.concat vec
-      end
-      ) squares
-    val vec = toList vec
-  in
-    String.concatWith "\n" vec
-  end
-
   fun addSquare (app, newX, newY, arrowX, arrowY) : app_type =
     let
       val
@@ -46,7 +28,6 @@ struct
         , modalNum
         } = app
 
-      val () = print "adding new square\n"
       val squares =
         Vector.mapi
           (fn (idx, el) =>
@@ -54,9 +35,6 @@ struct
                Vector.mapi (fn (iidx, iel) => if iidx = newY then 1 else iel) el
              else
                el) squares
-
-        val msg = squaresToString squares
-      val () = print (msg ^ "\n")
     in
       { mode = mode
       , squares = squares