Extract lens

albertodvp · May 31, 2024 · b98e7eb · b98e7eb
1 parent 032c217
commit b98e7eb
Show file tree

Hide file tree

Showing 26 changed files with 47 additions and 649 deletions.
diff --git a/README.md b/README.md
@@ -27,7 +27,7 @@ Support for `ghc-8.10.7` and `cardano-node-1.35.4` will be maintained for a litt
 
 We use the `TxBodyContent BuildTx BabbageEra` type from `cardano-api` as the basic type for building transactions. The `MonadBuildTx` class from `Convex.BuildTx` is essentially a writer for `TxBodyContent` modifications. `Convex.BuildTx` defines a number of helper functions for common tasks such as spending and creating Plutus script outputs, minting native assets, setting collateral, etc.
 
-To `Convex.Lenses` defines some lenses for adding content to transaction bodies. These can be used together with `MonadBuildTx.addBtx`.
+To `Convex.CardanoApi.Lenses` defines some lenses for adding content to transaction bodies. These can be used together with `MonadBuildTx.addBtx`.
 
 ```haskell
 import qualified Cardano.API.Shelley as C

diff --git a/src/base/convex-base.cabal b/src/base/convex-base.cabal
@@ -31,7 +31,6 @@ library
       Convex.BuildTx
       Convex.Class
       Convex.Constants
-      Convex.Lenses
       Convex.MonadLog
       Convex.NodeQueries
       Convex.PlutusLedger
@@ -54,6 +53,8 @@ library
       either-result
 
     build-depends:
+      convex-optics,
+
       cardano-api == 8.45.0.0,
       cardano-ledger-core,
       cardano-crypto-wrapper,
@@ -74,4 +75,4 @@ library
       bytestring,
       dlist,
       either-result,
-      strict-sop-core
+      strict-sop-core
diff --git a/src/base/lib/Convex/BuildTx.hs b/src/base/lib/Convex/BuildTx.hs
@@ -116,7 +116,7 @@ import           Control.Monad.Writer.Class    (MonadWriter (..))
 import           Convex.Class                  (MonadBlockchain (..),
                                                 MonadBlockchainCardanoNodeT,
                                                 MonadMockchain (..))
-import qualified Convex.Lenses                 as L
+import qualified Convex.CardanoApi.Lenses      as L
 import           Convex.MonadLog               (MonadLog (..), MonadLogIgnoreT,
                                                 MonadLogKatipT)
 import           Convex.Scripts                (toHashableScriptData)