format files related to parser

fcore/parser/parse-grid.sml

@@ -3,23 +3,24 @@ struct
   fun make (canvasWidth, canvasHeight) =
     let
       val maxPoints = Int.max (canvasWidth, canvasHeight)
-      val emptyYAxis = Vector.tabulate (maxPoints, fn _ => {r = 0, g = 0, b = 0, a = 0})
+      val emptyYAxis = Vector.tabulate (maxPoints, fn _ =>
+        {r = 0, g = 0, b = 0, a = 0})
     in
       Vector.tabulate (maxPoints, fn _ => emptyYAxis)
     end
 
   local
     fun loopY (yAxis, x, ex, y, ey, colour) =
-      if y > ey then yAxis
+      if y > ey then
+        yAxis
       else
-        let
-          val yAxis = Vector.update (yAxis, y, colour)
-        in
-          loopY (yAxis, x, ex, y + 1, ey, colour)
+        let val yAxis = Vector.update (yAxis, y, colour)
+        in loopY (yAxis, x, ex, y + 1, ey, colour)
         end
 
     fun loopX (grid, x, ex, y, ey, colour) =
-      if x > ex then grid
+      if x > ex then
+        grid
       else
         let
           val yAxis = Vector.sub (grid, x)