Merge pull request #3168 from input-output-hk/jordan/CDEC-285

[CDEC-285] Remove field accessors for `FakeTxsHistory` data type

Author: erikd

tools/src/dbgen/Lib.hs

@@ -66,7 +66,7 @@ _exampleSpec = GenSpec
         { accounts = 1
         , accountSpec = AccountSpec { addresses = 100 }
         , fakeUtxoCoinDistr = RangeDistribution { amount = 1000, range = 100 }
-        , fakeTxsHistory = SimpleTxsHistory { txsCount = 100, numOutgoingAddress = 3 }
+        , fakeTxsHistory = SimpleTxsHistory 100 3
         }
     , wallets = 1
     }
@@ -146,11 +146,10 @@ data FakeTxsHistory
     = NoHistory
     -- ^ Do not generate fake history.
     | SimpleTxsHistory
-        { txsCount           :: !Integer
+        !Integer
         -- ^ Number of txs we want to generate.
-        , numOutgoingAddress :: !NumOfOutgoingAddresses
+        !NumOfOutgoingAddresses
         -- ^ Number of outgoing addreses of a single @Tx@.
-        }
     -- ^ Simple tx history generation.
     -- TODO(ks): For now KISS, we can add more generation strategies.
     deriving (Show, Eq, Generic)
@@ -237,8 +236,8 @@ generateWalletDB CLI{..} spec@GenSpec{..} = do
 
 -- | Here we generate fake txs. For now it's a simple arbitrary generation.
 generateFakeTxs :: FakeTxsHistory -> AccountId -> UberMonad ()
-generateFakeTxs NoHistory _                = pure ()
-generateFakeTxs SimpleTxsHistory{..} aId   = do
+generateFakeTxs NoHistory _ = pure ()
+generateFakeTxs (SimpleTxsHistory txsCount numOutgoingAddress) aId = do
     -- Get the number of txs we need to generate.
     let txsNumber = fromIntegral txsCount