From ca04336f23b2886dddf6befd1ad1b9278a09f760 Mon Sep 17 00:00:00 2001
From: Tom Clarke <tomcl@users.noreply.github.com>
Date: Wed, 6 Sep 2023 22:20:14 +0100
Subject: [PATCH] delete debug print statements

---
 src/Renderer/DrawBlock/SheetUpdateHelpers.fs | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/Renderer/DrawBlock/SheetUpdateHelpers.fs b/src/Renderer/DrawBlock/SheetUpdateHelpers.fs
index 10bf21153..34e919f7d 100644
--- 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
\ No newline at end of file
+            newCmd