Remove _pcaAnchor lens

IntersectMBO · Oct 15, 2024 · 525b7d3 · 525b7d3
1 parent 2b53bcf
commit 525b7d3
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 15 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Vote.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/Governance/Vote.hs
@@ -27,7 +27,6 @@ import           Cardano.CLI.Types.Key
 import           Data.Aeson.Encode.Pretty
 import           Data.Function
 import qualified Data.Yaml.Pretty as Yaml
-import           Lens.Micro (_Just, over)
 
 runGovernanceVoteCmds
   :: ()
@@ -57,9 +56,10 @@ runGovernanceVoteCreateCmd
     let (govActionTxId, govActionIndex) = governanceAction
         sbe = conwayEraOnwardsToShelleyBasedEra eon -- TODO: Conway era - update vote creation related function to take ConwayEraOnwards
         mAnchor' =
-          over
-            (_Just . _pcaAnchor)
-            (\(VoteUrl url, voteHash) -> L.Anchor{L.anchorUrl = url, L.anchorDataHash = voteHash})
+          fmap
+            ( \pca@PotentiallyCheckedAnchor{pcaAnchor = (VoteUrl url, voteHash)} ->
+                pca{pcaAnchor = L.Anchor{L.anchorUrl = url, L.anchorDataHash = voteHash}}
+            )
             mAnchor
 
     mapM_

diff --git a/cardano-cli/src/Cardano/CLI/Types/Common.hs b/cardano-cli/src/Cardano/CLI/Types/Common.hs
@@ -90,7 +90,6 @@ module Cardano.CLI.Types.Common
   , DRepMetadataUrl
   , ResignationMetadataUrl
   , PotentiallyCheckedAnchor (..)
-  , _pcaAnchor
   )
 where
 
@@ -105,7 +104,6 @@ import           Data.String (IsString)
 import           Data.Text (Text)
 import qualified Data.Text as Text
 import           Data.Word (Word64)
-import           Lens.Micro.Type (Traversal)
 
 -- | Determines the direction in which the MIR certificate will transfer ADA.
 data TransferDirection
@@ -667,12 +665,3 @@ data PotentiallyCheckedAnchor anchorType anchor
   -- ^ Whether to check the hash or not (CheckHash for checking or TrustHash for not checking)
   }
   deriving (Eq, Show)
-
-_pcaAnchor
-  :: Traversal
-      (PotentiallyCheckedAnchor anchorType anchor)
-      (PotentiallyCheckedAnchor anchorType anchor')
-      anchor
-      anchor'
-_pcaAnchor f pca@(PotentiallyCheckedAnchor{pcaAnchor = pcaAnchor'}) =
-  (\newAnchor -> pca{pcaAnchor = newAnchor}) <$> f pcaAnchor'