Merge pull request #885 from IntersectMBO/mgalazyn/feature/add-cardano-rpc

Add cardano-rpc package

Author: carbolymer

.github/workflows/haskell.yml

@@ -20,7 +20,7 @@ jobs:
     strategy:
       fail-fast: false
       matrix:
-        ghc: ["9.6", "9.12"]
+        ghc: ["9.6", "9.10"]
         cabal: ["3.14"]
         sys:
           - { os: windows-latest, shell: 'C:/msys64/usr/bin/bash.exe -e {0}' }
@@ -80,6 +80,25 @@ jobs:
       with:
         use-sodium-vrf: true # default is true
 
+    - name: "[Linux] Install grpc dependencies"
+      if: runner.os == 'Linux'
+      run: sudo apt install libsnappy-dev protobuf-compiler
+
+    - name: "[Windows] Install grpc dependencies"
+      if: runner.os == 'Windows'
+      run: /usr/bin/pacman --noconfirm -S mingw-w64-x86_64-snappy mingw-w64-x86_64-protobuf
+
+    - name: "[macOS] Install grpc dependencies"
+      if: runner.os == 'macOS'
+      run: |
+        brew install snappy protobuf
+        SNAPPY_PREFIX=$(brew --prefix snappy)
+        # TODO generalise and move these paths fixups to https://github.com/input-output-hk/actions/blob/latest/base/action.yml
+        cat <<EOF >> $GITHUB_ENV
+        LIBRARY_PATH=$SNAPPY_PREFIX/lib
+        CPATH=$SNAPPY_PREFIX/include
+        EOF
+
     - uses: actions/checkout@v4
 
     - name: Cabal update
@@ -159,10 +178,10 @@ jobs:
     # and will silently fail if msys2 is not in path. See the "Run tests" step.
     #
     # - name: Setup tmate session
-    #  if: ${{ failure() }}
-    #  uses: mxschmitt/action-tmate@v3
-    #  with:
-    #     limit-access-to-actor: true
+    #   if: ${{ failure() }}
+    #   uses: mxschmitt/action-tmate@v3
+    #   with:
+    #      limit-access-to-actor: true
 
   build-complete:
     needs: [build]

.github/workflows/hls.yml

@@ -113,4 +113,10 @@ jobs:
 
       - name: Test HLS works
         if: steps.check_trivial_changes.outputs.CHECK_HLS_WORKS > 0
-        run: haskell-language-server
+        run: |
+          # workaround for https://github.com/haskell/haskell-language-server/issues/3735
+          cat <<EOF > hie.yaml
+          cradle:
+            cabal:
+          EOF
+          haskell-language-server

CHANGELOG.md

@@ -5,3 +5,6 @@ The changelogs of constituent packages:
 
 ### `cardano-api-gen`
 [./cardano-api-gen/CHANGELOG.md](./cardano-api-gen/CHANGELOG.md)
+
+### `cardano-rpc`
+[./cardano-rpc/CHANGELOG.md](./cardano-rpc/CHANGELOG.md)

NOTICE

@@ -1,4 +1,4 @@
-Copyright 2021-2023 Input Output Global Inc (IOG).
+Copyright 2021-2025 Input Output Global Inc (IOG).
 
 Licensed under the Apache License, Version 2.0 (the "License");
 you may not use this file except in compliance with the License.

cabal.project

@@ -20,6 +20,7 @@ packages:
     cardano-api
     cardano-api-gen
     cardano-wasm
+    cardano-rpc
 
 extra-packages: Cabal, process
 
@@ -51,10 +52,6 @@ write-ghc-environment-files: always
 jobs: $ncpus
 semaphore: True
 
--- IMPORTANT
--- Do NOT add more source-repository-package stanzas here unless they are strictly
--- temporary! Please read the section in CONTRIBUTING about updating dependencies.
-
 if impl (ghc >= 9.12)
   allow-newer:
     -- https://github.com/kapralVV/Unique/issues/11
@@ -151,3 +148,7 @@ if arch(wasm32)
   package crypton
     ghc-options: -optc-DARGON2_NO_THREADS
 
