Fix typo on "purposes"

Co-authored-by: Clément Hurlin <[email protected]>
IntersectMBO · Jan 27, 2025 · 31cd3fe · 31cd3fe
1 parent 61139f5
commit 31cd3fe
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Plutus.hs b/cardano-api/internal/Cardano/Api/Plutus.hs
@@ -114,12 +114,12 @@ collectScriptHashes aeo tb utxo =
         ledgerUTxO = toLedgerUTxO (convert aeo) utxo
      in getPurpouses aeo $ L.getScriptsNeeded ledgerUTxO (ledgerTx' ^. L.bodyTxL)
  where
-  getPurpouses
+  getPurposes
     :: L.EraCrypto (ShelleyLedgerEra era) ~ L.StandardCrypto
     => AlonzoEraOnwards era
     -> Alonzo.AlonzoScriptsNeeded (ShelleyLedgerEra era)
     -> Map ScriptWitnessIndex Api.ScriptHash
-  getPurpouses aeo' (Alonzo.AlonzoScriptsNeeded purpouses) =
+  getPurpouses aeo' (Alonzo.AlonzoScriptsNeeded purposes) =
     alonzoEraOnwardsConstraints aeo $
       Map.fromList $
         Prelude.map