plutus-doc: pubkeyhash

IntersectMBO · Oct 11, 2021 · 97d0f6e · 97d0f6e
1 parent 14ac0c3
commit 97d0f6e
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/doc/plutus/tutorials/BasicApps.hs b/doc/plutus/tutorials/BasicApps.hs
@@ -93,12 +93,9 @@ unlock = endpoint @"unlock" (unlockFunds . mkSplitData)
 
 mkSplitData :: LockArgs -> SplitData
 mkSplitData LockArgs{recipient1Wallet, recipient2Wallet, totalAda} =
-    let convert :: Wallet -> PubKeyHash
-        convert = pubKeyHash . walletPubKey
-    in
     SplitData
-        { recipient1 = convert recipient1Wallet
-        , recipient2 = convert recipient2Wallet
+        { recipient1 = walletPubKeyHash recipient1Wallet
+        , recipient2 = walletPubKeyHash recipient2Wallet
         , amount = totalAda
         }