renamed shared sample

agora-specs/Sample/Effect/GovernorMutation.hs

@@ -45,8 +45,8 @@ import PlutusTx.AssocMap qualified as AssocMap
 import Sample.Shared (
   agoraScripts,
   authorityTokenSymbol,
-  govAssetClass,
-  govValidatorAddress,
+  governorAssetClass,
+  governorValidatorAddress,
   minAda,
   mkRedeemer,
   signer,
@@ -99,7 +99,7 @@ mkEffectDatum newGovDatum =
 -}
 mkEffectTxInfo :: GovernorDatum -> TxInfo
 mkEffectTxInfo newGovDatum =
-  let gst = Value.assetClassValue govAssetClass 1
+  let gst = Value.assetClassValue governorAssetClass 1
       at = Value.assetClassValue atAssetClass 1
 
       -- One authority token is burnt in the process.
@@ -121,7 +121,7 @@ mkEffectTxInfo newGovDatum =
       governorInput :: TxOut
       governorInput =
         TxOut
-          { txOutAddress = govValidatorAddress
+          { txOutAddress = governorValidatorAddress
           , txOutValue = gst
           , txOutDatum = OutputDatumHash $ toDatumHash governorInputDatum
           , txOutReferenceScript = Nothing
@@ -152,7 +152,7 @@ mkEffectTxInfo newGovDatum =
       governorOutput :: TxOut
       governorOutput =
         TxOut
-          { txOutAddress = govValidatorAddress
+          { txOutAddress = governorValidatorAddress
           , txOutValue = mconcat [gst, minAda]
           , txOutDatum = OutputDatumHash $ toDatumHash governorOutputDatum
           , txOutReferenceScript = Nothing

agora-specs/Sample/Governor/Mutate.hs

@@ -46,9 +46,9 @@ import PlutusLedgerApi.V2 (
 import Sample.Shared (
   agoraScripts,
   authorityTokenSymbol,
-  govAssetClass,
-  govValidator,
-  govValidatorHash,
+  governorAssetClass,
+  governorValidator,
+  governorValidatorHash,
   minAda,
  )
 import Test.Specification (SpecificationTree, testValidator)
@@ -145,19 +145,19 @@ governorRedeemer = MutateGovernor
 
 mkGovernorBuilder :: forall b. CombinableBuilder b => GovernorParameters -> b
 mkGovernorBuilder ps =
-  let gst = Value.assetClassValue govAssetClass 1
+  let gst = Value.assetClassValue governorAssetClass 1
       value = sortValue $ gst <> minAda
       gstOutput =
         if ps.stealGST
           then pubKey $ head pubKeyHashes
-          else script govValidatorHash
+          else script governorValidatorHash
       withGSTDatum =
         maybe mempty withDatum $
           mkGovernorOutputDatum ps.governorOutputDatumValidity
    in mconcat
         [ input $
             mconcat
-              [ script govValidatorHash
+              [ script governorValidatorHash
               , withDatum governorInputDatum
               , withValue value
               , withRef governorRef
@@ -237,7 +237,7 @@ mkTestCase name pb (Validity forGov) =
   testValidator
     forGov
     name
-    govValidator
+    governorValidator
     governorInputDatum
     governorRedeemer
     (mkSpending mutate pb governorRef)

agora-specs/Sample/Proposal/Advance.hs

@@ -108,10 +108,10 @@ import Sample.Proposal.Shared (
 import Sample.Shared (
   authorityTokenPolicy,
   authorityTokenSymbol,
-  govAssetClass,
-  govValidator,
-  govValidatorHash,
   governor,
+  governorAssetClass,
+  governorValidator,
+  governorValidatorHash,
   minAda,
   proposalPolicySymbol,
   proposalValidator,
@@ -432,19 +432,19 @@ governorRef = TxOutRef governorTxRef 2
 -}
 mkGovernorBuilder :: forall b. CombinableBuilder b => GovernorParameters -> b
 mkGovernorBuilder ps =
-  let gst = Value.assetClassValue govAssetClass 1
+  let gst = Value.assetClassValue governorAssetClass 1
       value = sortValue $ gst <> minAda
    in mconcat
         [ input $
             mconcat
-              [ script govValidatorHash
+              [ script governorValidatorHash
               , withValue value
               , withRef governorRef
               , withDatum governorInputDatum
               ]
         , output $
             mconcat
-              [ script govValidatorHash
+              [ script governorValidatorHash
               , withValue value
               , withRef governorRef
               , withDatum (mkGovernorOutputDatum ps)
@@ -542,7 +542,7 @@ mkTestTree name pb val =
         testValidator
           (fromJust val.forGovernorValidator)
           "governor"
-          govValidator
+          governorValidator
           governorInputDatum
           governorRedeemer
           (spend governorRef)

agora-specs/Sample/Proposal/Create.hs

@@ -72,10 +72,10 @@ import PlutusLedgerApi.V2 (
 import Sample.Proposal.Shared (stakeTxRef)
 import Sample.Shared (
   fromDiscrete,
-  govAssetClass,
-  govValidator,
-  govValidatorHash,
   governor,
+  governorAssetClass,
+  governorValidator,
+  governorValidatorHash,
   minAda,
   proposalPolicy,
   proposalPolicySymbol,
@@ -284,7 +284,7 @@ createProposal ps = builder
   where
     pst = Value.singleton proposalPolicySymbol "" 1
     sst = Value.assetClassValue stakeAssetClass 1
-    gst = Value.assetClassValue govAssetClass 1
+    gst = Value.assetClassValue governorAssetClass 1
 
     ---
 
@@ -323,14 +323,14 @@ createProposal ps = builder
           timeRange $ mkTimeRange ps
         , input $
             mconcat
-              [ script govValidatorHash
+              [ script governorValidatorHash
               , withValue governorValue
               , withDatum governorInputDatum
               , withRef governorRef
               ]
         , output $
             mconcat
-              [ script govValidatorHash
+              [ script governorValidatorHash
               , withValue governorValue
               , withDatum (mkGovernorOutputDatum ps)
               ]
@@ -466,7 +466,7 @@ mkTestTree
         testValidator
           validForGovernorValidator
           "governor"
-          govValidator
+          governorValidator
           governorInputDatum
           governorRedeemer
           (spend governorRef)

agora-specs/Sample/Shared.hs

@@ -31,12 +31,12 @@ module Sample.Shared (
 
   -- ** Governor
   governor,
-  govPolicy,
-  govValidator,
-  govSymbol,
-  govAssetClass,
-  govValidatorAddress,
-  govValidatorHash,
+  governorPolicy,
+  governorValidator,
+  governorSymbol,
+  governorAssetClass,
+  governorValidatorAddress,
+  governorValidatorHash,
   gstUTXORef,
 
   -- ** Proposal
@@ -170,23 +170,23 @@ stakeAddress = Address (ScriptCredential stakeValidatorHash) Nothing
 gstUTXORef :: TxOutRef
 gstUTXORef = TxOutRef "f28cd7145c24e66fd5bcd2796837aeb19a48a2656e7833c88c62a2d0450bd00d" 0
 
-govPolicy :: MintingPolicy
-govPolicy = MintingPolicy $ agoraScripts ! "agora:governorPolicy"
+governorPolicy :: MintingPolicy
+governorPolicy = MintingPolicy $ agoraScripts ! "agora:governorPolicy"
 
-govValidator :: Validator
-govValidator = Validator $ agoraScripts ! "agora:governorValidator"
+governorValidator :: Validator
+governorValidator = Validator $ agoraScripts ! "agora:governorValidator"
 
-govSymbol :: CurrencySymbol
-govSymbol = mintingPolicySymbol govPolicy
+governorSymbol :: CurrencySymbol
+governorSymbol = mintingPolicySymbol governorPolicy
 
-govAssetClass :: AssetClass
-govAssetClass = AssetClass (govSymbol, "")
+governorAssetClass :: AssetClass
+governorAssetClass = AssetClass (governorSymbol, "")
 
-govValidatorHash :: ValidatorHash
-govValidatorHash = validatorHash govValidator
+governorValidatorHash :: ValidatorHash
+governorValidatorHash = validatorHash governorValidator
 
-govValidatorAddress :: Address
-govValidatorAddress = scriptHashAddress govValidatorHash
+governorValidatorAddress :: Address
+governorValidatorAddress = scriptHashAddress governorValidatorHash
 
 proposalPolicy :: MintingPolicy
 proposalPolicy = MintingPolicy $ agoraScripts ! "agora:proposalPolicy"