Update index state

cabal.project

@@ -13,8 +13,8 @@ repository cardano-haskell-packages
 -- See CONTRIBUTING for information about these, including some Nix commands
 -- you need to run if you change them
 index-state:
-  , hackage.haskell.org 2024-03-26T06:28:59Z
-  , cardano-haskell-packages 2024-05-14T16:00:00Z
+  , hackage.haskell.org 2024-05-25T09:09:57Z
+  , cardano-haskell-packages 2024-05-15T19:28:23Z
 
 packages:
   cardano-node
@@ -54,6 +54,10 @@ package bitvec
 package plutus-scripts-bench
   haddock-options: "--optghc=-fplugin-opt PlutusTx.Plugin:defer-errors"
 
+constraints:
+  io-classes-mtl < 0.1.2.0,
+  wai-extra < 3.1.15,
+
 -- 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-testnet/src/Testnet/Runtime.hs

@@ -274,7 +274,9 @@ getAllTransitions trans =
       tupleSingleTransition = toTuple singleTransition
   in case singleTransition of
        [a] -> [(a,"")]
-       _ -> tupleSingleTransition ++ getAllTransitions (snd (head tupleSingleTransition) : rest)
+       _ -> tupleSingleTransition ++ case tupleSingleTransition of
+          b:_ -> getAllTransitions (snd b : rest)
+          [] -> []
  where
    toTuple [a,b] = [(a,b)]
    toTuple [] = []