Update to node-10.7.1

Author: kderme

cabal.project

@@ -10,8 +10,8 @@ repository cardano-haskell-packages
     d4a35cd3121aa00d18544bb0ac01c3e1691d618f462c46129271bccf39f7e8ee
 
 index-state:
-  , hackage.haskell.org 2026-02-17T10:15:41Z
-  , cardano-haskell-packages 2026-03-30T15:30:34Z
+  , hackage.haskell.org 2026-03-26T20:21:33Z
+  , cardano-haskell-packages 2026-04-14T21:25:56Z
 active-repositories:
   , :rest
   , cardano-haskell-packages:override
@@ -106,19 +106,20 @@ if impl (ghc >= 9.12)
 source-repository-package
   type: git
   location: https://github.com/IntersectMBO/cardano-node
-  tag: 1e6d8228693ab2aa4e1d7305e7bdcc57cdd278e4
-  --sha256: sha256-6b9fX1RNmHdBRpmE4WYFCf13vwZZGg1LHRhHP7GRJHE=
+  tag: 045bc187a36ef0cbd236db902b85dd8f202fb059
+  --sha256: sha256-D2HMIr65q0RM9+ZAjbtA9xNKyoKYfr3Kc4Vv4+s64uY=
   subdir:
     cardano-node
     trace-forward
     trace-resources
 
 if impl(ghc >= 9.12)
+  -- GHC 9.12 support - master branch
   source-repository-package
     type: git
     location: https://github.com/google/proto-lens
-    tag: 20de5227947b0c37dd6852dcc6f2db1cd5889cee
-    --sha256: sha256-VUYU2swjU7L8Zdu6Zfz6jo2ulW5uPhAamt2GjH5hZRY=
+    tag: 13ce67409ad87e8c29eea58b31aa37f44e82457c
+    --sha256: sha256-8XPGLheOo5ZStL7YD5x29GechWFjubw+in5GsUrKWPc=
     subdir:
       discrimination-ieee754
       proto-lens-arbitrary

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

@@ -28,7 +28,7 @@ import qualified Cardano.Ledger.State as Ledger
 import Cardano.Ledger.Val ((<+>))
 import Cardano.Prelude
 import qualified Data.Map.Strict as Map
-import Data.VMap (VB, VMap (..))
+import Data.VMap (VB, VMap (..), VS)
 import qualified Data.VMap as VMap
 import qualified Data.Vector.Generic as VG
 import Lens.Micro
@@ -49,12 +49,12 @@ data StakeSliceRes
 
 data StakeSlice = StakeSlice
   { sliceEpochNo :: !EpochNo
-  , sliceDistr :: !(Map StakeCred (Coin, PoolKeyHash))
+  , sliceDistr :: ![(StakeCred, (Coin, PoolKeyHash))]
   }
   deriving (Eq)
 
 emptySlice :: EpochNo -> StakeSlice
-emptySlice epoch = StakeSlice epoch Map.empty
+emptySlice epoch = StakeSlice epoch []
 
 getSecurityParameter ::
   ConsensusProtocol (BlockProtocol blk) =>
@@ -120,7 +120,7 @@ genericStakeSlice pInfo epochBlockNo lstate isMigration
       Ledger.ssStakeMark . Shelley.esSnapshots . Shelley.nesEs $
         Consensus.shelleyLedgerState lstate
 
-    activeStakeEntries :: VMap.KVVector VB VB (Credential Staking, StakeWithDelegation)
+    activeStakeEntries :: VMap.KVVector VB VS (Credential Staking, StakeWithDelegation)
     activeStakeEntries = VMap.unVMap $ Ledger.unActiveStake $ Ledger.ssActiveStake stakeSnapshot
 
     delegationsLen :: Word64
@@ -162,13 +162,12 @@ genericStakeSlice pInfo epochBlockNo lstate isMigration
         , sliceDistr = distribution
         }
       where
-        activeStakeSliced :: VMap VB VB (Credential Staking) StakeWithDelegation
+        activeStakeSliced :: VMap VB VS (Credential Staking) StakeWithDelegation
         activeStakeSliced = VMap $ VG.slice (fromIntegral index) (fromIntegral actualSize) activeStakeEntries
 
-        distribution :: Map StakeCred (Coin, PoolKeyHash)
+        distribution :: [(StakeCred, (Coin, PoolKeyHash))]
         distribution =
-          VMap.toMap $
-            VMap.map (\swd -> (Ledger.fromCompact (unNonZero (swdStake swd)), swdDelegation swd)) activeStakeSliced
+          VMap.foldlWithKey (\acc cred swd -> (cred, (Ledger.fromCompact (unNonZero (swdStake swd)), swdDelegation swd)) : acc) [] activeStakeSliced
 
 countEpochStake ::
   ExtLedgerState CardanoBlock mk ->