+-- IMPORTANT
+-- Do NOT add more source-repository-package stanzas here unless they are strictly
+-- temporary! Please read the section in CONTRIBUTING about updating dependencies.
+

cardano-api-gen/NOTICE

@@ -1,4 +1,4 @@
-Copyright 2020-2023 Input Output Global Inc (IOG).
+Copyright 2020-2025 Input Output Global Inc (IOG).
 
 Licensed under the Apache License, Version 2.0 (the "License");
 you may not use this file except in compliance with the License.

cardano-api/NOTICE

@@ -1,4 +1,4 @@
-Copyright 2020-2023 Input Output Global Inc (IOG).
+Copyright 2020-2025 Input Output Global Inc (IOG).
 
 Licensed under the Apache License, Version 2.0 (the "License");
 you may not use this file except in compliance with the License.

cardano-api/src/Cardano/Api/Experimental/Era.hs

@@ -39,6 +39,7 @@ import Cardano.Api.Era.Internal.Eon.Convert
 import Cardano.Api.Era.Internal.Eon.ConwayEraOnwards
 import Cardano.Api.Era.Internal.Eon.MaryEraOnwards
 import Cardano.Api.Era.Internal.Eon.ShelleyBasedEra (ShelleyBasedEra (..), ShelleyLedgerEra)
+import Cardano.Api.Error
 import Cardano.Api.Ledger.Internal.Reexport qualified as L
 import Cardano.Api.Pretty.Internal.ShowOf
 
@@ -232,6 +233,10 @@ newtype DeprecatedEra era
 
 deriving via (ShowOf (DeprecatedEra era)) instance Pretty (DeprecatedEra era)
 
+instance Error (DeprecatedEra era) where
+  prettyError (DeprecatedEra era) =
+    "The era " <> pretty (show era) <> " is deprecated and no longer supported."
+
 sbeToEra
   :: MonadError (DeprecatedEra era) m
   => ShelleyBasedEra era

cardano-api/src/Cardano/Api/Governance/Internal/Action/VotingProcedure.hs

@@ -17,9 +17,11 @@ module Cardano.Api.Governance.Internal.Action.VotingProcedure where
 import Cardano.Api.Address
 import Cardano.Api.Era.Internal.Eon.ConwayEraOnwards
 import Cardano.Api.Era.Internal.Eon.ShelleyBasedEra
+import Cardano.Api.Error
 import Cardano.Api.Governance.Internal.Action.ProposalProcedure
 import Cardano.Api.HasTypeProxy
 import Cardano.Api.Ledger.Internal.Reexport qualified as Ledger
+import Cardano.Api.Pretty (pshow)
 import Cardano.Api.Serialise.Cbor
 import Cardano.Api.Serialise.TextEnvelope.Internal
 
@@ -144,6 +146,9 @@ newtype VotesMergingConflict era
       )
   deriving Show
 
+instance Error (VotesMergingConflict era) where
+  prettyError = pshow
+
 -- | @mergeVotingProcedures vote1 vote2@ merges @vote1@ and @vote2@ into a single vote,
 -- or fails if the votes are incompatible.
 mergeVotingProcedures

cardano-api/src/Cardano/Api/Governance/Internal/Poll.hs

@@ -37,6 +37,7 @@ module Cardano.Api.Governance.Internal.Poll
 where
 
 import Cardano.Api.Era
+import Cardano.Api.Error
 import Cardano.Api.HasTypeProxy
 import Cardano.Api.Hash
 import Cardano.Api.Key.Internal
@@ -278,6 +279,9 @@ data GovernancePollError
   | ErrGovernancePollInvalidAnswer GovernancePollInvalidAnswerError
   deriving Show
 
+instance Error GovernancePollError where
+  prettyError = pretty . renderGovernancePollError
+
 data GovernancePollInvalidAnswerError = GovernancePollInvalidAnswerError
   { invalidAnswerAcceptableAnswers :: [(Word, Text)]
   , invalidAnswerReceivedAnswer :: Word