From d157825222eded73dc1c04f0929fb81a70aba45f Mon Sep 17 00:00:00 2001
From: Kosyrev Serge <serge.kosyrev@iohk.io>
Date: Tue, 21 Dec 2021 07:11:40 +0300
Subject: [PATCH] locli:  switch to foldl' on the main spine

---
 bench/locli/src/Cardano/Analysis/BlockProp.hs    | 2 +-
 bench/locli/src/Cardano/Analysis/MachTimeline.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/bench/locli/src/Cardano/Analysis/BlockProp.hs b/bench/locli/src/Cardano/Analysis/BlockProp.hs
index 80dcd58842d..d27ca5edadf 100644
--- 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
index 8a12d6ecf7c..fc8392ab25d 100644
--- 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 =