Use maybe function instead of pattern matching

Co-authored-by: Mateusz Galazyn <[email protected]>
IntersectMBO · Jan 31, 2025 · ff8b1b1 · ff8b1b1
1 parent 4d420e9
commit ff8b1b1
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Types/Output.hs b/cardano-cli/src/Cardano/CLI/Types/Output.hs
@@ -368,9 +368,8 @@ renderScriptCosts (UTxO utxo) eUnitPrices scriptMapping =
  where
   getHashForScriptWitnessIndex
     :: ScriptWitnessIndex -> Either PlutusScriptCostError (Maybe ScriptHash)
-  getHashForScriptWitnessIndex sWitInd = case lookup sWitInd scriptMapping of
-    Nothing -> Left (PlutusScriptCostErrPlutusScriptNotFound sWitInd)
-    Just script -> anyScriptWitnessToHash script
+  getHashForScriptWitnessIndex sWitInd = 
+     maybe (PlutusScriptCostErrPlutusScriptNotFound sWitInd) anyScriptWitnessToHash $ lookup sWitInd scriptMapping
 
   anyScriptWitnessToHash :: AnyScriptWitness era -> Either PlutusScriptCostError (Maybe ScriptHash)
   anyScriptWitnessToHash = \case