Safe Haskell | None |
---|---|
Language | Haskell2010 |
- debugEnable :: Bool
- debugTrace :: String -> t -> t
- maxCoins :: Integer
- mIN_CHANNEL_SIZE :: BtcAmount
- testDustLimit :: BtcAmount
- testSettlePeriod :: Hour
- testMinDuration :: Hour
- mkTestServerConf :: BtcAmount -> ServerSettings
- data ArbChannelPair = ArbChannelPair {
- sendChan :: ClientPayChan
- recvChan :: ServerPayChanX
- initPayAmount :: BtcAmount
- initRecvAmount :: BtcAmount
- initPayment :: SignedPayment
- recvPrvKey :: TestRecvKey
- data TestRecvKey = TestRecvKey {}
- testPrvKeyC :: TestRecvKey -> PrvKeyC
- data ChannelPairResult = ChannelPairResult {
- resInitPair :: ArbChannelPair
- resSendChan :: ClientPayChan
- resRecvChan :: ServerPayChanX
- resSentAmounts :: [BtcAmount]
- resRecvdAmounts :: [BtcAmount]
- resPayList :: [SignedPayment]
- arbitraryNonDusty :: BtcAmount -> Gen NonDustyAmount
- genLockTimeDate :: ServerSettings -> UTCTime -> Hour -> Gen LockTimeDate
- newtype NonZeroBitcoinAmount = NonZeroBitcoinAmount {
- getAmount :: BtcAmount
- toInitResult :: ArbChannelPair -> ChannelPairResult
- doPayment :: MonadTime m => ChannelPairResult -> BtcAmount -> m ChannelPairResult
- runChanPair :: MonadTime m => ArbChannelPair -> [BtcAmount] -> m ChannelPairResult
- mkChanParams :: Gen (ChanParams, (PrvKeyC, TestRecvKey))
- fromRecvRootKey :: RootPrv -> Gen (ChanParams, (PrvKeyC, TestRecvKey))
- mkChanPair :: Gen (ArbChannelPair, SignedPayment)
- mkChanPairInitAmount :: BtcAmount -> Gen (ArbChannelPair, SignedPayment)
- testRbpcpFundingInfo :: ServerSettings -> ChanParams -> BtcAmount -> FundingInfo
- genRunChanPair :: Word -> (BtcAmount, BtcAmount) -> BtcAmount -> IO ChannelPairResult
- arbitraryFundingTx :: ChanParams -> BtcAmount -> Gen (Word32, Tx)
- arbitraryInsert :: forall a. [a] -> a -> Gen (Int, [a])
- nowishTimestamp :: UTCTime
- createAcceptClosingPayment :: ToChangeOutFee fee => Address -> fee -> ChannelPairResult -> Either PayChanError ClosedServerChanX
Documentation
debugEnable :: Bool Source #
debugTrace :: String -> t -> t Source #
mIN_CHANNEL_SIZE :: BtcAmount Source #
testDustLimit :: BtcAmount Source #
mkTestServerConf :: BtcAmount -> ServerSettings Source #
data ArbChannelPair Source #
ArbChannelPair | |
|
data TestRecvKey Source #
testPrvKeyC :: TestRecvKey -> PrvKeyC Source #
data ChannelPairResult Source #
ChannelPairResult | |
|
arbitraryNonDusty :: BtcAmount -> Gen NonDustyAmount Source #
:: ServerSettings | |
-> UTCTime | Now-timestamp |
-> Hour | Maximum duration |
-> Gen LockTimeDate |
newtype NonZeroBitcoinAmount Source #
NonZeroBitcoinAmount | |
|
doPayment :: MonadTime m => ChannelPairResult -> BtcAmount -> m ChannelPairResult Source #
Fold a payment of specified value into a ChannelPairResult
runChanPair :: MonadTime m => ArbChannelPair -> [BtcAmount] -> m ChannelPairResult Source #
mkChanParams :: Gen (ChanParams, (PrvKeyC, TestRecvKey)) Source #
fromRecvRootKey :: RootPrv -> Gen (ChanParams, (PrvKeyC, TestRecvKey)) Source #
mkChanPairInitAmount :: BtcAmount -> Gen (ArbChannelPair, SignedPayment) Source #
:: ServerSettings | |
-> ChanParams | |
-> BtcAmount | Open price |
-> FundingInfo |
genRunChanPair :: Word -> (BtcAmount, BtcAmount) -> BtcAmount -> IO ChannelPairResult Source #
:: ChanParams | |
-> BtcAmount | Funding amount |
-> Gen (Word32, Tx) | Output index of funding output plus transaction |
Funding transaction with a funding output at an arbitrary output index
arbitraryInsert :: forall a. [a] -> a -> Gen (Int, [a]) Source #
Insert an element into a list at an arbitrary position
createAcceptClosingPayment :: ToChangeOutFee fee => Address -> fee -> ChannelPairResult -> Either PayChanError ClosedServerChanX Source #
Orphan instances
Arbitrary ByteString Source # | |
Arbitrary RootPrv Source # | |
Arbitrary BtcAmount Source # | |
Arbitrary NonDustyAmount Source # | |
Arbitrary ChanParams Source # | |
Arbitrary ClientPayChan Source # | |
Arbitrary ServerPayChanX Source # | |
MonadTime Gen Source # | |
Arbitrary (PayChanState BtcSig) Source # | |
Arbitrary (Payment BtcSig) Source # | |