ghc-vis 0.9.2 → 0.9.3

raw patch · 2 files changed

+1/−6 lines, 2 files

Files

• ghc-vis.cabal +1/−1
• src/GHC/Vis/View/Graph.hs +0/−5

@@ -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

@@ -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"