locli: switch to foldl' on the main spine

IntersectMBO · Jan 17, 2022 · d157825 · d157825
1 parent f1c44ab
commit d157825
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/bench/locli/src/Cardano/Analysis/BlockProp.hs b/bench/locli/src/Cardano/Analysis/BlockProp.hs
@@ -454,7 +454,7 @@ blockEventMapsFromLogObjects run (f@(unJsonLogfile -> fp), xs) =
          ["No block events in ",fp," : ","LogObject count: ",show (length xs)]
     else view
  where
-   view = foldl (blockPropMachEventsStep run f) initial xs
+   view = foldl' (blockPropMachEventsStep run f) initial xs
    initial =
      MachView
      { mvBlocks  = mempty

diff --git a/bench/locli/src/Cardano/Analysis/MachTimeline.hs b/bench/locli/src/Cardano/Analysis/MachTimeline.hs
@@ -158,7 +158,7 @@ data RunScalars
 timelineFromLogObjects :: Run -> [LogObject] -> (RunScalars, [SlotStats])
 timelineFromLogObjects run =
   (aRunScalars &&& reverse . aSlotStats)
-  . foldl (timelineStep run) zeroTimelineAccum
+  . foldl' (timelineStep run) zeroTimelineAccum
  where
    zeroTimelineAccum :: TimelineAccum
    zeroTimelineAccum =