Update to node-8.11

Author: kderme

cabal.project

@@ -11,7 +11,7 @@ repository cardano-haskell-packages
 
 index-state:
   , hackage.haskell.org 2024-03-26T06:28:59Z
-  , cardano-haskell-packages 2024-04-05T07:51:28Z
+  , cardano-haskell-packages 2024-05-14T16:00:00Z
 
 packages:
   cardano-db
@@ -79,8 +79,8 @@ allow-newer:
 source-repository-package
   type: git
   location: https://github.com/IntersectMBO/cardano-node
-  tag: 04e060e6d86a5791c00aa518b2cee025384be28b
-  --sha256: sha256-3cG3QV2DbDKxZTnSXMB+hU8Ijxb4oHWNjVs4mOPft7I=
+  tag: 4a18841e7df0d10edab98a612c80217ea49a5c11
+  --sha256: sha256-T5kZqlzTnaain3rypUwhpmY3YcZoDtbSqEQADeucJH4=
   subdir:
     cardano-node
     cardano-submit-api

cardano-chain-gen/src/Cardano/Mock/Forging/Interpreter.hs

@@ -115,7 +115,7 @@ import Ouroboros.Consensus.Protocol.Abstract (
   LedgerView,
   tickChainDepState,
  )
-import Ouroboros.Consensus.Protocol.Praos.Translate ()
+import Ouroboros.Consensus.Protocol.Praos ()
 import Ouroboros.Consensus.Protocol.TPraos ()
 import Ouroboros.Consensus.Shelley.HFEras ()
 import Ouroboros.Consensus.Shelley.Ledger (ShelleyBlock, Ticked, shelleyLedgerState)

cardano-db-sync/src/Cardano/DbSync/Config/Conway.hs

@@ -11,16 +11,21 @@ module Cardano.DbSync.Config.Conway (
 import Cardano.Crypto.Hash (hashToBytes, hashWith)
 import Cardano.DbSync.Config.Types
 import Cardano.DbSync.Error (SyncNodeError (..))
+import Cardano.Ledger.BaseTypes (EpochInterval (..))
+import Cardano.Ledger.Coin (Coin (..))
 import Cardano.Ledger.Conway.Genesis (ConwayGenesis (..))
+import Cardano.Ledger.Conway.PParams (UpgradeConwayPParams (..))
 import Cardano.Ledger.Crypto (StandardCrypto ())
+import Cardano.Ledger.Plutus.CostModels (mkCostModel)
+import Cardano.Ledger.Plutus.Language (Language (..))
 import Cardano.Prelude
 import Control.Monad.Trans.Except.Extra (firstExceptT, handleIOExceptT, hoistEither, left)
 import qualified Data.Aeson as Aeson
 import qualified Data.ByteString as ByteString
 import Data.ByteString.Base16 as Base16
 import Data.Default.Class (def)
 import qualified Data.Text as Text
-import Prelude ()
+import Prelude (error)
 
 type ExceptIO e = ExceptT e IO
 
@@ -36,11 +41,27 @@ readConwayGenesisConfig ::
 readConwayGenesisConfig SyncNodeConfig {..} =
   case dncConwayGenesisFile of
     Just file -> readConwayGenesisConfig' file dncConwayGenesisHash
-    Nothing -> pure (ConwayGenesis def def def mempty mempty)
+    Nothing -> pure (ConwayGenesis defaultUpgradeConwayPParams def def mempty mempty)
   where
     readConwayGenesisConfig' file hash =
       firstExceptT (SNErrConwayConfig (unGenesisFile file) . renderConwayGenesisError) $
         readGenesis file hash
+    defaultUpgradeConwayPParams :: UpgradeConwayPParams Identity
+    defaultUpgradeConwayPParams =
+      UpgradeConwayPParams
+        { ucppPoolVotingThresholds = def
+        , ucppDRepVotingThresholds = def
+        , ucppCommitteeMinSize = 0
+        , ucppCommitteeMaxTermLength = EpochInterval 0
+        , ucppGovActionLifetime = EpochInterval 0
+        , ucppGovActionDeposit = Coin 0
+        , ucppDRepDeposit = Coin 0
+        , ucppDRepActivity = EpochInterval 0
+        , ucppMinFeeRefScriptCostPerByte = minBound
+        , ucppPlutusV3CostModel = case mkCostModel PlutusV3 (replicate 233 0) of
+            Left err -> error $ "Failed to create default Plutus V3 CostModel " <> show err
+            Right cm -> cm
+        }
 
 readGenesis ::
   GenesisFile ->

cardano-db-sync/src/Cardano/DbSync/Era/Shelley/Generic/Util.hs

@@ -153,7 +153,7 @@ unTxHash :: TxId era -> ByteString
 unTxHash (TxId txid) = Crypto.hashToBytes $ Ledger.extractHash txid
 
 unAssetName :: AssetName -> ByteString
-unAssetName = SBS.fromShort . assetName
+unAssetName = SBS.fromShort . assetNameBytes
 
 dataHashToBytes :: DataHash -> ByteString
 dataHashToBytes = Crypto.hashToBytes . Ledger.extractHash

cardano-db-sync/src/Cardano/DbSync/Util.hs

@@ -55,7 +55,7 @@ import qualified Data.Text as Text
 import qualified Data.Text.Encoding as Text
 import qualified Data.Time.Clock as Time
 import Ouroboros.Consensus.Block.Abstract (ConvertRawHash (..))
-import Ouroboros.Consensus.Protocol.Praos.Translate ()
+import Ouroboros.Consensus.Protocol.Praos ()
 import Ouroboros.Consensus.Shelley.HFEras ()
 import Ouroboros.Consensus.Shelley.Ledger.SupportsProtocol ()
 import Ouroboros.Network.Block (blockSlot, getPoint)

cardano-db/src/Cardano/Db/Delete.hs

@@ -45,8 +45,8 @@ import Database.Persist.Sql (
   deleteWhereCount,
   selectKeysList,
   (==.),
-  (>=.),
   (>.),
+  (>=.),
  )
 
 deleteBlocksSlotNoNoTrace :: MonadIO m => SlotNo -> ReaderT SqlBackend m Bool

cardano-db/test/Test/Property/Cardano/Db/Types.hs

@@ -48,7 +48,7 @@ prop_AssetFingerprint =
     unScriptHash (Ledger.ScriptHash h) = Crypto.hashToBytes h
 
     unAssetName :: AssetName -> ByteString
-    unAssetName = SBS.fromShort . assetName
+    unAssetName = SBS.fromShort . assetNameBytes
 
     testVectors :: [(PolicyID StandardCrypto, AssetName, AssetFingerprint)]
     testVectors =