Fix unused record wildcards

Author: maoe

GUI/Timeline.hs

@@ -133,7 +133,7 @@ timelineWindowSetBookmarks timelineWin@TimelineView{bookmarkIORef} bookmarks = d
 -----------------------------------------------------------------------------
 
 timelineViewNew :: Builder -> TimelineViewActions -> IO TimelineView
-timelineViewNew builder actions@TimelineViewActions{..} = do
+timelineViewNew builder actions = do
 
   let getWidget cast = builderGetObject builder cast
   timelineViewport    <- getWidget castToWidget "timeline_viewport"
@@ -226,7 +226,7 @@ timelineViewNew builder actions@TimelineViewActions{..} = do
     (x,_y) <- eventCoordinates
     button <- eventButton
     liftIO $ widgetGrabFocus timelineViewport
-    withMouseState (\st -> mousePress timelineWin actions st button x)
+    withMouseState (\st -> mousePress timelineWin st button x)
     return False
 
   on timelineDrawingArea buttonReleaseEvent $ do
@@ -396,9 +396,9 @@ data MouseState = None
                 | DragLeft   !Double   -- dragging with left mouse button
                 | DragMiddle !Double !Double  -- dragging with middle mouse button
 
-mousePress :: TimelineView -> TimelineViewActions
+mousePress :: TimelineView
            -> MouseState -> MouseButton -> Double -> IO MouseState
-mousePress view@TimelineView{..} TimelineViewActions{..} state button x =
+mousePress view@TimelineView{..} state button x =
   case (state, button) of
     (None, LeftButton)   -> do xv <- viewPointToTime view x
                                -- update the view without notifying the client

GUI/Timeline/HEC.hs

@@ -43,7 +43,7 @@ renderHEC params@ViewParameters{..} start end perfNames (dtree,etree) = do
 renderInstantHEC :: ViewParameters -> Timestamp -> Timestamp
                  -> IM.IntMap Text -> EventTree
                  -> Render ()
-renderInstantHEC params@ViewParameters{..} start end
+renderInstantHEC params start end
                  perfNames (EventTree ltime etime tree) = do
   let instantDetail = 1
   renderEvents params ltime etime start end instantDetail perfNames tree
@@ -61,7 +61,7 @@ renderDurations :: ViewParameters
 
 renderDurations _ _ _ DurationTreeEmpty = return ()
 
-renderDurations params@ViewParameters{..} startPos endPos (DurationTreeLeaf e)
+renderDurations params startPos endPos (DurationTreeLeaf e)
   | inView startPos endPos e = drawDuration params e
   | otherwise                = return ()
 
@@ -89,7 +89,7 @@ renderEvents :: ViewParameters
              -> IM.IntMap Text -> EventNode
              -> Render Bool
 
-renderEvents params@ViewParameters{..} !_s !_e !startPos !endPos ewidth
+renderEvents params !_s !_e !startPos !endPos ewidth
              perfNames (EventTreeLeaf es)
   = let within = [ e | e <- es, let t = evTime e, t >= startPos && t < endPos ]
         untilTrue _ [] = return False
@@ -98,7 +98,7 @@ renderEvents params@ViewParameters{..} !_s !_e !startPos !endPos ewidth
           if b then return b else untilTrue f xs
     in untilTrue (drawEvent params ewidth perfNames) within
 
-renderEvents params@ViewParameters{..} !_s !_e !startPos !endPos ewidth
+renderEvents params !_s !_e !startPos !endPos ewidth
         perfNames (EventTreeOne ev)
   | t >= startPos && t < endPos = drawEvent params ewidth perfNames ev
   | otherwise = return False
@@ -248,7 +248,7 @@ labelAt labelsMode t str
 
 drawEvent :: ViewParameters -> Double -> IM.IntMap Text -> GHC.Event
           -> Render Bool
-drawEvent params@ViewParameters{..} ewidth perfNames event =
+drawEvent params ewidth perfNames event =
   let renderI = renderInstantEvent params perfNames event ewidth
   in case evSpec event of
     CreateThread{}  -> renderI createThreadColour

GUI/Timeline/Render.hs

@@ -250,7 +250,7 @@ renderTraces params@ViewParameters{..} hecs (Rectangle rx _ry rw _rh) = do
                renderSparkConversion params slice start end (prof !! c)
              TracePoolHEC c ->
                let maxP = maxSparkPool hecs
-               in renderSparkPool params slice start end (prof !! c) maxP
+               in renderSparkPool slice start end (prof !! c) maxP
              TraceHistogram ->
                renderSparkHistogram params hecs
              TraceGroup _ -> error "renderTrace"

GUI/Timeline/Sparks.hs

@@ -67,10 +67,10 @@ renderSparkConversion params !slice !start !end prof = do
   renderSpark params slice start end prof
     f1 createdConvertedColour f2 fizzledDudsColour f3 gcColour
 
-renderSparkPool :: ViewParameters -> Timestamp -> Timestamp -> Timestamp
+renderSparkPool :: Timestamp -> Timestamp -> Timestamp
                 -> [SparkStats.SparkStats]
                 -> Double -> Render ()
-renderSparkPool ViewParameters{..} !slice !start !end prof !maxSparkPool = do
+renderSparkPool !slice !start !end prof !maxSparkPool = do
   let f1 c = SparkStats.minPool c
       f2 c = SparkStats.meanPool c
       f3 c = SparkStats.maxPool c