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

targeting 1.0.0

Browse source
This commit is contained in:
Hongrui Fang 2022-08-16 00:09:10 +08:00
parent aab6ef4252
commit 14b107e5cc
2 changed files with 9 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

2
CHANGELOG.md
View file

@ -4,8 +4,6 @@ This format is based on [Keep A Changelog](https://keepachangelog.com/en/1.0.0).
## Unreleased (Candidate for 1.0.0) ## Unreleased (Candidate for 1.0.0)
## 0.3.0
### Modified ### Modified
- Use plutus v2 types. - Use plutus v2 types.

18
agora/Agora/Utils.hs
View file

@ -116,7 +116,7 @@ newtype CompiledEffect (datum :: Type) = CompiledEffect
{ getCompiledEffect :: Validator { getCompiledEffect :: Validator
} }
-- @since 0.3.0 -- @since 1.0.0
presolveOutputDatum :: presolveOutputDatum ::
forall s. forall s.
Term Term
@ -136,7 +136,7 @@ presolveOutputDatum = phoistAcyclic $
# hash # hash
# m # m
-- | @since 0.3.0 -- | @since 1.0.0
pfindDatum :: pfindDatum ::
forall datum s. forall datum s.
PTryFrom PData datum => PTryFrom PData datum =>
@ -152,7 +152,7 @@ pfindDatum = phoistAcyclic $
# phoistAcyclic (plam $ flip ptryFrom fst . pto) # phoistAcyclic (plam $ flip ptryFrom fst . pto)
# (presolveOutputDatum # od # m) # (presolveOutputDatum # od # m)
-- | @since 0.3.0 -- | @since 1.0.0
pmustFindDatum :: pmustFindDatum ::
forall datum s. forall datum s.
(PIsData datum, PTryFrom PData datum) => (PIsData datum, PTryFrom PData datum) =>
@ -167,7 +167,7 @@ pmustFindDatum =
plam $ plam $
(passertPJust # "datum not found") #.* pfindDatum (passertPJust # "datum not found") #.* pfindDatum
-- | @since 0.3.0 -- | @since 1.0.0
pfromDatumHash :: forall s. Term s (POutputDatum :--> PDatumHash) pfromDatumHash :: forall s. Term s (POutputDatum :--> PDatumHash)
pfromDatumHash = phoistAcyclic $ pfromDatumHash = phoistAcyclic $
plam $ plam $
@ -175,7 +175,7 @@ pfromDatumHash = phoistAcyclic $
POutputDatumHash ((pfield @"datumHash" #) -> hash) -> hash POutputDatumHash ((pfield @"datumHash" #) -> hash) -> hash
_ -> ptraceError "not a datum hash" _ -> ptraceError "not a datum hash"
-- | @since 0.3.0 -- | @since 1.0.0
pfromInlineDatum :: forall s. Term s (POutputDatum :--> PDatum) pfromInlineDatum :: forall s. Term s (POutputDatum :--> PDatum)
pfromInlineDatum = phoistAcyclic $ pfromInlineDatum = phoistAcyclic $
plam $ plam $
@ -185,7 +185,7 @@ pfromInlineDatum = phoistAcyclic $
{- | Find a datum with the given hash, and 'ptryFrom' it. {- | Find a datum with the given hash, and 'ptryFrom' it.
@since 0.3.0 @since 1.0.0
-} -}
ptryFindDatum :: ptryFindDatum ::
forall datum (s :: S). forall datum (s :: S).
@ -204,7 +204,7 @@ ptryFindDatum =
{- | Convert a 'PDatum' to the given datum type. {- | Convert a 'PDatum' to the given datum type.
@since 0.3.0 @since 1.0.0
-} -}
ptryFromDatum :: ptryFromDatum ::
forall datum s. forall datum s.
@ -215,7 +215,7 @@ ptryFromDatum = phoistAcyclic $ plam $ flip ptryFrom fst . pto
infixr 8 #.* infixr 8 #.*
infixr 8 #.** infixr 8 #.**
-- | @since 0.3.0 -- | @since 1.0.0
(#.*) :: (#.*) ::
forall d c b a s. forall d c b a s.
Term s (c :--> d) -> Term s (c :--> d) ->
@ -225,7 +225,7 @@ infixr 8 #.**
Term s d Term s d
(#.*) f g x y = f #$ g # x # y (#.*) f g x y = f #$ g # x # y
-- | @since 0.3.0 -- | @since 1.0.0
(#.**) :: (#.**) ::
forall e d c b a s. forall e d c b a s.
Term s (d :--> e) -> Term s (d :--> e) ->