Rename stake-pool-related record fields.

cardano-foundation · Jul 3, 2020 · c3cd20c · c3cd20c
1 parent ce6a478
commit c3cd20c
Showing 1 changed file with 12 additions and 7 deletions.
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Pools.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Pools.hs
@@ -189,8 +189,8 @@ data PoolLsqData = PoolLsqData
 
 -- | Stake pool-related data that has been read from the database.
 data PoolDbData = PoolDbData
-    { regCert :: PoolRegistrationCertificate
-    , retCert :: Maybe PoolRetirementCertificate
+    { registrationCert :: PoolRegistrationCertificate
+    , retirementCert :: Maybe PoolRetirementCertificate
     , nProducedBlocks :: Quantity "block" Word64
     , metadata :: Maybe StakePoolMetadata
     }
@@ -230,14 +230,19 @@ combineDbAndLsqData sp =
             , Api.producedBlocks = maybe (Quantity 0)
                     (fmap fromIntegral . nProducedBlocks) dbData
             }
-        , Api.metadata = dbData >>= metadata >>= (return . ApiT)
-        , Api.cost = fmap fromIntegral . poolCost . regCert <$> dbData
-        , Api.pledge = fmap fromIntegral . poolPledge . regCert <$> dbData
-        , Api.margin = Quantity . poolMargin . regCert <$> dbData
+        , Api.metadata =
+            dbData >>= metadata >>= (return . ApiT)
+        , Api.cost =
+            fmap fromIntegral . poolCost . registrationCert <$> dbData
+        , Api.pledge =
+            fmap fromIntegral . poolPledge . registrationCert <$> dbData
+        , Api.margin =
+            Quantity . poolMargin . registrationCert <$> dbData
           -- TODO: Report the actual retirement status of a pool.
           -- For the moment, we always report that a pool will never retire.
           -- See https://github.com/input-output-hk/cardano-wallet/milestone/89
-        , Api.retirement = toApiEpochInfo . retiredIn <$> (retCert =<< dbData)
+        , Api.retirement =
+            toApiEpochInfo . retiredIn <$> (retirementCert =<< dbData)
         }
 
     toApiEpochInfo ep =