Use minimumBy, as suggested by the linter.

CardanoSolutions · Apr 26, 2024 · 240c0b7 · 240c0b7
1 parent 7dc8742
commit 240c0b7
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/server/src/Ogmios/Data/Ledger/PredicateFailure.hs b/server/src/Ogmios/Data/Ledger/PredicateFailure.hs
@@ -96,6 +96,9 @@ import Cardano.Ledger.Plutus.Language
 import Cardano.Ledger.TxIn
     ( TxIn (..)
     )
+import Data.Foldable
+    ( minimumBy
+    )
 import Ogmios.Data.Ledger
     ( ContextErrorInAnyEra (..)
     , DiscriminatedEntities (..)
@@ -108,8 +111,6 @@ import PlutusLedgerApi.Common
     ( ExBudget (..)
     )
 
-import qualified Data.List.NonEmpty as NE
-
 data MultiEraPredicateFailure crypto
     ---------------------------------------------------------------------------
     -- Rule → UTXOW
@@ -529,7 +530,7 @@ data MultiEraPredicateFailure crypto
 -- which error to return from the list when presented with many.
 pickPredicateFailure :: NonEmpty (MultiEraPredicateFailure crypto) -> MultiEraPredicateFailure crypto
 pickPredicateFailure =
-    head . NE.sortBy (comparing predicateFailurePriority)
+    minimumBy (comparing predicateFailurePriority)
 
 -- | Return a priority index for ledger rules errors. Smaller means that errors
 -- should be considered first.