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

fix compilation errors

Browse source
This commit is contained in:
Hongrui Fang 2022-11-03 02:13:21 +08:00
parent d921927a2f
commit 6da4e7286d
No known key found for this signature in database
GPG key ID: F10AB2CCE24113DD
21 changed files with 279 additions and 677 deletions
Download patch file Download diff file Expand all files Collapse all files

2
agora-specs/Sample/Proposal/Advance.hs
View file

@ -68,7 +68,6 @@ import Agora.SafeMoney (AuthorityTokenTag, GTTag)
import Agora.Stake (
StakeDatum (..),
)
import Agora.Utils (scriptHashToTokenName)
import Control.Applicative (liftA2)
import Control.Monad.State (execState, modify, when)
import Data.Default (def)
@ -90,6 +89,7 @@ import Plutarch.Context (
withValue,
)
import Plutarch.Extra.AssetClass (AssetClass (AssetClass), assetClassValue)
import Plutarch.Extra.ScriptContext (scriptHashToTokenName)
import Plutarch.Lift (PLifted, PUnsafeLiftDecl)
import PlutusLedgerApi.V2 (
Credential (PubKeyCredential),

2
agora-specs/Sample/Proposal/Create.hs
View file

@ -46,7 +46,6 @@ import Agora.Stake (
StakeDatum (..),
StakeRedeemer (PermitVote),
)
import Agora.Utils (validatorHashToTokenName)
import Data.Coerce (coerce)
import Data.Default (Default (def))
import Data.Map.Strict qualified as StrictMap
@ -66,6 +65,7 @@ import Plutarch.Context (
withValue,
)
import Plutarch.Extra.AssetClass (assetClassValue)
import Plutarch.Extra.ScriptContext (validatorHashToTokenName)
import PlutusLedgerApi.V1.Value qualified as Value
import PlutusLedgerApi.V2 (
Credential (PubKeyCredential),

2
agora-specs/Sample/Proposal/Unlock.hs
View file

@ -49,7 +49,6 @@ import Agora.Stake (
StakeDatum (..),
StakeRedeemer (RetractVotes),
)
import Agora.Utils (validatorHashToTokenName)
import Data.Default.Class (Default (def))
import Data.Map.Strict qualified as StrictMap
import Data.Tagged (Tagged, untag)
@ -67,6 +66,7 @@ import Plutarch.Context (
withValue,
)
import Plutarch.Extra.AssetClass (assetClassValue)
import Plutarch.Extra.ScriptContext (validatorHashToTokenName)
import PlutusLedgerApi.V1.Value qualified as Value
import PlutusLedgerApi.V2 (
Credential (PubKeyCredential),