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

move GovernorMutation effect to Effect

Browse source
This commit is contained in:
fanghr 2022-05-07 13:29:36 +08:00
parent eb6b617d4d
commit 7c5c8d423a
No known key found for this signature in database
GPG key ID: 35CD9A71CD5D5870
2 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
agora.cabal
View file

@ -129,9 +129,9 @@ library
exposed-modules: exposed-modules:
Agora.AuthorityToken Agora.AuthorityToken
Agora.Effect Agora.Effect
Agora.Effect.GovernorMutation
Agora.Effect.NoOp Agora.Effect.NoOp
Agora.Effect.TreasuryWithdrawal Agora.Effect.TreasuryWithdrawal
Agora.Effects.GovernorMutation
Agora.Governor Agora.Governor
Agora.Governor.Scripts Agora.Governor.Scripts
Agora.MultiSig Agora.MultiSig

8
agora/Agora/Effects/GovernorMutation.hs → agora/Agora/Effect/GovernorMutation.hs
View file

@ -1,13 +1,13 @@
{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TemplateHaskell #-}
{- | {- |
Module : Agora.Effects.GovernorMutation Module : Agora.Effect.GovernorMutation
Maintainer : chfanghr@gmail.com Maintainer : chfanghr@gmail.com
Description: An effect that mutates governor settings Description: An effect that mutates governor settings
An effect for mutating governor settings An effect for mutating governor settings
-} -}
module Agora.Effects.GovernorMutation ( module Agora.Effect.GovernorMutation (
-- * Haskell-land -- * Haskell-land
MutateGovernorDatum (..), MutateGovernorDatum (..),
@ -69,9 +69,9 @@ import Agora.Utils (
-- | Haskell-level datum for the governor mutation effect script. -- | Haskell-level datum for the governor mutation effect script.
data MutateGovernorDatum = MutateGovernorDatum data MutateGovernorDatum = MutateGovernorDatum
{ governorRef :: TxOutRef { governorRef :: TxOutRef
-- ^ Referenced governor state UTXO should be updated by the effect. -- ^ Referenced governor state UTXO should be updated by the effect.
, newDatum :: GovernorDatum , newDatum :: GovernorDatum
-- ^ The new settings for the governor. -- ^ The new settings for the governor.
} }
deriving stock (Show, GHC.Generic) deriving stock (Show, GHC.Generic)
deriving anyclass (Generic) deriving anyclass (Generic)