formatting

fcore/common-update.sml

@@ -33,7 +33,8 @@ struct
     let
       val {squares, canvasWidth, canvasHeight, modalNum, ...} = model
       val exportString =
-        CollisionTree.toCollisionString (squares, canvasWidth, canvasHeight, modalNum)
+        CollisionTree.toCollisionString
+          (squares, canvasWidth, canvasHeight, modalNum)
       val msg = EXPORT_COLLISIONS exportString
 
       val model = AppWith.modalNum (model, 0)

fcore/quad-tree.sml

@@ -534,7 +534,8 @@ struct
     in "endYToNdc (yOffset, " ^ startY ^ ", " ^ endY ^ ", scale, halfHeight)"
     end
 
-  fun toExportStringFolder (maxWidth, maxHeight) ({x, ex, y, ey, data = {r, g, b, a}}, acc) =
+  fun toExportStringFolder (maxWidth, maxHeight)
+    ({x, ex, y, ey, data = {r, g, b, a}}, acc) =
     let
       val ex = if ex < maxWidth then ex + 1 else ex
       val ey = if ey < maxHeight then ey + 1 else ey
@@ -633,7 +634,8 @@ struct
 
   fun mapGrid grid = Vector.map mapYAxis grid
 
-  fun toCollisionStringFolder (scale, maxWidth, maxHeight) ({x, ex, y, ey, data = _}, acc) =
+  fun toCollisionStringFolder (scale, maxWidth, maxHeight)
+    ({x, ex, y, ey, data = _}, acc) =
     let
       val ex = if ex < maxWidth then ex + 1 else ex
       val ey = if ey < maxHeight then ey + 1 else ey