Sulkta-Coop/agora
2
0
Fork 0
Code Issues 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.Bool (PBool, PEq, pif, (#<), (#==))
import Plutarch.Builtin (PBuiltinPair, PData, pdata, pfromData, pfstBuiltin, psndBuiltin)
import Plutarch.DataRepr.Internal.HList (IndexList)
import Plutarch.Integer (PInteger)
import Plutarch.Lift (pconstant)
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
-- TODO: upstream something like this