Skip to content

Conversation

@jasagredo
Copy link
Contributor

Description

Add your description here, if it fixes a particular issue please provide a
link
to the issue.

Checklist

  • Commit sequence broadly makes sense and commits have useful messages
  • New tests are added if needed and existing tests are updated. These may include:
    • golden tests
    • property tests
    • roundtrip tests
    • integration tests
      See Runnings tests for more details
  • Any changes are noted in the CHANGELOG.md for affected package
  • The version bounds in .cabal files are updated
  • CI passes. See note on CI. The following CI checks are required:
    • Code is linted with hlint. See .github/workflows/check-hlint.yml to get the hlint version
    • Code is formatted with stylish-haskell. See .github/workflows/stylish-haskell.yml to get the stylish-haskell version
    • Code builds on Linux, MacOS and Windows for ghc-9.6 and ghc-9.12
  • Self-reviewed the diff

Note on CI

If your PR is from a fork, the necessary CI jobs won't trigger automatically for security reasons.
You will need to get someone with write privileges. Please contact IOG node developers to do this
for you.

Comment on lines +1076 to +1077
forMachine _verb (Conway.ConwayWithdrawalsMissingAccounts _) = mconcat [ "todo" .= String "todo"]
forMachine _verb (Conway.ConwayIncompleteWithdrawals _) = mconcat [ "todo" .= String "todo"]
Copy link
Contributor

@lehins lehins Nov 4, 2025

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
forMachine _verb (Conway.ConwayWithdrawalsMissingAccounts _) = mconcat [ "todo" .= String "todo"]
forMachine _verb (Conway.ConwayIncompleteWithdrawals _) = mconcat [ "todo" .= String "todo"]
forMachine _ (Conway.ConwayWithdrawalsMissingAccounts missingWithdrawals) =
mconcat [ "kind" .= String "ConwayWithdrawalsMissingAccounts"
, "withdrawals" .= unWithdrawals missingWithdrawals
]
forMachine _ (Conway.ConwayIncompleteWithdrawals incompleteWithdrawals) =
mconcat [ "kind" .= String "ConwayIncompleteWithdrawals"
, "withdrawals" .= unWithdrawals incompleteWithdrawals
]

Comment on lines +337 to +338
toObject _verb (Conway.ConwayWithdrawalsMissingAccounts _) = mconcat [ "todo" .= String "todo"]
toObject _verb (Conway.ConwayIncompleteWithdrawals _) = mconcat [ "todo" .= String "todo"]
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Suggested change
toObject _verb (Conway.ConwayWithdrawalsMissingAccounts _) = mconcat [ "todo" .= String "todo"]
toObject _verb (Conway.ConwayIncompleteWithdrawals _) = mconcat [ "todo" .= String "todo"]
toObject _ (Conway.ConwayWithdrawalsMissingAccounts missingWithdrawals) =
mconcat [ "kind" .= String "ConwayWithdrawalsMissingAccounts"
, "withdrawals" .= unWithdrawals missingWithdrawals
]
toObject _ (Conway.ConwayIncompleteWithdrawals incompleteWithdrawals) =
mconcat [ "kind" .= String "ConwayIncompleteWithdrawals"
, "withdrawals" .= unWithdrawals incompleteWithdrawals
]

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

3 participants