Delete some unecessary comments and traces

Author: TeofilC

GUI/Histogram.hs

@@ -94,13 +94,6 @@ histogramViewNew builder = do
                renderWithDrawWindow win $ do
                  C.moveTo 4 20
                  showLayout layout
-               -- GtkExt.stylePaintLayout
-               --   style win
-               --   StateNormal True
-               --   (Rectangle 0 0 w windowHeight)
-               --   histogramDrawingArea ""
-               --   4 20
-               --   layout
                return ()
            | otherwise -> do
                minterval <- readIORef mintervalIORef

GUI/KeyView.hs

@@ -169,7 +169,6 @@ renderKEvent keyColour = do
 renderToPixbuf :: DrawWindowClass dw => dw -> (Int, Int) -> C.Render ()
                -> IO Pixbuf
 renderToPixbuf similar (w, h) draw = do
-  -- TODO: is this right??? I think so. It seems to work at least :shrug:
   renderWithDrawWindow similar draw
   pixbuf <- pixbufNewFromWindow similar 0 0 w h
   return pixbuf

GUI/Timeline.hs

@@ -24,7 +24,6 @@ module GUI.Timeline (
     timelineCentreOnCursor,
  ) where
 
-import Debug.Trace
 import GUI.Types
 import GUI.Timeline.Types
 

GUI/Timeline/Render.hs

@@ -20,7 +20,6 @@ import Events.HECs
 import GUI.Types
 import GUI.ViewerColours
 import GUI.Timeline.CairoDrawing
-import Debug.Trace
 
 import Graphics.UI.Gtk hiding (rectangle)
 import Graphics.Rendering.Cairo