From 34f21a1a47de7a55afc4350dbf9c6e02e362f294 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lars=20Br=C3=BCnjes?= Date: Tue, 4 May 2021 00:12:20 +0200 Subject: [PATCH] updated 'Free' --- code/week05/src/Week05/Free.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/week05/src/Week05/Free.hs b/code/week05/src/Week05/Free.hs index be7a3b9..58f2c52 100644 --- a/code/week05/src/Week05/Free.hs +++ b/code/week05/src/Week05/Free.hs @@ -51,7 +51,7 @@ type FreeSchema = BlockchainActions .\/ Endpoint "mint" MintParams -mint :: (HasBlockchainActions s, AsContractError e) => MintParams -> Contract w s e () +mint :: MintParams -> Contract w FreeSchema Text () mint mp = do let val = Value.singleton curSymbol (mpTokenName mp) (mpAmount mp) lookups = Constraints.monetaryPolicy policy