module PaymentChannel.Internal.Settlement.Util
(
module PaymentChannel.Internal.Settlement.Util
, module PaymentChannel.Internal.Settlement.Types
) where
import qualified Data.List.NonEmpty as NE
import qualified Network.Haskoin.Crypto as HC
import qualified Network.Haskoin.Script as HS
import qualified PaymentChannel.Internal.ChanScript as S
import PaymentChannel.Internal.Class.Value (HasValue (..))
import PaymentChannel.Internal.Payment
import PaymentChannel.Internal.Receiver.Types
import PaymentChannel.Internal.Settlement.Types
import PaymentChannel.Internal.Util
infoFromState :: ServerPayChanG kd sd -> SettleInfo
infoFromState rpc = error "STUB"