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

Use Liqwid-Labs/plutarch

Browse source 
- Removed `Utils.Value` -- not being used/better is provided with
  liqwid-plutarch-extra
- uses `Liqwid-Labs/plutarch`
- uses `Liqwid-Labs/plutarch-numeric`
- uses `Liqwid-Labs/plutarch-safemoney`
- uses `Liqwid-Labs/liqwid-plutarch-extra`
This commit is contained in:
Seungheon Oh 2022-05-25 23:31:02 -05:00
parent eae430b7d9
commit 55defea912
No known key found for this signature in database
GPG key ID: 9B0E12D357369B66
25 changed files with 6520 additions and 407 deletions
Download patch file Download diff file Expand all files Collapse all files

5
agora-sample/Sample/Effect/GovernorMutation.hs
View file

@ -23,10 +23,7 @@ import Agora.Proposal (ProposalId (..), ProposalThresholds (..))
--------------------------------------------------------------------------------
import Plutarch.Api.V1 (mkValidator, validatorHash)
import Plutarch.SafeMoney (Tagged (Tagged))
--------------------------------------------------------------------------------
import Data.Tagged (Tagged (..))
import Plutus.V1.Ledger.Address (scriptHashAddress)
import Plutus.V1.Ledger.Api (
Address,

2
agora-sample/Sample/Governor.hs
View file

@ -15,7 +15,7 @@ module Sample.Governor (
--------------------------------------------------------------------------------
import Plutarch.Api.V1 (mkValidator, validatorHash)
import Plutarch.SafeMoney.Tagged
import Data.Tagged (Tagged(..), untag)
--------------------------------------------------------------------------------

5
agora-sample/Sample/Proposal.hs
View file

@ -20,7 +20,6 @@ module Sample.Proposal (
import Plutarch.Api.V1 (
validatorHash,
)
import Plutarch.SafeMoney (Tagged (Tagged), untag)
--------------------------------------------------------------------------------
@ -57,9 +56,7 @@ import Agora.Proposal (
)
import Agora.Proposal.Time (ProposalStartingTime (ProposalStartingTime), ProposalTimingConfig (..))
import Agora.Stake (ProposalLock (ProposalLock), Stake (..), StakeDatum (..))
--------------------------------------------------------------------------------
import Data.Tagged (Tagged(..), untag)
import Sample.Shared
import Test.Util (closedBoundedInterval, datumPair, toDatumHash, updateMap)

2
agora-sample/Sample/Shared.hs
View file

@ -92,7 +92,7 @@ import Plutarch.Api.V1 (
mkValidator,
validatorHash,
)
import Plutarch.SafeMoney
import Data.Tagged (Tagged (..))
import Plutus.V1.Ledger.Address (scriptHashAddress)
import Plutus.V1.Ledger.Api (
Address (Address),

2
agora-sample/Sample/Stake.hs
View file

@ -48,7 +48,7 @@ import Plutus.V1.Ledger.Value qualified as Value
import Agora.SafeMoney (GTTag)
import Agora.Stake
import Agora.Stake.Scripts (stakeValidator)
import Plutarch.SafeMoney
import Data.Tagged (Tagged (..), untag)
import Sample.Shared
import Test.Util (datumPair, toDatumHash)