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

apply Emily's suggestions

Browse source 
* Comment on `validateOutputLocks`
* Assertion message rewording
* Some comment rewording
* Fix Typos
* Correct `PShow` instances, derive as much we can
* Remove redundant checks
This commit is contained in:
Hongrui Fang 2022-07-13 01:47:15 +08:00
parent 3c35e610a5
commit 0b55cefd3b
6 changed files with 63 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

14
agora/Agora/Proposal.hs
View file

@ -409,6 +409,8 @@ newtype PResultTag (s :: S) = PResultTag (Term s PInteger)
PEq
, -- | @since 0.1.0
POrd
, -- | @since 0.2.0
PShow
)
via (DerivePNewtype PResultTag PInteger)
@ -427,11 +429,6 @@ deriving via
instance
PTryFrom PData (PAsData PResultTag)
-- | @since 0.2.0
instance PShow PResultTag where
pshow' :: Bool -> Term s PResultTag -> Term s PString
pshow' _ x = pshow @PInteger $ pto x
{- | Plutarch-level version of 'PProposalId'.
@since 0.1.0
@ -446,6 +443,8 @@ newtype PProposalId (s :: S) = PProposalId (Term s PInteger)
PEq
, -- | @since 0.1.0
POrd
, -- | @since 0.2.0
PShow
)
via (DerivePNewtype PProposalId PInteger)
@ -464,11 +463,6 @@ deriving via
instance
(PConstantDecl ProposalId)
-- | @since 0.2.0
instance PShow PProposalId where
pshow' :: Bool -> Term s PProposalId -> Term s PString
pshow' _ x = pshow @PInteger $ pto x
{- | Plutarch-level version of 'ProposalStatus'.
@since 0.1.0