Skip to content

Commit

Permalink
Apply suggestions from code review
Browse files Browse the repository at this point in the history
Co-authored-by: John Wiegley <[email protected]>
  • Loading branch information
larskuhtz and jwiegley authored Oct 25, 2024
1 parent 73272e0 commit e135ced
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 2 deletions.
2 changes: 1 addition & 1 deletion src/Pact/Bench.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion src/Pact/Runtime/Utils.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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)

Check failure on line 149 in src/Pact/Runtime/Utils.hs

View workflow job for this annotation

GitHub Actions / build (9.6.6, 3.12, ubuntu-20.04, true, +build-tool)

• No instance for ‘Default (Exp Info)’ arising from a use of ‘def’

Check failure on line 149 in src/Pact/Runtime/Utils.hs

View workflow job for this annotation

GitHub Actions / build (9.6.6, 3.12, ubuntu-22.04, true, +build-tool)

• No instance for ‘Default (Exp Info)’ arising from a use of ‘def’

Check failure on line 149 in src/Pact/Runtime/Utils.hs

View workflow job for this annotation

GitHub Actions / build (9.6.6, 3.12, macos-14, true, +build-tool)

• No instance for ‘Default (Exp Info)’ arising from a use of ‘def’

Check failure on line 149 in src/Pact/Runtime/Utils.hs

View workflow job for this annotation

GitHub Actions / build (9.8.2, 3.12, ubuntu-20.04, true, +build-tool)

• No instance for ‘Default (Exp Info)’ arising from a use of ‘def’

Check failure on line 149 in src/Pact/Runtime/Utils.hs

View workflow job for this annotation

GitHub Actions / build (9.8.2, 3.12, ubuntu-22.04, true, +build-tool)

• No instance for ‘Default (Exp Info)’ arising from a use of ‘def’

Check failure on line 149 in src/Pact/Runtime/Utils.hs

View workflow job for this annotation

GitHub Actions / build (9.8.2, 3.12, macos-14, true, +build-tool)

• No instance for ‘Default (Exp Info)’ arising from a use of ‘def’

Check failure on line 149 in src/Pact/Runtime/Utils.hs

View workflow job for this annotation

GitHub Actions / build (9.10.1, 3.12, ubuntu-20.04, true, +build-tool)

• No instance for ‘Default (Exp Info)’ arising from a use of ‘def’

Check failure on line 149 in src/Pact/Runtime/Utils.hs

View workflow job for this annotation

GitHub Actions / build (9.10.1, 3.12, ubuntu-22.04, true, +build-tool)

• No instance for ‘Default (Exp Info)’ arising from a use of ‘def’

Check failure on line 149 in src/Pact/Runtime/Utils.hs

View workflow job for this annotation

GitHub Actions / build (9.10.1, 3.12, macos-14, true, +build-tool)

• No instance for ‘Default (Exp Info)’ arising from a use of ‘def’

Check failure on line 149 in src/Pact/Runtime/Utils.hs

View workflow job for this annotation

GitHub Actions / build (ubuntu-22.04, 9.8.2, 3.12, true, -build-tool)

• No instance for ‘Default (Exp Info)’ arising from a use of ‘def’
stripAppInfo f (App af args _info) =
App (stripTerm' f af) (stripTerm' f <$> args) def
stripStepInfo f = \case
Expand Down

0 comments on commit e135ced

Please sign in to comment.