Sulkta-OSS/agora
3
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

apply remaining suggestions

Browse source
This commit is contained in:
Emily Martins 2022-03-01 13:14:51 +01:00
parent 646f4900ff
commit 4141873cce
5 changed files with 22 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Agora/Stake.hs
View file

@ -2,6 +2,8 @@
Module : Agora.Stake
Maintainer : emi@haskell.fyi
Description: Vote-lockable stake UTXOs holding GT.
Vote-lockable stake UTXOs holding GT.
-}
module Agora.Stake (
PStakeDatum (..),
@ -105,7 +107,7 @@ newtype PStakeDatum (gt :: MoneyClass) (s :: S) = PStakeDatum
-}
--------------------------------------------------------------------------------
-- | Policy for Stake state threads
-- | Policy for Stake state threads.
stakePolicy ::
forall (gt :: MoneyClass) ac n scale s.
( KnownSymbol ac
@ -186,7 +188,7 @@ stakePolicy _stake =
--------------------------------------------------------------------------------
-- | Validator intended for Stake UTXOs to live in
-- | Validator intended for Stake UTXOs to live in.
stakeValidator ::
forall (gt :: MoneyClass) ac n scale s.
( KnownSymbol ac