lightly expanded prop generator
This commit is contained in:
parent
eb2677e392
commit
2f7e221fba
1 changed files with 6 additions and 1 deletions
|
|
@ -127,7 +127,12 @@ instance HasLogicalModel TreasuryTxProp TreasuryTxModel where
|
||||||
|
|
||||||
instance HasParameterisedGenerator TreasuryTxProp TreasuryTxModel where
|
instance HasParameterisedGenerator TreasuryTxProp TreasuryTxModel where
|
||||||
parameterisedGenerator :: Set TreasuryTxProp -> Gen TreasuryTxModel
|
parameterisedGenerator :: Set TreasuryTxProp -> Gen TreasuryTxModel
|
||||||
parameterisedGenerator = undefined
|
parameterisedGenerator propSet = do
|
||||||
|
purpose <-
|
||||||
|
if ScriptPurposeIsNotMinting `elem` propSet
|
||||||
|
then undefined
|
||||||
|
else undefined
|
||||||
|
undefined
|
||||||
|
|
||||||
instance HasScriptRunner TreasuryTxProp TreasuryTxModel where
|
instance HasScriptRunner TreasuryTxProp TreasuryTxModel where
|
||||||
expect = undefined
|
expect = undefined
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue