run formatter and linter

agora-test/Spec/Sample/Governor.hs

@@ -158,7 +158,7 @@ proposalCreation =
 
       ---
       ownInputRef :: TxOutRef
-      ownInputRef = (TxOutRef "4355a46b19d348dc2f57c046f8ef63d4538ebb936000f3c9ee954a27460dd865" 1)
+      ownInputRef = TxOutRef "4355a46b19d348dc2f57c046f8ef63d4538ebb936000f3c9ee954a27460dd865" 1
    in ScriptContext
         { scriptContextTxInfo =
             TxInfo
@@ -306,7 +306,7 @@ mintGAT =
       --
 
       ownInputRef :: TxOutRef
-      ownInputRef = (TxOutRef "4355a46b19d348dc2f57c046f8ef63d4538ebb936000f3c9ee954a27460dd865" 1)
+      ownInputRef = TxOutRef "4355a46b19d348dc2f57c046f8ef63d4538ebb936000f3c9ee954a27460dd865" 1
    in ScriptContext
         { scriptContextTxInfo =
             TxInfo
@@ -421,7 +421,7 @@ mutateState =
       --
 
       ownInputRef :: TxOutRef
-      ownInputRef = (TxOutRef "f867238a04597c99a0b9858746557d305025cca3b9f78ea14d5c88c4cfcf58ff" 1)
+      ownInputRef = TxOutRef "f867238a04597c99a0b9858746557d305025cca3b9f78ea14d5c88c4cfcf58ff" 1
    in ScriptContext
         { scriptContextTxInfo =
             TxInfo
@@ -451,4 +451,4 @@ mutateState =
               , txInfoId = "9a12a605086a9f866731869a42d0558036fc739c74fea3849aa41562c015aaf9"
               }
         , scriptContextPurpose = Spending ownInputRef
-        }
+        }

agora-test/Spec/Sample/Shared.hs

@@ -38,14 +38,17 @@ module Spec.Sample.Shared (
   proposalValidatorAddress,
 
   -- ** Authority
-  authorityToken ,
+  authorityToken,
   authorityTokenSymbol,
 ) where
 
+import Agora.AuthorityToken
 import Agora.Governor (
   Governor (Governor),
  )
 import Agora.Governor.Scripts (
+  authorityTokenFromGovernor,
+  authorityTokenSymbolFromGovernor,
   governorPolicy,
   governorSTAssetClassFromGovernor,
   governorValidator,
@@ -56,9 +59,7 @@ import Agora.Governor.Scripts (
   stakeFromGovernor,
   stakeSTAssetClassFromGovernor,
   stakeSTSymbolFromGovernor,
-  stakeValidatorHashFromGovernor, 
-  authorityTokenFromGovernor,
-  authorityTokenSymbolFromGovernor,
+  stakeValidatorHashFromGovernor,
  )
 import Agora.Proposal (
   Proposal (..),
@@ -84,7 +85,6 @@ import Plutus.V1.Ledger.Api (
 import Plutus.V1.Ledger.Scripts (Validator, ValidatorHash)
 import Plutus.V1.Ledger.Value (AssetClass)
 import Plutus.V1.Ledger.Value qualified as Value
-import Agora.AuthorityToken
 
 --------------------------------------------------------------------------------
 
@@ -170,5 +170,5 @@ withMinAda v = v <> minAda
 authorityToken :: AuthorityToken
 authorityToken = authorityTokenFromGovernor governor
 
-authorityTokenSymbol :: CurrencySymbol 
-authorityTokenSymbol = authorityTokenSymbolFromGovernor governor
+authorityTokenSymbol :: CurrencySymbol
+authorityTokenSymbol = authorityTokenSymbolFromGovernor governor

agora/Agora/Governor/Scripts.hs

@@ -761,4 +761,4 @@ authorityTokenSymbolFromGovernor :: Governor -> CurrencySymbol
 authorityTokenSymbolFromGovernor gov = mintingPolicySymbol policy
   where
     policy = mkMintingPolicy $ authorityTokenPolicy params
-    params = authorityTokenFromGovernor gov
+    params = authorityTokenFromGovernor gov