From 6d956205bcc0ed4d3d5dbcd1eb391ca2a9155e0a Mon Sep 17 00:00:00 2001
From: John Ky <john.ky@iohk.io>
Date: Fri, 5 Jan 2024 16:04:10 +1100
Subject: [PATCH] Rename unused function renderApplyMempoolPayloadErr_

---
 cardano-submit-api/src/Cardano/TxSubmit/ErrorRender.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/cardano-submit-api/src/Cardano/TxSubmit/ErrorRender.hs b/cardano-submit-api/src/Cardano/TxSubmit/ErrorRender.hs
index 0fa109cf298..e6512614cf8 100644
--- a/cardano-submit-api/src/Cardano/TxSubmit/ErrorRender.hs
+++ b/cardano-submit-api/src/Cardano/TxSubmit/ErrorRender.hs
@@ -2,7 +2,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 module Cardano.TxSubmit.ErrorRender
-  ( renderApplyMempoolPayloadErr
+  ( renderApplyMempoolPayloadErr_
   , renderEraMismatch
   ) where
 
@@ -20,8 +20,8 @@ import           Data.Text (Text)
 import           Formatting (build, sformat, stext, (%))
 import           Ouroboros.Consensus.Cardano.Block (EraMismatch (..))
 
-renderApplyMempoolPayloadErr :: ApplyMempoolPayloadErr -> Text
-renderApplyMempoolPayloadErr err =
+renderApplyMempoolPayloadErr_ :: ApplyMempoolPayloadErr -> Text
+renderApplyMempoolPayloadErr_ err =
     case err of
       MempoolTxErr ve -> renderValidationError ve
       MempoolDlgErr {} -> "Delegation error"