From 1c579560543c52dcf23387a14ae04f817f117bd8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lars=20Br=C3=BCnjes?= <brunjlar@gmail.com>
Date: Tue, 4 May 2021 14:40:30 +0200
Subject: [PATCH] updated 'Signed'

---
 code/week05/src/Week05/Signed.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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)