delete debug print statements

tomcl · Sep 6, 2023 · ca04336 · ca04336
1 parent 4835ec3
commit ca04336
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/src/Renderer/DrawBlock/SheetUpdateHelpers.fs b/src/Renderer/DrawBlock/SheetUpdateHelpers.fs
@@ -265,7 +265,7 @@ let mDownUpdate
         | None -> model
         | Some newModel -> newModel
     // printfn "running mDownUpdate"
-    printfn "mDownUpdate Action: %A" model.Action
+    //printfn "mDownUpdate Action: %A" model.Action
     match model.Action with
     | DragAndDrop ->
         let errorComponents =
@@ -466,8 +466,6 @@ let mDragUpdate
         (model: Model) 
         (mMsg: MouseT) 
             : Model * Cmd<ModelType.Msg> =
-    printfn "running mDragUpdate"
-    printfn "mDragUpdate Action: %A" model.Action
     let setDragCursor (model:Model, cmd: Cmd<ModelType.Msg>) : Model*Cmd<ModelType.Msg> =
         let dragCursor = 
             match model.Action with
@@ -646,8 +644,6 @@ let mUpUpdate (model: Model) (mMsg: MouseT) : Model * Cmd<ModelType.Msg> = // mM
         match model.TmpModel with
         | None -> model
         | Some newModel -> {newModel with SelectedComponents = model.SelectedComponents}
-    printfn "running mUpUpdate"
-    printfn "mUpUpdate Action: %A" model.Action
     match model.Action with
     | MovingWire segIdL ->
         let connIdL = segIdL |> List.map snd
@@ -961,4 +957,4 @@ let postUpdateScalingBox (model:Model, cmd) =
             model
             |> Optic.set scalingBox_ (Some initScalingBox)
             |> Optic.set symbols_ newSymbolMap, 
-            newCmd
+            newCmd