From fdbafcce8989e7025b9b2adae8c2801d3932a724 Mon Sep 17 00:00:00 2001
From: fanghr <chfanghr@gmail.com>
Date: Mon, 25 Apr 2022 19:37:42 +0800
Subject: [PATCH] apply naming suggestions by @emiflake

---
 agora/Agora/Governor.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/agora/Agora/Governor.hs b/agora/Agora/Governor.hs
index 1cf9c64..6b3c888 100644
--- a/agora/Agora/Governor.hs
+++ b/agora/Agora/Governor.hs
@@ -174,7 +174,7 @@ PlutusTx.makeIsDataIndexed
 
 -- | Parameters for creating Governor scripts.
 data Governor = Governor
-  { gstORef :: TxOutRef
+  { gstOutRef :: TxOutRef
   -- ^ Referenced utxo will be spent to mint the GST.
   , gstName :: TokenName
   -- ^ Name of the GST token.
@@ -234,7 +234,7 @@ deriving via (DerivePConstantViaData GovernorRedeemer PGovernorRedeemer) instanc
 governorPolicy :: Governor -> ClosedTerm PMintingPolicy
 governorPolicy gov =
   plam $ \_ ctx' -> P.do
-    let oref = pconstant gov.gstORef
+    let oref = pconstant gov.gstOutRef
         ownSymbol = pownCurrencySymbol # ctx'
 
     mintValue <- plet $ pownMintValue # ctx'