hlint

cardano-foundation · Jul 14, 2023 · b203b2c · b203b2c
1 parent c513f3c
commit b203b2c
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 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
@@ -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
@@ -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
@@ -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