Skip to content

Commit

Permalink
Enable StrictData in TxHistory module (#4885)
Browse files Browse the repository at this point in the history
- Make `TxHistory` strict

```haskell
data TxHistory = TxHistory
    { byCustomer :: ByCustomer
    , byTime :: ByTime
    }
```

### Heap profile before

![cardano-wallet-9-deposit-after-demo](https://github.com/user-attachments/assets/b4156f89-2e7b-43a9-8940-d73d9d94f00a)

### Heap profile after

![cardano-wallet](https://github.com/user-attachments/assets/cfe946e7-11f1-42dc-bef4-1558353b088d)

### Issue Number

Fixes #4876
  • Loading branch information
Anviking authored Dec 17, 2024
2 parents 885f9e6 + 6f3dc66 commit 77a93f8
Showing 1 changed file with 1 addition and 0 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -2,6 +2,7 @@
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE StrictData #-}

module Cardano.Wallet.Deposit.Pure.API.TxHistory
( ByCustomer
Expand Down

0 comments on commit 77a93f8

Please sign in to comment.