TOSQUASH: cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Rpc/SearchUtxos.hs

Co-authored-by: Copilot Autofix powered by AI <175728472+Copilot@users.noreply.github.com>

Author: carbolymer

cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Rpc/SearchUtxos.hs

@@ -149,12 +149,13 @@ hprop_rpc_search_utxos = integrationRetryWorkspace 2 "rpc-search-utxos" $ \tempA
     -- Test 2: exact address + payment credential predicate
     -------------------------------------------
     H.note_ "Test 2: Verify exact address + payment credential predicate matches same UTxOs"
-    let paymentCredBytes :: ByteString
-        paymentCredBytes = case address1 of
-          AddressInEra ShelleyAddressInEra{} (ShelleyAddress _ payCred _) ->
-            serialisePaymentCredential $ fromShelleyPaymentCredential payCred
-          _ -> error "Expected a Shelley address"
-        paymentPredicate :: Proto UtxoRpc.UtxoPredicate
+    paymentCredBytes <- case address1 of
+      AddressInEra ShelleyAddressInEra{} (ShelleyAddress _ payCred _) ->
+        pure $ serialisePaymentCredential $ fromShelleyPaymentCredential payCred
+      _ -> do
+        H.note_ "Expected a Shelley address"
+        H.failure
+    let paymentPredicate :: Proto UtxoRpc.UtxoPredicate
         paymentPredicate =
           def
             & U5c.match