From 8620b47b8cce738433377dd24d180a1fd51749c7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lars=20Br=C3=BCnjes?= Date: Wed, 28 Jul 2021 21:07:01 +0200 Subject: [PATCH] small reformatting --- code/week06/src/Week06/Oracle/Swap.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/week06/src/Week06/Oracle/Swap.hs b/code/week06/src/Week06/Oracle/Swap.hs index 7856a64..39b33c5 100644 --- a/code/week06/src/Week06/Oracle/Swap.hs +++ b/code/week06/src/Week06/Oracle/Swap.hs @@ -143,7 +143,7 @@ findSwaps oracle p = do retrieveSwaps :: Oracle -> Contract w s Text () retrieveSwaps oracle = do pkh <- pubKeyHash <$> ownPubKey - xs <- findSwaps oracle (== pkh) + xs <- findSwaps oracle (== pkh) case xs of [] -> logInfo @String "no swaps found" _ -> do @@ -180,7 +180,7 @@ useSwap oracle = do Constraints.mustPayToOtherScript (validatorHash $ oracleValidator oracle) (Datum $ PlutusTx.toBuiltinData x) - v <> + v <> Constraints.mustPayToPubKey pkh' p ledgerTx <- submitTxConstraintsWith @Swapping lookups tx awaitTxConfirmed $ txId ledgerTx