From 25e9c36f656b8d1283b080f37baee58c02a814c7 Mon Sep 17 00:00:00 2001
From: Pablo Lamela <pablo.lamela@iohk.io>
Date: Tue, 7 Jan 2025 12:14:50 +0100
Subject: [PATCH] Use overloaded lists

Co-authored-by: Mateusz Galazyn <228866+carbolymer@users.noreply.github.com>
---
 .../Test/Cardano/Api/Experimental.hs          | 23 +++++++++----------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/cardano-api/test/cardano-api-test/Test/Cardano/Api/Experimental.hs b/cardano-api/test/cardano-api-test/Test/Cardano/Api/Experimental.hs
index 3abadbd85d..8d943f4dd5 100644
--- a/cardano-api/test/cardano-api-test/Test/Cardano/Api/Experimental.hs
+++ b/cardano-api/test/cardano-api-test/Test/Cardano/Api/Experimental.hs
@@ -1,5 +1,6 @@
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE NumericUnderscores #-}
+{-# LANGUAGE OverloadedLists #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TypeFamilies #-}
 
@@ -24,7 +25,6 @@ import qualified Cardano.Slotting.Slot as Slotting
 import qualified Cardano.Slotting.Time as Slotting
 
 import           Control.Monad.Identity (Identity)
-import           Data.Map (fromList)
 import           Data.Maybe (fromMaybe)
 import           Data.Ratio ((%))
 import qualified Data.Time as Time
@@ -148,17 +148,16 @@ prop_balance_transaction_two_ways = H.propertyOnce $ do
         Api.LedgerEpochInfo $ Slotting.fixedEpochInfo (Slotting.EpochSize 100) (Slotting.mkSlotLength 1000)
   let utxoToUse =
         Api.UTxO
-          ( fromList
-              [
-                ( srcTxId
-                , Api.TxOut
-                    changeAddress
-                    (Api.lovelaceToTxOutValue sbe 12_000_000)
-                    Api.TxOutDatumNone
-                    Script.ReferenceScriptNone
-                )
-              ]
-          )
+          [
+            ( srcTxId
+            , Api.TxOut
+                changeAddress
+                (Api.lovelaceToTxOutValue sbe 12_000_000)
+                Api.TxOutDatumNone
+                Script.ReferenceScriptNone
+            )
+          ]
+
   Api.BalancedTxBody
     _txBodyContent3
     _txBody3