From 994f8112d5e8a9fb7b3827cfdce1bda4145f0dd9 Mon Sep 17 00:00:00 2001
From: John Ky <john.ky@iohk.io>
Date: Fri, 20 Oct 2023 17:48:21 +1100
Subject: [PATCH] Remove unnecessary forall

---
 cardano-api/internal/Cardano/Api/TxBody.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cardano-api/internal/Cardano/Api/TxBody.hs b/cardano-api/internal/Cardano/Api/TxBody.hs
index 42b29d10df..a17a98e87e 100644
--- a/cardano-api/internal/Cardano/Api/TxBody.hs
+++ b/cardano-api/internal/Cardano/Api/TxBody.hs
@@ -1799,8 +1799,8 @@ instance Error TxBodyError where
     displayError (TxBodyProtocolParamsConversionError ppces) =
       "Errors in protocol parameters conversion: " ++ displayError ppces
 
-createTransactionBody
-  :: forall era. ShelleyBasedEra era
+createTransactionBody :: ()
+  => ShelleyBasedEra era
   -> TxBodyContent BuildTx era
   -> Either TxBodyError (TxBody era)
 createTransactionBody sbe bc =