From e27ad40548ac26b4d004eb08832a4d6b688788a6 Mon Sep 17 00:00:00 2001 From: Emily Martins Date: Thu, 3 Mar 2022 16:11:25 +0100 Subject: [PATCH] fix hlint --- src/Agora/Stake.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Agora/Stake.hs b/src/Agora/Stake.hs index 74a4c65..cc87ae8 100644 --- a/src/Agora/Stake.hs +++ b/src/Agora/Stake.hs @@ -228,7 +228,8 @@ stakeValidator stake = mintedST #== -1 passert "Stake unlocked" $ pnot #$ stakeLocked # stakeDatum' - passert "Owner signs this transaction" $ + passert + "Owner signs this transaction" ownerSignsTransaction popaque (pconstant ()) PDepositWithdraw r -> P.do @@ -236,7 +237,8 @@ stakeValidator stake = spentST #== 1 passert "Stake unlocked" $ pnot #$ stakeLocked # stakeDatum' - passert "Owner signs this transaction" $ + passert + "Owner signs this transaction" ownerSignsTransaction passert "A UTXO must exist with the correct output" $ anyOutput @(PStakeDatum gt) # txInfo'