formatting

dot-to-dot.mlb

@@ -12,8 +12,8 @@ end
 
 message-types/input-msg.sml
 message-types/draw-msg.sml
-
 functional-core/app-type.sml
+
 ann
   "allowVectorExps true"
 in

functional-core/app-update.sml

@@ -142,8 +142,7 @@ struct
   fun getTriangleStageVector (model: app_type, drawVec) =
     case #triangleStage model of
       NO_TRIANGLE => drawVec
-    | FIRST {x1, y1} =>
+    | FIRST {x1, y1} => getFirstTriangleStageVector (x1, y1, drawVec)
-        getFirstTriangleStageVector (x1, y1, drawVec)
     | SECOND {x1, y1, x2, y2} =>
         getSecondTriangleStageVector (x1, y1, x2, y2, drawVec)
 
@@ -202,8 +201,7 @@ struct
                    end
                | SECOND {x1, y1, x2, y2} =>
                    let
-                     val model =
+                     val model = AppType.addTriangleAndResetStage
-                       AppType.addTriangleAndResetStage 
                        (model, x1, y1, x2, y2, hpos, vpos)
 
                      val drawVec = getTrianglesVector model

imperative-shell/event-loop.sml

@@ -72,7 +72,7 @@ struct
                let
                  val _ = AppDraw.uploadTrianglesVector (triangleDrawObject, triangleVec)
                  val triangleDrawLength = Vector.length triangleVec div 2
-                 (* have to reset buttons too *)
+                 (* buttons are reset by setting buttonDrawLength to 0 *)
                in
                  draw
                    ( drawMailbox