@@ -198,7 +197,7 @@ genericCountEpochStake lstate =
       Ledger.ssStakeMark . Shelley.esSnapshots . Shelley.nesEs $
         Consensus.shelleyLedgerState lstate
 
-    activeStake :: VMap VB VB (Credential Staking) StakeWithDelegation
+    activeStake :: VMap VB VS (Credential Staking) StakeWithDelegation
     activeStake = Ledger.unActiveStake $ Ledger.ssActiveStake stakeSnapshot
 
     -- ActiveStake only contains entries with non-zero stake, so no filtering needed
@@ -237,7 +236,7 @@ genericFullStakeSlice lstate =
       Ledger.ssStakeMark . Shelley.esSnapshots . Shelley.nesEs $
         Consensus.shelleyLedgerState lstate
 
-    activeStakeEntries :: VMap.KVVector VB VB (Credential Staking, StakeWithDelegation)
+    activeStakeEntries :: VMap.KVVector VB VS (Credential Staking, StakeWithDelegation)
     activeStakeEntries = VMap.unVMap $ Ledger.unActiveStake $ Ledger.ssActiveStake stakeSnapshot
 
     delegationsLen :: Word64
@@ -254,13 +253,12 @@ genericFullStakeSlice lstate =
         , sliceDistr = distribution
         }
       where
-        activeStakeSliced :: VMap VB VB (Credential Staking) StakeWithDelegation
+        activeStakeSliced :: VMap VB VS (Credential Staking) StakeWithDelegation
         activeStakeSliced = VMap $ VG.slice (fromIntegral index) (fromIntegral delegationsLen) activeStakeEntries
 
-        distribution :: Map StakeCred (Coin, PoolKeyHash)
+        distribution :: [(StakeCred, (Coin, PoolKeyHash))]
         distribution =
-          VMap.toMap $
-            VMap.map (\swd -> (Ledger.fromCompact (unNonZero (swdStake swd)), swdDelegation swd)) activeStakeSliced
+          VMap.foldlWithKey (\acc cred swd -> (cred, (Ledger.fromCompact (unNonZero (swdStake swd)), swdDelegation swd)) : acc) [] activeStakeSliced
 
 getPoolDistr ::
   ExtLedgerState CardanoBlock mk ->

cardano-db-sync/src/Cardano/DbSync/Era/Universal/Epoch.hs

@@ -195,7 +195,7 @@ insertStakeSlice ::
   ExceptT SyncNodeError DB.DbM ()
 insertStakeSlice _ Generic.NoSlices = pure ()
 insertStakeSlice syncEnv (Generic.Slice slice finalSlice) = do
-  insertEpochStake syncEnv network (Generic.sliceEpochNo slice) (Map.toList $ Generic.sliceDistr slice)
+  insertEpochStake syncEnv network (Generic.sliceEpochNo slice) (Generic.sliceDistr slice)
   when finalSlice $ do
     lift $ DB.updateStakeProgressCompleted $ unEpochNo $ Generic.sliceEpochNo slice
     size <- lift $ DB.queryEpochStakeCount (unEpochNo $ Generic.sliceEpochNo slice)

flake.lock

@@ -245,6 +245,7 @@
               buildInputs = with nixpkgs.pkgsBuildBuild; [
                 git
                 protobuf
+                liburing
               ];
 
               withHoogle = true;
@@ -282,6 +283,30 @@
                   [ "../schema/*.sql" ];
               })
 
+              # TODO remove this module when removing proto-lens SRP
+              # Override proto-lens source to use fixed symlinks (inputMap provides the fixed
+              # source for plan computation; this module provides it for the build phase)
+              ({lib, config, ...}: let
+                protoLensPackages = [
+                  "proto-lens"
+                  "proto-lens-arbitrary"
+                  "proto-lens-discrimination"
+                  "proto-lens-optparse"
+                  "proto-lens-protobuf-types"
+                  "proto-lens-protoc"
+                  "proto-lens-runtime"
+                  "proto-lens-setup"
+                  "proto-lens-tests-dep"
+                  "proto-lens-tests"
+                  "discrimination-ieee754"
+                  "proto-lens-benchmarks"
+                ];
+              in {
+                packages = lib.genAttrs
+                  (builtins.filter (p: config.packages ? ${p}) protoLensPackages)
+                  (p: { src = lib.mkForce (protoLensSrcFixed + "/${p}"); });
+              })
+
               ({ lib, pkgs, config, ... }: {
                 # lib:ghc is a bit annoying in that it comes with it's own build-type:Custom, and then tries
                 # to call out to all kinds of silly tools that GHC doesn't really provide.