{-# LANGUAGE RecordWildCards #-}
module PaymentChannel.Internal.Metadata.Util
(
module PaymentChannel.Internal.Metadata.Util
, module PaymentChannel.Internal.Metadata.Types
, module PaymentChannel.Internal.Types
)
where
import PaymentChannel.Internal.Metadata.Types
import PaymentChannel.Internal.Settlement.Util
import PaymentChannel.Internal.Types
metaSetStatus :: PayChanStatus -> MetadataI a -> MetadataI a
metaSetStatus s md = md { mdChannelStatus = s }
metaGetStatus :: MetadataI a -> PayChanStatus
metaGetStatus Metadata{ mdChannelStatus = s } = s
metaTotalValXfer :: MetadataI a -> BtcAmount
metaTotalValXfer Metadata{..} =
sum (map siValue mdSettledValue) + mdUnsettledValue