Replace getTotalCoin with utxoBalance.

Author: matt-noonan

wallet-new/src/Cardano/Wallet/Kernel/DB/AcidState.hs

@@ -52,8 +52,9 @@ import           Formatting (bprint, build, (%))
 import qualified Formatting.Buildable
 import           Test.QuickCheck (Arbitrary (..), oneof)
 
-import           Pos.Chain.Txp (Utxo, getTotalCoinsInUtxo)
-import           Pos.Core (FlatSlotId, SlotCount, SlotId, flattenSlotIdExplicit)
+import           Pos.Chain.Txp (Utxo)
+import           Pos.Core (FlatSlotId, SlotCount, SlotId, flattenSlotIdExplicit,
+                     mkCoin)
 import           Pos.Core.Chrono (NewestFirst (..), OldestFirst (..))
 import           Pos.Core.Txp (TxAux, TxId)
 
@@ -74,6 +75,7 @@ import           Cardano.Wallet.Kernel.NodeStateAdaptor (SecurityParameter (..))
 import           Cardano.Wallet.Kernel.PrefilterTx (AddrWithId,
                      PrefilteredBlock (..), emptyPrefilteredBlock)
 import           Cardano.Wallet.Kernel.Util (markMissingMapEntries)
+import           Cardano.Wallet.Kernel.Util.Core (utxoBalance)
 
 {-------------------------------------------------------------------------------
   Top-level database
@@ -452,7 +454,7 @@ restoreHdWallet newRoot slotId utxoByAccount =
     tipCheckpoint :: Utxo -> PartialCheckpoint
     tipCheckpoint utxo = PartialCheckpoint
       { _pcheckpointUtxo        = InDb utxo
-      , _pcheckpointUtxoBalance = InDb (getTotalCoinsInUtxo utxo)
+      , _pcheckpointUtxoBalance = InDb . mkCoin . fromIntegral . utxoBalance $ utxo
       , _pcheckpointPending     = Pending.empty
       , _pcheckpointBlockMeta   = emptyLocalBlockMeta -- TODO (@mn): is this right?
       , _pcheckpointSlotId      = InDb slotId