From 3a954ceb4cc105d19c3cf701073643774c30ef65 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Wed, 3 Jul 2024 14:49:32 +0100
Subject: [PATCH] remove dead comment

---
 src/line_gap.sml | 51 +++++++++++++++++++++---------------------------
 1 file changed, 22 insertions(+), 29 deletions(-)

diff --git a/src/line_gap.sml b/src/line_gap.sml
index d068145..0488967 100644
--- a/src/line_gap.sml
+++ b/src/line_gap.sml
@@ -724,42 +724,35 @@ struct
         val midpoint = binSearch (String.size strSub1 - 1, rightLinesHd)
       in
         if
-          isThreeInLimit (strSub1, newString, strSub2, rightLinesHd, newLines)
+          (*
+            isThreeInLimit (strSub1, newString, strSub2, rightLinesHd, newLines)
+            *)
+          true
         then
           (* Join three strings together. *)
           let
+            (* VERIFIED TO WORK *)
             val _ = print "line 573\n"
             val newRightStringsHd = String.concat [strSub1, newString, strSub2]
 
-          (*
-          val newRightLinesHd =
-            Vector.tabulate
-              ( Vector.length rightLinesHd + Vector.length newLines
-              , fn idx =>
-                  if idx < midpoint then
-                    Vector.sub (rightLinesHd, idx)
-                  else if idx < midpoint + Vector.length newLines then
-                    let
-                      val result =
-                        Vector.sub (newLines, idx - midpoint) + String.size
-                        strSub1
-                      val _ = print "line 598\n"
-                      val _ = print ("result: " ^ Int.toString result ^ "\n")
-                    in
-                      result
-                    end
-                  else
-                    let
-                      val result =
+            val newRightLinesHd =
+              if Vector.length rightLinesHd > 0 then
+                Vector.tabulate
+                  ( Vector.length rightLinesHd + Vector.length newLines
+                  , fn idx =>
+                      if idx <= midpoint then
+                        Vector.sub (rightLinesHd, idx)
+                      else if idx <= midpoint + Vector.length newLines then
+                        Vector.sub (newLines, (idx - midpoint) - 1)
+                        + String.size strSub1
+                      else
                         Vector.sub
-                          (rightLinesHd, idx - Vector.length newLines)
+                          (rightLinesHd, (idx - Vector.length newLines))
                         + String.size newString
-                      val _ = print "line 606\n"
-                      val _ = print ("result: " ^ Int.toString result ^ "\n")
-                    in
-                      result
-                    end
-              ) *)
+                  )
+              else
+                Vector.map (fn el => el + String.size strSub1) newLines
+
           in
             verifyReturn
               { idx = curIdx
@@ -767,7 +760,7 @@ struct
               , leftStrings = leftStrings
               , leftLines = leftLines
               , rightStrings = newRightStringsHd :: rightStringsTl
-              , rightLines = countLineBreaks newRightStringsHd :: rightLinesTl
+              , rightLines = newRightLinesHd :: rightLinesTl
               }
           end
         else if