From e135ced5fa997d1058ac0b3e7db7ebe224c837d6 Mon Sep 17 00:00:00 2001 From: Lars Kuhtz Date: Fri, 25 Oct 2024 15:25:42 -0700 Subject: [PATCH] Apply suggestions from code review Co-authored-by: John Wiegley --- src/Pact/Bench.hs | 2 +- src/Pact/Runtime/Utils.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Pact/Bench.hs b/src/Pact/Bench.hs index 4ecc21421..79c908b3a 100644 --- a/src/Pact/Bench.hs +++ b/src/Pact/Bench.hs @@ -285,7 +285,7 @@ main :: IO () main = do -- uncomment below to see if "-N" is working, important for file perf log -- print =<< getNumCapabilities - !fperf <- if doPerf /= None then mkFilePerf "pact-bench-perf" else (pure def) + !fperf <- if doPerf /= None then mkFilePerf "pact-bench-perf" else pure def let !dbPerf = if doPerf == Db || doPerf == All then fperf else def !interpPerf = if doPerf == Interp || doPerf == All then fperf else def !pub <- eitherDie "pub" $ parseB16TextOnly pk diff --git a/src/Pact/Runtime/Utils.hs b/src/Pact/Runtime/Utils.hs index 66ac83579..ac4eccb03 100644 --- a/src/Pact/Runtime/Utils.hs +++ b/src/Pact/Runtime/Utils.hs @@ -146,7 +146,7 @@ stripTermInfo = stripTerm' stripNameInfo stripArgInfo f (Arg an argtyp _info) = Arg an (stripTypeInfo f argtyp) def stripMetaInfo (Meta docs model) = - Meta docs (fmap (const def) <$> model) + Meta docs (def <$ model) stripAppInfo f (App af args _info) = App (stripTerm' f af) (stripTerm' f <$> args) def stripStepInfo f = \case