Skip to content

Commit

Permalink
fixed typos
Browse files Browse the repository at this point in the history
  • Loading branch information
KateBushueva committed Aug 1, 2023
1 parent 0ee5270 commit b9d7e1c
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 6 deletions.
6 changes: 3 additions & 3 deletions src/Fundraising/Create.purs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down
6 changes: 3 additions & 3 deletions src/Fundraising/ReceiveFunds.purs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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))
Expand Down

0 comments on commit b9d7e1c

Please sign in to comment.