Fix typo on "purposes"

Co-authored-by: Clément Hurlin <[email protected]>
IntersectMBO · Jan 31, 2025 · 2d9f907 · 2d9f907
1 parent 75789b8
commit 2d9f907
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/cardano-api/internal/Cardano/Api/Plutus.hs b/cardano-api/internal/Cardano/Api/Plutus.hs
@@ -112,24 +112,24 @@ collectScriptHashes aeo tb utxo =
   alonzoEraOnwardsConstraints aeo $
     let ShelleyTx _ ledgerTx' = makeSignedTransaction [] tb
         ledgerUTxO = toLedgerUTxO (convert aeo) utxo
-     in getPurpouses aeo $ L.getScriptsNeeded ledgerUTxO (ledgerTx' ^. L.bodyTxL)
+     in getPurposes 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) =
+  getPurposes aeo' (Alonzo.AlonzoScriptsNeeded purposes) =
     alonzoEraOnwardsConstraints aeo $
       Map.fromList $
         Prelude.map
-          (bimap (toScriptIndex aeo' . purpouseAsIxItemToAsIx aeo') fromShelleyScriptHash)
-          purpouses
+          (bimap (toScriptIndex aeo' . purposeAsIxItemToAsIx aeo') fromShelleyScriptHash)
+          purposes
 
-  purpouseAsIxItemToAsIx
+  purposeAsIxItemToAsIx
     :: AlonzoEraOnwards era
     -> L.PlutusPurpose L.AsIxItem (ShelleyLedgerEra era)
     -> L.PlutusPurpose L.AsIx (ShelleyLedgerEra era)
-  purpouseAsIxItemToAsIx onwards purpose =
+  purposeAsIxItemToAsIx onwards purpose =
     alonzoEraOnwardsConstraints onwards $
       L.hoistPlutusPurpose L.toAsIx purpose