diff --git a/bench/cardano-recon-framework/src/Cardano/ReCon/Trace/Feed.hs b/bench/cardano-recon-framework/src/Cardano/ReCon/Trace/Feed.hs index 088bb477c93..b93edc4b11e 100644 --- a/bench/cardano-recon-framework/src/Cardano/ReCon/Trace/Feed.hs +++ b/bench/cardano-recon-framework/src/Cardano/ReCon/Trace/Feed.hs @@ -37,7 +37,7 @@ fill :: TemporalEventDurationMicrosec -> Seq TraceMessage -> Word64 -> [TraceMes fill duration acc t (x : xs) | utcToMicroseconds x.tmsgAt <= t + fromIntegral duration = fill duration (acc |> x) t xs fill duration acc t rest = (TemporalEvent t (Foldable.toList acc), t + fromIntegral duration, rest) --- | Slice up the trace messages into consequtive temporal events. +-- | Slice up the trace messages into consecutive temporal events. slice :: TemporalEventDurationMicrosec -> [TraceMessage] -> [TemporalEvent] slice _ [] = [] slice duration msg_@(x : _) = go (utcToMicroseconds (tmsgAt x)) msg_ where diff --git a/bench/locli/src-quick/Data/Reducer.hs b/bench/locli/src-quick/Data/Reducer.hs index 2e4bcfe78c1..dd1287a41f7 100644 --- a/bench/locli/src-quick/Data/Reducer.hs +++ b/bench/locli/src-quick/Data/Reducer.hs @@ -43,7 +43,7 @@ instance ( Foldable f2 r1 <-> r2 = Chain r1 r2 -- Explicitly chain reducers with a projection function that extracts a Foldable and --- an initial accumulator value from the first reducer's reult value +-- an initial accumulator value from the first reducer's result value chainWith :: ( Foldable f1 , Foldable f2 @@ -67,7 +67,7 @@ instance Reducer (HigherOrder a) where initialOf _ = ([], Nothing) reducerOf (Threshold f) = go where - -- still in intial state? always use the head of the original sequence as first data point + -- still in initial state? always use the head of the original sequence as first data point go ([], _) h = ([h], Just h) go (acc@(h:_), _) next | f h next = (next:acc, Just next) diff --git a/bench/locli/src-quick/Graphics/EasyPlot.hs b/bench/locli/src-quick/Graphics/EasyPlot.hs index e852fbae358..ea080e223b0 100644 --- a/bench/locli/src-quick/Graphics/EasyPlot.hs +++ b/bench/locli/src-quick/Graphics/EasyPlot.hs @@ -197,7 +197,7 @@ data Graph3D x y z = -- ^ plots data read from a file, optionally giving indices of which columns to plot as x, y and z -- | Options which can be used with 'plot'' -data GnuplotOption = Interactive -- ^ keeps gnuplot open, so that you can interact with the plot (only usefull with 'X11') +data GnuplotOption = Interactive -- ^ keeps gnuplot open, so that you can interact with the plot (only useful with 'X11') | Debug -- ^ keeps intermediate files used to invoke gnuplot, such as the script '_plot.p' and the datafiles '_plot*.dat'. deriving Eq