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

.

Browse source
This commit is contained in:
Jack Hodgkinson 2022-02-01 12:11:33 +00:00
parent 7a4cb8276d
commit ae03f77a23
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Agora/AuthorityToken.hs
View file

@ -27,6 +27,7 @@ import Plutus.V1.Ledger.Value (AssetClass (..))
import Plutarch.Api.V1 hiding (PMaybe (..)) import Plutarch.Api.V1 hiding (PMaybe (..))
import Plutarch.Bool (PBool, PEq, pif, (#<), (#==)) import Plutarch.Bool (PBool, PEq, pif, (#<), (#==))
import Plutarch.Builtin (PBuiltinPair, PData, pdata, pfromData, pfstBuiltin, psndBuiltin) import Plutarch.Builtin (PBuiltinPair, PData, pdata, pfromData, pfstBuiltin, psndBuiltin)
import Plutarch.DataRepr.Internal.HList (IndexList)
import Plutarch.Integer (PInteger) import Plutarch.Integer (PInteger)
import Plutarch.Lift (pconstant) import Plutarch.Lift (pconstant)
import Plutarch.List (PIsListLike, pfoldr', precList) import Plutarch.List (PIsListLike, pfoldr', precList)
@ -48,6 +49,7 @@ data AuthorityToken = AuthorityToken
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
pindexDataList :: Proxy n -> Term s (PDataList xs :--> PAsData (IndexList n xs))
pindexDataList = undefined pindexDataList = undefined
-- TODO: upstream something like this -- TODO: upstream something like this