diff --git a/ghc-vis.cabal b/ghc-vis.cabal
--- a/ghc-vis.cabal
+++ b/ghc-vis.cabal
@@ -1,6 +1,6 @@
 cabal-version:      2.2
 name:               ghc-vis
-version:            0.9.2
+version:            0.9.3
 license:            BSD-3-Clause
 license-file:       LICENSE
 category:           GHC, Debug, Development
diff --git a/src/GHC/Vis/View/Graph.hs b/src/GHC/Vis/View/Graph.hs
--- a/src/GHC/Vis/View/Graph.hs
+++ b/src/GHC/Vis/View/Graph.hs
@@ -42,7 +42,6 @@
 
 import Graphics.Rendering.Cairo.SVG
 import Paths_ghc_vis as My
-import Debug.Trace
 
 hoverIconWidth :: Double
 hoverIconWidth = 35
@@ -88,7 +87,6 @@
 --   requested from outside the program.
 redraw :: WidgetClass w => w -> Render ()
 redraw canvas = do
-  liftIO $ traceIO "redraw"
   s <- liftIO $ readIORef state
   rw2 <- liftIO $ Gtk.widgetGetAllocatedWidth canvas
   rh2 <- liftIO $ Gtk.widgetGetAllocatedHeight canvas
@@ -96,7 +94,6 @@
   (bbs, hibbs) <- draw s rw2 rh2
 
   liftIO $ modifyIORef state (\s' -> s' {bounds = bbs, hoverIconBounds = hibbs})
-  liftIO $ traceIO "redraw End"
 
 -- | Export the visualization to an SVG file
 export :: DrawFunction -> String -> IO ()
@@ -272,9 +269,7 @@
 -- | Something might have changed on the heap, update the view.
 updateObjects :: [NamedBox] -> IO ()
 updateObjects _boxes = do
-  traceIO "updateObjects"
   hidden <- readMVar visHidden
   (ops, bs', _ , size) <- xDotParse $ hidden
 
   modifyIORef state (\s -> s {operations = ops, boxes = bs', totalSize = size, hover = None})
-  traceIO "updateObjects End"