claudiomaradonna/plutus-pioneer-program
1
0
Fork 0
mirror of https://github.com/FiloSpaTeam/plutus-pioneer-program.git synced 2024-10-18 06:48:00 +02:00
Code Issues Projects Releases Packages Wiki Activity

small reformatting

Browse source
This commit is contained in:
Lars Brünjes 2021-07-28 21:07:01 +02:00
parent 01ed74dc2d
commit 8620b47b8c
No known key found for this signature in database
GPG key ID: B488B9045DC1A087
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
code/week06/src/Week06/Oracle/Swap.hs
View file

@ -143,7 +143,7 @@ findSwaps oracle p = do
retrieveSwaps :: Oracle -> Contract w s Text () retrieveSwaps :: Oracle -> Contract w s Text ()
retrieveSwaps oracle = do retrieveSwaps oracle = do
pkh <- pubKeyHash <$> ownPubKey pkh <- pubKeyHash <$> ownPubKey
xs <- findSwaps oracle (== pkh) xs <- findSwaps oracle (== pkh)
case xs of case xs of
[] -> logInfo @String "no swaps found" [] -> logInfo @String "no swaps found"
_ -> do _ -> do
@ -180,7 +180,7 @@ useSwap oracle = do
Constraints.mustPayToOtherScript Constraints.mustPayToOtherScript
(validatorHash $ oracleValidator oracle) (validatorHash $ oracleValidator oracle)
(Datum $ PlutusTx.toBuiltinData x) (Datum $ PlutusTx.toBuiltinData x)
v <> v <>
Constraints.mustPayToPubKey pkh' p Constraints.mustPayToPubKey pkh' p
ledgerTx <- submitTxConstraintsWith @Swapping lookups tx ledgerTx <- submitTxConstraintsWith @Swapping lookups tx
awaitTxConfirmed $ txId ledgerTx awaitTxConfirmed $ txId ledgerTx