[ADP-3229] Move Checkpoint.Policy to primitive (#4254)

- [x] Move module Checkpoint.Policy to primitive ADP-3229
cardano-foundation · Nov 22, 2023 · 7457a8a · 7457a8a
2 parents 1b369e8 + b68ea85
commit 7457a8a
Show file tree

Hide file tree

Showing 9 changed files with 11 additions and 11 deletions.
diff --git a/lib/primitive/cardano-wallet-primitive.cabal b/lib/primitive/cardano-wallet-primitive.cabal
@@ -105,6 +105,7 @@ library
     Cardano.Wallet.Primitive.Types.Block
     Cardano.Wallet.Primitive.Types.Block.Gen
     Cardano.Wallet.Primitive.Types.BlockSummary
+    Cardano.Wallet.Primitive.Types.Checkpoints.Policy
     Cardano.Wallet.Primitive.Types.Coin
     Cardano.Wallet.Primitive.Types.Coin.Gen
     Cardano.Wallet.Primitive.Types.DecentralizationLevel

diff --git a/.../src/Cardano/Wallet/Checkpoints/Policy.hs → ...let/Primitive/Types/Checkpoints/Policy.hs b/.../src/Cardano/Wallet/Checkpoints/Policy.hs → ...let/Primitive/Types/Checkpoints/Policy.hs
@@ -4,7 +4,7 @@
 --
 -- Abstract data type that describes a policy for keeping and discarding
 -- checkpoints. To be used with the 'Checkpoints' type.
-module Cardano.Wallet.Checkpoints.Policy
+module Cardano.Wallet.Primitive.Types.Checkpoints.Policy
     ( BlockHeight
     , CheckpointPolicy
     , nextCheckpoint

diff --git a/lib/wallet/bench/restore-bench.hs b/lib/wallet/bench/restore-bench.hs
@@ -366,9 +366,9 @@ import UnliftIO.Exception
 import qualified Cardano.Wallet as W
 import qualified Cardano.Wallet.Address.Derivation.Byron as Byron
 import qualified Cardano.Wallet.Address.Derivation.Shelley as Shelley
-import qualified Cardano.Wallet.Checkpoints.Policy as CP
 import qualified Cardano.Wallet.DB.Sqlite.Migration.Old as Sqlite
 import qualified Cardano.Wallet.Primitive.Types as W
+import qualified Cardano.Wallet.Primitive.Types.Checkpoints.Policy as CP
 import qualified Cardano.Wallet.Primitive.Types.TokenBundle as TokenBundle
 import qualified Cardano.Wallet.Primitive.Types.UTxO as UTxO
 import qualified Cardano.Wallet.Primitive.Types.UTxOStatistics as UTxOStatistics

diff --git a/lib/wallet/cardano-wallet.cabal b/lib/wallet/cardano-wallet.cabal
@@ -246,7 +246,6 @@ library
     Cardano.Wallet.Balance.Migration.Selection
     Cardano.Wallet.Byron.Compatibility
     Cardano.Wallet.Checkpoints
-    Cardano.Wallet.Checkpoints.Policy
     Cardano.Wallet.CLI
     Cardano.Wallet.Compat
     Cardano.Wallet.DB

diff --git a/lib/wallet/src/Cardano/Wallet.hs b/lib/wallet/src/Cardano/Wallet.hs
@@ -809,13 +809,13 @@ import qualified Cardano.Wallet.Address.Discovery.Random as Rnd
 import qualified Cardano.Wallet.Address.Discovery.Sequential as Seq
 import qualified Cardano.Wallet.Address.Discovery.Shared as Shared
 import qualified Cardano.Wallet.Balance.Migration as Migration
-import qualified Cardano.Wallet.Checkpoints.Policy as CP
 import qualified Cardano.Wallet.DB.Store.Delegations.Layer as Dlgs
 import qualified Cardano.Wallet.DB.Store.Submissions.Layer as Submissions
 import qualified Cardano.Wallet.DB.WalletState as WalletState
 import qualified Cardano.Wallet.DB.WalletState as WS
 import qualified Cardano.Wallet.Primitive.Slotting as Slotting
 import qualified Cardano.Wallet.Primitive.Types as W
+import qualified Cardano.Wallet.Primitive.Types.Checkpoints.Policy as CP
 import qualified Cardano.Wallet.Primitive.Types.Coin as Coin
 import qualified Cardano.Wallet.Primitive.Types.Range as Range
 import qualified Cardano.Wallet.Primitive.Types.TokenBundle as TokenBundle

diff --git a/lib/wallet/src/Cardano/Wallet/Network.hs b/lib/wallet/src/Cardano/Wallet/Network.hs
@@ -50,9 +50,6 @@ import Cardano.BM.Data.Tracer
 import Cardano.Pool.Types
     ( StakePoolsSummary
     )
-import Cardano.Wallet.Checkpoints.Policy
-    ( CheckpointPolicy
-    )
 import Cardano.Wallet.Primitive.Slotting
     ( PastHorizonException
     , TimeInterpreter
@@ -71,6 +68,9 @@ import Cardano.Wallet.Primitive.Types
 import Cardano.Wallet.Primitive.Types.BlockSummary
     ( LightSummary
     )
+import Cardano.Wallet.Primitive.Types.Checkpoints.Policy
+    ( CheckpointPolicy
+    )
 import Cardano.Wallet.Primitive.Types.Coin
     ( Coin
     )

diff --git a/lib/wallet/src/Cardano/Wallet/Pools.hs b/lib/wallet/src/Cardano/Wallet/Pools.hs
@@ -291,7 +291,7 @@ import UnliftIO.STM
 
 import qualified Cardano.Pool.DB as PoolDb
 import qualified Cardano.Pool.DB.Layer as Pool
-import qualified Cardano.Wallet.Checkpoints.Policy as CP
+import qualified Cardano.Wallet.Primitive.Types.Checkpoints.Policy as CP
 import qualified Cardano.Wallet.Primitive.Types.Coin as Coin
 import qualified Data.List as L
 import qualified Data.List.NonEmpty as NE

diff --git a/lib/wallet/test/unit/Cardano/Wallet/Checkpoints/PolicySpec.hs b/lib/wallet/test/unit/Cardano/Wallet/Checkpoints/PolicySpec.hs
@@ -5,7 +5,7 @@ module Cardano.Wallet.Checkpoints.PolicySpec
 
 import Prelude
 
-import Cardano.Wallet.Checkpoints.Policy
+import Cardano.Wallet.Primitive.Types.Checkpoints.Policy
     ( BlockHeight
     , CheckpointPolicy
     , nextCheckpoint
@@ -30,7 +30,7 @@ import Test.QuickCheck
     , (===)
     )
 
-import qualified Cardano.Wallet.Checkpoints.Policy as CP
+import qualified Cardano.Wallet.Primitive.Types.Checkpoints.Policy as CP
 import qualified Data.Set as Set
 
 spec :: Spec

diff --git a/lib/wallet/test/unit/Cardano/Wallet/Network/LightSpec.hs b/lib/wallet/test/unit/Cardano/Wallet/Network/LightSpec.hs
@@ -88,7 +88,7 @@ import Test.QuickCheck
     , (===)
     )
 
-import qualified Cardano.Wallet.Checkpoints.Policy as CP
+import qualified Cardano.Wallet.Primitive.Types.Checkpoints.Policy as CP
 import qualified Data.ByteString.Char8 as B8
 import qualified Data.List as L
 import qualified Data.List.NonEmpty as NE