wip

Author: erikd

cabal.project

@@ -164,8 +164,8 @@ if impl(ghc >=9.14)
 
 -- TEMPORARY: switching to crypton >= 1.1 (which depends on `ram` instead of
 -- `memory`) needs cardano-crypto-class-2.6.0.0 (the first version depending
--- on crypton ^>=1.1 and `ram`), but the released ouroboros-consensus-3.0.1.0
--- pins `cardano-crypto-class ^>=2.3`, which excludes it. The blocks below
+-- on crypton ^>=1.1 and `ram`), but the released ouroboros-consensus-4.1.0.0
+-- pins `cardano-crypto-class ^>=2.5`, which excludes it. The blocks below
 -- replicate the (draft, do-not-merge) upstream fix in
 -- https://github.com/IntersectMBO/ouroboros-consensus/pull/2213, which widens
 -- ouroboros-consensus's bound to also allow cardano-crypto-class-2.6.0.0 and
@@ -184,7 +184,7 @@ allow-newer:
 source-repository-package
   type: git
   location: https://github.com/IntersectMBO/ouroboros-consensus
-  tag: 4da82e0afed5dabbe930d5f5cad5de687428e07b
+  tag: 206dffef96e76e42e15a1fb9fd6796394aef3409
 
 -- TEMPORARY: pulls in cardano-base PR #694 (erikd/contra-tracer, not yet
 -- merged) https://github.com/IntersectMBO/cardano-base/pull/694, which widens

cardano-api/cardano-api.cabal

@@ -132,6 +132,7 @@ library
     bytestring,
     bytestring-trie,
     cardano-addresses ^>=4.0.0,
+    cardano-base ^>=0.1,
     cardano-binary >=1.9.1,
     cardano-crypto,
     cardano-crypto-class ^>=2.6,

cardano-api/src/Cardano/Api/Key/Internal/Leios.hs

@@ -210,7 +210,7 @@ minSigPoPContext = Crypto.minSigPoPDST
 -- honest participants' keys during aggregation (a rogue key attack).
 createBlsPossessionProof :: SigningKey BlsKey -> BlsPossessionProof
 createBlsPossessionProof (BlsSigningKey sk) =
-  BlsPossessionProof (Crypto.createPossessionProofDSIGN Crypto.minSigPoPDST sk)
+  BlsPossessionProof (Crypto.createPossessionProofDSIGN minSigPoPContext sk)
 
 instance HasTypeProxy BlsPossessionProof where
   data AsType BlsPossessionProof = AsBlsPossessionProof

cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Type/Tx.hs

@@ -138,8 +138,8 @@ txToUtxoRpcTx ledgerTx = anyEraTxConstraints sbe $ do
           defMessage
             & U5c.vkey .~ DSIGN.rawEncodeFixedSized bootstrapKey
             & U5c.signature .~ DSIGN.rawEncodeFixedSized bootstrapSignature
-            & U5c.chainCode .~ L.unChainCode (L.bwChainCode bootstrapWitness)
-            & U5c.attributes .~ L.bwAttributes bootstrapWitness
+            & U5c.chainCode .~ SBS.fromShort (byteArrayToShortByteString (L.unChainCode (L.bwChainCode bootstrapWitness)))
+            & U5c.attributes .~ SBS.fromShort (byteArrayToShortByteString (L.bwAttributes bootstrapWitness))
       scriptWitnesses :: [Proto UtxoRpc.Script]
       scriptWitnesses =
         M.elems (wits ^. L.scriptTxWitsL) <&> ledgerScriptToUtxoRpcScript sbe