Rename unused function renderApplyMempoolPayloadErr_

IntersectMBO · Jan 5, 2024 · b1f2dad · b1f2dad
1 parent 76ef0fe
commit b1f2dad
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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"