From b9d7e1c08730acb50b1002120dce07e614a052d1 Mon Sep 17 00:00:00 2001
From: Ekaterina Bushueva <mayflower.studio@gmail.com>
Date: Tue, 1 Aug 2023 07:42:32 +0300
Subject: [PATCH] fixed typos

---
 src/Fundraising/Create.purs       | 6 +++---
 src/Fundraising/ReceiveFunds.purs | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/Fundraising/Create.purs b/src/Fundraising/Create.purs
index 4de7c1b..2e9da57 100644
--- a/src/Fundraising/Create.purs
+++ b/src/Fundraising/Create.purs
@@ -67,8 +67,8 @@ contract protocolData (CreateFundraisingParams { title, amount, duration }) = do
   verTokenMp /\ verTokenCs <- mkCurrencySymbol (VerToken.mintingPolicy protocol)
   verTn <- VerToken.verTokenName
   let
-    vetTokenPolicyHash :: MintingPolicyHash
-    vetTokenPolicyHash = mintingPolicyHash verTokenMp
+    verTokenPolicyHash :: MintingPolicyHash
+    verTokenPolicyHash = mintingPolicyHash verTokenMp
 
   let
     minAmount = view _minAmount protocolInfo.pDatum
@@ -135,7 +135,7 @@ contract protocolData (CreateFundraisingParams { title, amount, duration }) = do
           (Redeemer $ toData $ PMintNft nftTn)
           nftValue
         <> Constraints.mustMintCurrencyWithRedeemerUsingScriptRef
-          vetTokenPolicyHash
+          verTokenPolicyHash
           (Redeemer $ toData $ PMintVerToken verTn)
           verTn
           one
diff --git a/src/Fundraising/ReceiveFunds.purs b/src/Fundraising/ReceiveFunds.purs
index 7943053..034fced 100644
--- a/src/Fundraising/ReceiveFunds.purs
+++ b/src/Fundraising/ReceiveFunds.purs
@@ -74,8 +74,8 @@ contract pData (FundraisingData fundraisingData) = do
   let
     amountToReceiver = Value.lovelaceValueOf $ (Value.valueOf currentFunds adaSymbol adaToken - feeByFundraising)
 
-    vetTokenPolicyHash :: MintingPolicyHash
-    vetTokenPolicyHash = mintingPolicyHash verTokenMintingPolicy
+    verTokenPolicyHash :: MintingPolicyHash
+    verTokenPolicyHash = mintingPolicyHash verTokenMintingPolicy
 
   (ProtocolScriptInfo protocolInfo) <- getProtocolScriptInfo protocol
   let
@@ -90,7 +90,7 @@ contract pData (FundraisingData fundraisingData) = do
           (Redeemer $ toData $ PBurnNft threadTokenName)
           threadTokenToBurnValue
         <> Constraints.mustMintCurrencyWithRedeemerUsingScriptRef
-          vetTokenPolicyHash
+          verTokenPolicyHash
           (Redeemer $ toData $ PBurnVerToken fr.verTokenName)
           fr.verTokenName
           (fromInt (-1))