From fd2f3a044f4516dd0bd84c9222569d09c3894677 Mon Sep 17 00:00:00 2001 From: Pawel Jakubas Date: Thu, 6 Jul 2023 16:22:34 +0200 Subject: [PATCH] hlint --- .../src/Test/Integration/Scenario/API/Byron/Transactions.hs | 2 +- .../src/Test/Integration/Scenario/API/Shared/Transactions.hs | 2 +- .../Test/Integration/Scenario/API/Shelley/TransactionsNew.hs | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/wallet/integration/src/Test/Integration/Scenario/API/Byron/Transactions.hs b/lib/wallet/integration/src/Test/Integration/Scenario/API/Byron/Transactions.hs index aa6125f3b1f..ad1802ca555 100644 --- a/lib/wallet/integration/src/Test/Integration/Scenario/API/Byron/Transactions.hs +++ b/lib/wallet/integration/src/Test/Integration/Scenario/API/Byron/Transactions.hs @@ -835,7 +835,7 @@ spec = describe "BYRON_TRANSACTIONS" $ do let walType = getFromResponse #discovery ra -- needs to be >= 2^31 - let addrIx' = 2147483648 + addrIx + let addrIx' = 2_147_483_648 + addrIx case walType of DiscoveryRandom -> do diff --git a/lib/wallet/integration/src/Test/Integration/Scenario/API/Shared/Transactions.hs b/lib/wallet/integration/src/Test/Integration/Scenario/API/Shared/Transactions.hs index edc1664eaa9..84a34d3f770 100644 --- a/lib/wallet/integration/src/Test/Integration/Scenario/API/Shared/Transactions.hs +++ b/lib/wallet/integration/src/Test/Integration/Scenario/API/Shared/Transactions.hs @@ -2631,7 +2631,7 @@ spec = describe "SHARED_TRANSACTIONS" $ do expectResponseCode HTTP.status200 rAddr let addrs = getFromResponse Prelude.id rAddr - let addr0 = (addrs !! 0) ^. #id + let addr0 = (head addrs) ^. #id let linkList0 = Link.listTransactions' @'Shared wDest Nothing Nothing diff --git a/lib/wallet/integration/src/Test/Integration/Scenario/API/Shelley/TransactionsNew.hs b/lib/wallet/integration/src/Test/Integration/Scenario/API/Shelley/TransactionsNew.hs index 5b717ee1195..863e8c79310 100644 --- a/lib/wallet/integration/src/Test/Integration/Scenario/API/Shelley/TransactionsNew.hs +++ b/lib/wallet/integration/src/Test/Integration/Scenario/API/Shelley/TransactionsNew.hs @@ -4193,7 +4193,7 @@ spec = describe "NEW_SHELLEY_TRANSACTIONS" $ do addrs <- listAddresses @n ctx wDest - let addr0 = (addrs !! 0) ^. #id + let addr0 = (head addrs) ^. #id let linkList0 = Link.listTransactions' @'Shelley wDest Nothing Nothing