diff --git a/code/week05/src/Week05/Signed.hs b/code/week05/src/Week05/Signed.hs index 0c08d94..eff0b86 100644 --- a/code/week05/src/Week05/Signed.hs +++ b/code/week05/src/Week05/Signed.hs @@ -39,8 +39,8 @@ mkPolicy pkh ctx = txSignedBy (scriptContextTxInfo ctx) pkh policy :: PubKeyHash -> Scripts.MonetaryPolicy policy pkh = mkMonetaryPolicyScript $ $$(PlutusTx.compile [|| Scripts.wrapMonetaryPolicy . mkPolicy ||]) - `PlutusTx.applyCode` - PlutusTx.liftCode pkh + `PlutusTx.applyCode` + PlutusTx.liftCode pkh curSymbol :: PubKeyHash -> CurrencySymbol curSymbol = scriptCurrencySymbol . policy @@ -54,7 +54,7 @@ type SignedSchema = BlockchainActions .\/ Endpoint "mint" MintParams -mint :: (HasBlockchainActions s, AsContractError e) => MintParams -> Contract w s e () +mint :: MintParams -> Contract w SignedSchema Text () mint mp = do pkh <- pubKeyHash <$> Contract.ownPubKey let val = Value.singleton (curSymbol pkh) (mpTokenName mp) (mpAmount mp)