Network.Haskoin.Wallet.Internals

This module expose haskoin-wallet internals. No guarantee is made on the stability of the interface of these internal modules.

Documentation

module Network.Haskoin.Wallet

Database Wallet

initWallet :: MonadIO m => Double -> SqlPersistT m ()

Database Accounts

accounts :: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m) => ListRequest -> SqlPersistT m ([Account], Word32)

Fetch all accounts

newAccount :: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m) => NewAccount -> SqlPersistT m (Entity Account, Maybe Mnemonic)

Create a new account

renameAccount :: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m) => Entity Account -> AccountName -> SqlPersistT m Account

addAccountKeys

Arguments

:: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m)

=> Entity Account

Account Entity

-> [XPubKey]

Thirdparty public keys to add

-> SqlPersistT m Account

Account information

Add new thirdparty keys to a multisignature account. This function can fail if the multisignature account already has all required keys.

getAccount :: (MonadIO m, MonadThrow m) => AccountName -> SqlPersistT m (Entity Account)

isMultisigAccount :: Account -> Bool

isReadAccount :: Account -> Bool

isCompleteAccount :: Account -> Bool

Database Addresses

getAddress

Arguments

:: (MonadIO m, MonadThrow m)

=> Entity Account

Account Entity

-> AddressType

Address type

-> KeyIndex

Derivation index (key)

-> SqlPersistT m (Entity WalletAddr)

Address

Get an address if it exists, or throw an exception otherwise. Fetching addresses in the hidden gap will also throw an exception.

addressesAll :: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m) => SqlPersistT m [WalletAddr]

All addresses in the wallet, including hidden gap addresses. This is useful for building a bloom filter.

addresses

Arguments

:: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m)

=> Entity Account

Account Entity

-> AddressType

Address Type

-> SqlPersistT m [WalletAddr]

Addresses

All addresses in one account excluding hidden gap.

addressList

Arguments

:: MonadIO m

=> Entity Account

Account Entity

-> AddressType

Address type

-> ListRequest

List request

-> SqlPersistT m ([WalletAddr], Word32)

List result

Get address list.

unusedAddresses

Arguments

:: MonadIO m

=> Entity Account

Account ID

-> AddressType

Address type

-> ListRequest

-> SqlPersistT m ([WalletAddr], Word32)

Unused addresses

Get a list of all unused addresses.

addressCount

Arguments

:: MonadIO m

=> Entity Account

Account Entity

-> AddressType

Address type

-> SqlPersistT m Word32

Address Count

Get a count of all the addresses in an account

setAddrLabel

Arguments

:: (MonadIO m, MonadThrow m)

=> Entity Account

Account ID

-> KeyIndex

Derivation index

-> AddressType

Address type

-> Text

New label

-> SqlPersistT m WalletAddr

Add a label to an address.

addressPrvKey

Arguments

:: (MonadIO m, MonadThrow m)

=> Entity Account

Account Entity

-> Maybe XPrvKey

If not in account

-> KeyIndex

Derivation index of the address

-> AddressType

Address type

-> SqlPersistT m PrvKeyC

Private key

Returns the private key of an address.

useAddress :: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m) => WalletAddr -> SqlPersistT m [WalletAddr]

Use an address and make sure we have enough gap addresses after it. Returns the new addresses that have been created.

generateAddrs :: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m) => Entity Account -> AddressType -> KeyIndex -> SqlPersistT m Int

Generate all the addresses up to certain index.

setAccountGap

Arguments

:: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m)

=> Entity Account

Account Entity

-> Word32

New gap value

-> SqlPersistT m (Entity Account)

Set the address gap of an account to a new value. This will create new internal and external addresses as required. The gap can only be increased, not decreased in size.

firstAddrTime :: MonadIO m => SqlPersistT m (Maybe Timestamp)

getPathRedeem :: Account -> SoftPath -> RedeemScript

getPathPubKey :: Account -> SoftPath -> PubKeyC

Database Bloom Filter

getBloomFilter :: (MonadIO m, MonadThrow m) => SqlPersistT m (BloomFilter, Int, Double)

Returns a bloom filter containing all the addresses in this wallet. This includes internal and external addresses. The bloom filter can be set on a peer connection to filter the transactions received by that peer.

Helpers

subSelectAddrCount :: Entity Account -> AddressType -> SqlExpr (Value KeyIndex)

Database transactions

txs

Arguments

:: MonadIO m

=> Maybe TxConfidence

-> AccountId

Account ID

-> ListRequest

List request

-> SqlPersistT m ([WalletTx], Word32)

List result

Get transactions.

addrTxs

Arguments

:: MonadIO m

=> Entity Account

Account entity

-> Entity WalletAddr

Address entity

-> ListRequest

List request

-> SqlPersistT m ([WalletTx], Word32)

accTxsFromBlock

Arguments

:: (MonadIO m, MonadThrow m)

=> AccountId

-> BlockHeight

-> Word32

Block count (0 for all)

-> SqlPersistT m [WalletTx]

getTx :: MonadIO m => TxHash -> SqlPersistT m (Maybe Tx)

getAccountTx :: MonadIO m => AccountId -> TxHash -> SqlPersistT m WalletTx

importTx

Arguments

:: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m)

=> Tx

Transaction to import

-> Maybe (TBMChan Notif)

-> AccountId

Account ID

-> SqlPersistT m ([WalletTx], [WalletAddr])

New transactions and addresses created

Import a transaction into the wallet from an unknown source. If the transaction is standard, valid, all inputs are known and all inputs can be spent, then the transaction will be imported as a network transaction. Otherwise, the transaction will be imported into the local account as an offline transaction.

importNetTx

Arguments

:: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m)

=> Tx

-> Maybe (TBMChan Notif)

-> SqlPersistT m ([WalletTx], [WalletAddr])

Returns the new transactions and addresses created

Import a transaction from the network into the wallet. This function assumes transactions are imported in-order (parents first). It also assumes that the confirmations always arrive after the transaction imports. This function is idempotent.

When re-importing an existing transaction, this function will recompute the inputs, outputs and transaction details for each account. A non-dead transaction could be set to dead due to new inputs being double spent. However, we do not allow dead transactions to be revived by reimporting them. Transactions can only be revived if they make it into the main chain.

This function returns the network confidence of the imported transaction.

signAccountTx :: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m) => Entity Account -> Maybe (TBMChan Notif) -> Maybe XPrvKey -> TxHash -> SqlPersistT m ([WalletTx], [WalletAddr])

createTx

Arguments

:: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m)

=> Entity Account

Account Entity

-> Maybe (TBMChan Notif)

Notification channel

-> Maybe XPrvKey

Key if not provided by account

-> [(Address, Word64)]

List of recipient addresses and amounts

-> Word64

Fee per 1000 bytes

-> Word32

Minimum confirmations

-> Bool

Should fee be paid by recipient

-> Bool

Should the transaction be signed

-> SqlPersistT m (WalletTx, [WalletAddr])

(New transaction hash, Completed flag)

Create a transaction sending some coins to a list of recipient addresses.

signOfflineTx

Arguments

:: Account

Account used for signing

-> Maybe XPrvKey

Key if not provided in account

-> Tx

Transaction to sign

-> [CoinSignData]

Input signing data

-> Tx

getOfflineTxData :: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m) => AccountId -> TxHash -> SqlPersistT m (OfflineTxData, [InCoinData])

killTxs :: MonadIO m => Maybe (TBMChan Notif) -> [TxHash] -> SqlPersistT m ()

reviveTx :: MonadIO m => Maybe (TBMChan Notif) -> Tx -> SqlPersistT m ()

getPendingTxs :: MonadIO m => Int -> SqlPersistT m [TxHash]

deleteTx :: (MonadIO m, MonadThrow m) => TxHash -> SqlPersistT m ()

Database blocks

importMerkles :: MonadIO m => BlockChainAction -> [MerkleTxs] -> Maybe (TBMChan Notif) -> SqlPersistT m ()

walletBestBlock :: MonadIO m => SqlPersistT m (BlockHash, Word32)

Database coins and balances

spendableCoins

Arguments

:: (MonadIO m, MonadThrow m, MonadBase IO m, MonadResource m)

=> AccountId

Account key

-> Word32

Minimum confirmations

-> (SqlExpr (Entity WalletCoin) -> SqlExpr (Entity WalletTx) -> [SqlExpr OrderBy])

Coin ordering policy

-> SqlPersistT m [InCoinData]

Spendable coins

accountBalance :: MonadIO m => AccountId -> Word32 -> Bool -> SqlPersistT m Word64

addressBalances :: MonadIO m => Entity Account -> KeyIndex -> KeyIndex -> AddressType -> Word32 -> Bool -> SqlPersistT m [(KeyIndex, BalanceInfo)]

Rescan

resetRescan :: MonadIO m => SqlPersistT m ()

Helpers

data InCoinData

Constructors

InCoinData

Fields

inCoinDataCoin :: !(Entity WalletCoin)

inCoinDataTx :: !WalletTx

inCoinDataAddr :: !WalletAddr

Instances

Coin InCoinData

module Network.Haskoin.Wallet.Client

cmdStart :: Handler ()

cmdStop :: Handler ()

cmdNewAcc :: Bool -> String -> [String] -> Handler ()

cmdAddKey :: String -> Handler ()

cmdSetGap :: String -> String -> Handler ()

cmdAccount :: String -> Handler ()

cmdRenameAcc :: String -> String -> Handler ()

cmdAccounts :: [String] -> Handler ()

cmdList :: String -> [String] -> Handler ()

cmdUnused :: String -> [String] -> Handler ()

cmdLabel :: String -> String -> String -> Handler ()

cmdTxs :: String -> [String] -> Handler ()

cmdAddrTxs :: String -> String -> [String] -> Handler ()

cmdGenAddrs :: String -> String -> Handler ()

cmdSend :: String -> String -> String -> Handler ()

cmdSendMany :: String -> [String] -> Handler ()

cmdImport :: String -> Handler ()

cmdSign :: String -> String -> Handler ()

cmdBalance :: String -> Handler ()

cmdGetTx :: String -> String -> Handler ()

cmdGetOffline :: String -> String -> Handler ()

cmdSignOffline :: String -> String -> String -> Handler ()

cmdRescan :: [String] -> Handler ()

cmdDecodeTx :: Handler ()

cmdVersion :: Handler ()

cmdStatus :: Handler ()

cmdMonitor :: [String] -> Handler ()

cmdSync :: String -> String -> [String] -> Handler ()

cmdKeyPair :: Handler ()

cmdDeleteTx :: String -> Handler ()

cmdPending :: String -> [String] -> Handler ()

cmdDead :: String -> [String] -> Handler ()

module Network.Haskoin.Wallet.Server

type Handler m = ReaderT HandlerSession m

data HandlerSession

Constructors

HandlerSession

Fields

handlerConfig :: !Config

handlerPool :: !ConnectionPool

handlerNodeState :: !(Maybe SharedNodeState)

handlerNotifChan :: !(TBMChan Notif)

runHandler :: Monad m => Handler m a -> HandlerSession -> m a

runDB :: MonadBaseControl IO m => SqlPersistT m a -> Handler m a

runDBPool :: MonadBaseControl IO m => SqlPersistT m a -> ConnectionPool -> m a

tryDBPool :: MonadLoggerIO m => ConnectionPool -> SqlPersistM a -> m (Maybe a)

runNode :: MonadIO m => NodeT m a -> Handler m a

getAccountsR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadBase IO m, MonadThrow m, MonadResource m) => ListRequest -> Handler m (Maybe Value)

postAccountsR :: (MonadResource m, MonadThrow m, MonadLoggerIO m, MonadBaseControl IO m) => NewAccount -> Handler m (Maybe Value)

postAccountRenameR :: (MonadResource m, MonadThrow m, MonadLoggerIO m, MonadBaseControl IO m) => AccountName -> AccountName -> Handler m (Maybe Value)

getAccountR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadThrow m) => AccountName -> Handler m (Maybe Value)

postAccountKeysR :: (MonadResource m, MonadThrow m, MonadLoggerIO m, MonadBaseControl IO m) => AccountName -> [XPubKey] -> Handler m (Maybe Value)

postAccountGapR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadBase IO m, MonadThrow m, MonadResource m) => AccountName -> SetAccountGap -> Handler m (Maybe Value)

getAddressesR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadThrow m) => AccountName -> AddressType -> Word32 -> Bool -> ListRequest -> Handler m (Maybe Value)

getAddressesUnusedR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadThrow m) => AccountName -> AddressType -> ListRequest -> Handler m (Maybe Value)

getAddressR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadThrow m) => AccountName -> KeyIndex -> AddressType -> Word32 -> Bool -> Handler m (Maybe Value)

putAddressR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadThrow m) => AccountName -> KeyIndex -> AddressType -> AddressLabel -> Handler m (Maybe Value)

postAddressesR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadThrow m, MonadBase IO m, MonadResource m) => AccountName -> KeyIndex -> AddressType -> Handler m (Maybe Value)

getTxs :: (MonadLoggerIO m, MonadBaseControl IO m, MonadThrow m) => AccountName -> ListRequest -> String -> (AccountId -> ListRequest -> SqlPersistT m ([WalletTx], Word32)) -> Handler m (Maybe Value)

getTxsR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadThrow m) => AccountName -> ListRequest -> Handler m (Maybe Value)

getPendingR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadThrow m) => AccountName -> ListRequest -> Handler m (Maybe Value)

getDeadR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadThrow m) => AccountName -> ListRequest -> Handler m (Maybe Value)

getAddrTxsR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadThrow m) => AccountName -> KeyIndex -> AddressType -> ListRequest -> Handler m (Maybe Value)

postTxsR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadBase IO m, MonadThrow m, MonadResource m) => AccountName -> Maybe XPrvKey -> TxAction -> Handler m (Maybe Value)

getTxR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadThrow m) => AccountName -> TxHash -> Handler m (Maybe Value)

deleteTxIdR :: (MonadLoggerIO m, MonadThrow m, MonadBaseControl IO m) => TxHash -> Handler m (Maybe Value)

getBalanceR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadThrow m) => AccountName -> Word32 -> Bool -> Handler m (Maybe Value)

getOfflineTxR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadBase IO m, MonadThrow m, MonadResource m) => AccountName -> TxHash -> Handler m (Maybe Value)

postOfflineTxR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadBase IO m, MonadThrow m, MonadResource m) => AccountName -> Maybe XPrvKey -> Tx -> [CoinSignData] -> Handler m (Maybe Value)

postNodeR :: (MonadLoggerIO m, MonadBaseControl IO m, MonadThrow m) => NodeAction -> Handler m (Maybe Value)

getSyncR :: (MonadThrow m, MonadLoggerIO m, MonadBaseControl IO m) => AccountName -> Either BlockHeight BlockHash -> ListRequest -> Handler m (Maybe Value)

whenOnline :: Monad m => Handler m () -> Handler m ()

updateNodeFilter :: (MonadBaseControl IO m, MonadLoggerIO m, MonadThrow m) => Handler m ()

adjustFCTime :: Timestamp -> Timestamp

format :: String -> Text

module Network.Haskoin.Wallet.Settings

type DatabaseConfType = SqliteConf

getDatabasePool :: (MonadLoggerIO m, MonadBaseControl IO m) => DatabaseConfType -> m ConnectionPool

paramLimit :: Int

type AccountName = Text

data JsonAccount

Constructors

JsonAccount

Fields

jsonAccountName :: !Text

jsonAccountType :: !AccountType

jsonAccountMaster :: !(Maybe XPrvKey)

jsonAccountMnemonic :: !(Maybe Text)

jsonAccountDerivation :: !(Maybe HardPath)

jsonAccountKeys :: ![XPubKey]

jsonAccountGap :: !Word32

jsonAccountCreated :: !UTCTime

Instances

Eq JsonAccount

Read JsonAccount

Show JsonAccount

FromJSON JsonAccount

ToJSON JsonAccount

data JsonAddr

Constructors

JsonAddr

Fields

jsonAddrAddress :: !Address

jsonAddrIndex :: !KeyIndex

jsonAddrType :: !AddressType

jsonAddrLabel :: !Text

jsonAddrRedeem :: !(Maybe ScriptOutput)

jsonAddrKey :: !(Maybe PubKeyC)

jsonAddrCreated :: !UTCTime

jsonAddrBalance :: !(Maybe BalanceInfo)

Instances

Eq JsonAddr

Read JsonAddr

Show JsonAddr

FromJSON JsonAddr

ToJSON JsonAddr

data JsonCoin

Constructors

JsonCoin

Fields

jsonCoinHash :: !TxHash

jsonCoinPos :: !Word32

jsonCoinValue :: !Word64

jsonCoinScript :: !ScriptOutput

jsonCoinCreated :: !UTCTime

jsonCoinTx :: !(Maybe JsonTx)

jsonCoinAddress :: !(Maybe JsonAddr)

jsonCoinSpendingTx :: !(Maybe JsonTx)

Instances

Eq JsonCoin

Read JsonCoin

Show JsonCoin

FromJSON JsonCoin

ToJSON JsonCoin

data JsonTx

Constructors

JsonTx

Fields

jsonTxHash :: !TxHash

jsonTxNosigHash :: !TxHash

jsonTxType :: !TxType

jsonTxInValue :: !Word64

jsonTxOutValue :: !Word64

jsonTxValue :: !Int64

jsonTxInputs :: ![AddressInfo]

jsonTxOutputs :: ![AddressInfo]

jsonTxChange :: ![AddressInfo]

jsonTxTx :: !Tx

jsonTxIsCoinbase :: !Bool

jsonTxConfidence :: !TxConfidence

jsonTxConfirmedBy :: !(Maybe BlockHash)

jsonTxConfirmedHeight :: !(Maybe Word32)

jsonTxConfirmedDate :: !(Maybe Word32)

jsonTxCreated :: !UTCTime

jsonTxAccount :: !AccountName

jsonTxConfirmations :: !(Maybe Word32)

jsonTxBestBlock :: !(Maybe BlockHash)

jsonTxBestBlockHeight :: !(Maybe BlockHeight)

Instances

Eq JsonTx

Read JsonTx

Show JsonTx

FromJSON JsonTx

ToJSON JsonTx

data WalletRequest

Constructors

GetAccountsR !ListRequest

PostAccountsR !NewAccount

PostAccountRenameR !AccountName !AccountName

GetAccountR !AccountName

PostAccountKeysR !AccountName ![XPubKey]

PostAccountGapR !AccountName !SetAccountGap

GetAddressesR !AccountName !AddressType !Word32 !Bool !ListRequest

GetAddressesUnusedR !AccountName !AddressType !ListRequest

GetAddressR !AccountName !KeyIndex !AddressType !Word32 !Bool

PutAddressR !AccountName !KeyIndex !AddressType !AddressLabel

PostAddressesR !AccountName !KeyIndex !AddressType

GetTxsR !AccountName !ListRequest

GetAddrTxsR !AccountName !KeyIndex !AddressType !ListRequest

PostTxsR !AccountName !(Maybe XPrvKey) !TxAction

GetTxR !AccountName !TxHash

GetOfflineTxR !AccountName !TxHash

PostOfflineTxR !AccountName !(Maybe XPrvKey) !Tx ![CoinSignData]

GetBalanceR !AccountName !Word32 !Bool

PostNodeR !NodeAction

DeleteTxIdR !TxHash

GetSyncR !AccountName !BlockHash !ListRequest

GetSyncHeightR !AccountName !BlockHeight !ListRequest

GetPendingR !AccountName !ListRequest

GetDeadR !AccountName !ListRequest

Instances

FromJSON WalletRequest

ToJSON WalletRequest

data ListRequest

Constructors

ListRequest

Fields

listOffset :: !Word32

listLimit :: !Word32

listReverse :: !Bool

Instances

Eq ListRequest

Read ListRequest

Show ListRequest

FromJSON ListRequest

ToJSON ListRequest

data NewAccount

Constructors

NewAccount

Fields

newAccountName :: !AccountName

newAccountType :: !AccountType

newAccountMnemonic :: !(Maybe Text)

newAccountMaster :: !(Maybe XPrvKey)

newAccountDeriv :: !(Maybe HardPath)

newAccountKeys :: ![XPubKey]

newAccountReadOnly :: !Bool

Instances

Eq NewAccount

Read NewAccount

Show NewAccount

FromJSON NewAccount

ToJSON NewAccount

data SetAccountGap

Constructors

SetAccountGap

Fields

getAccountGap :: !Word32

Instances

Eq SetAccountGap

Read SetAccountGap

Show SetAccountGap

FromJSON SetAccountGap

ToJSON SetAccountGap

data OfflineTxData

Constructors

OfflineTxData

Fields

offlineTxDataTx :: !Tx

offlineTxDataCoinData :: ![CoinSignData]

Instances

FromJSON OfflineTxData

ToJSON OfflineTxData

data CoinSignData

Constructors

CoinSignData

Fields

coinSignOutPoint :: !OutPoint

coinSignScriptOutput :: !ScriptOutput

coinSignDeriv :: !SoftPath

Instances

Eq CoinSignData

Show CoinSignData

FromJSON CoinSignData

ToJSON CoinSignData

data TxAction

Constructors

CreateTx

Fields

accTxActionRecipients :: ![(Address, Word64)]

accTxActionFee :: !Word64

accTxActionMinConf :: !Word32

accTxActionRcptFee :: !Bool

accTxActionSign :: !Bool

ImportTx

Fields

accTxActionTx :: !Tx

SignTx

Fields

accTxActionHash :: !TxHash

Instances

Eq TxAction

Show TxAction

FromJSON TxAction

ToJSON TxAction

data AddressLabel

Constructors

AddressLabel

Fields

addressLabelLabel :: !Text

Instances

Eq AddressLabel

Read AddressLabel

Show AddressLabel

FromJSON AddressLabel

ToJSON AddressLabel

data NodeAction

Constructors

NodeActionRescan

Fields

nodeActionTimestamp :: !(Maybe Word32)

NodeActionStatus

Instances

Eq NodeAction

Read NodeAction

Show NodeAction

FromJSON NodeAction

ToJSON NodeAction

data AccountType

Constructors

AccountRegular

AccountMultisig

Fields

accountTypeRequiredSigs :: !Int

accountTypeTotalKeys :: !Int

Instances

Eq AccountType

Read AccountType

Show AccountType

NFData AccountType

PersistFieldSql AccountType

PersistField AccountType

FromJSON AccountType

ToJSON AccountType

data AddressType

Constructors

AddressInternal

AddressExternal

Instances

Eq AddressType

Read AddressType

Show AddressType

NFData AddressType

PersistFieldSql AddressType

PersistField AddressType

FromJSON AddressType

ToJSON AddressType

addrTypeIndex :: AddressType -> KeyIndex

data TxType

Constructors

TxIncoming

TxOutgoing

TxSelf

Instances

Eq TxType

Read TxType

Show TxType

NFData TxType

PersistFieldSql TxType

PersistField TxType

FromJSON TxType

ToJSON TxType

data TxConfidence

Constructors

TxOffline

TxDead

TxPending

TxBuilding

Instances

Eq TxConfidence

Read TxConfidence

Show TxConfidence

NFData TxConfidence

PersistFieldSql TxConfidence

PersistField TxConfidence

FromJSON TxConfidence

ToJSON TxConfidence

data AddressInfo

Constructors

AddressInfo

Fields

addressInfoAddress :: !Address

addressInfoValue :: !(Maybe Word64)

addressInfoIsLocal :: !Bool

Instances

Eq AddressInfo

Read AddressInfo

Show AddressInfo

Generic AddressInfo

Binary AddressInfo

NFData AddressInfo

FromJSON AddressInfo

ToJSON AddressInfo

PersistFieldSql [AddressInfo]

PersistField [AddressInfo]

type Rep AddressInfo

data BalanceInfo

Constructors

BalanceInfo

Fields

balanceInfoInBalance :: !Word64

balanceInfoOutBalance :: !Word64

balanceInfoCoins :: !Int

balanceInfoSpentCoins :: !Int

Instances

Eq BalanceInfo

Read BalanceInfo

Show BalanceInfo

NFData BalanceInfo

FromJSON BalanceInfo

ToJSON BalanceInfo

data WalletResponse a

Constructors

ResponseError

Fields

responseError :: !Text

ResponseValid

Fields

responseResult :: !(Maybe a)

Instances

Eq a => Eq (WalletResponse a)

Show a => Show (WalletResponse a)

FromJSON a0 => FromJSON (WalletResponse a)

ToJSON a0 => ToJSON (WalletResponse a)

data TxCompleteRes

Constructors

TxCompleteRes

Fields

txCompleteTx :: !Tx

txCompleteComplete :: !Bool

Instances

Eq TxCompleteRes

Read TxCompleteRes

Show TxCompleteRes

FromJSON TxCompleteRes

ToJSON TxCompleteRes

data ListResult a

Constructors

ListResult

Fields

listResultItems :: ![a]

listResultTotal :: !Word32

Instances

FromJSON a0 => FromJSON (ListResult a)

ToJSON a0 => ToJSON (ListResult a)

data RescanRes

Constructors

RescanRes

Fields

rescanTimestamp :: !Word32

Instances

Eq RescanRes

Read RescanRes

Show RescanRes

FromJSON RescanRes

ToJSON RescanRes

data JsonSyncBlock

Constructors

JsonSyncBlock

Fields

jsonSyncBlockHash :: !BlockHash

jsonSyncBlockHeight :: !BlockHeight

jsonSyncBlockPrev :: !BlockHash

jsonSyncBlockTxs :: ![JsonTx]

Instances

Eq JsonSyncBlock

Read JsonSyncBlock

Show JsonSyncBlock

FromJSON JsonSyncBlock

ToJSON JsonSyncBlock

data JsonBlock

Constructors

JsonBlock

Fields

jsonBlockHash :: !BlockHash

jsonBlockHeight :: !BlockHeight

jsonBlockPrev :: !BlockHash

Instances

Eq JsonBlock

Read JsonBlock

Show JsonBlock

FromJSON JsonBlock

ToJSON JsonBlock

data Notif

Constructors

NotifBlock !JsonBlock

NotifTx !JsonTx

Instances

Eq Notif

Read Notif

Show Notif

FromJSON Notif

ToJSON Notif

data WalletException

Constructors

WalletException !String

Instances

Eq WalletException

Read WalletException

Show WalletException

Exception WalletException

data BTCNode

Constructors

BTCNode

Fields

btcNodeHost :: !String

btcNodePort :: !Int

Instances

Eq BTCNode

Read BTCNode

Show BTCNode

FromJSON BTCNode

ToJSON BTCNode

Helpers

splitSelect :: (SqlSelect a r, MonadIO m) => [t] -> ([t] -> SqlQuery a) -> SqlPersistT m [r]

splitUpdate :: (MonadIO m, PersistEntity val, PersistEntityBackend val ~ SqlBackend) => [t] -> ([t] -> SqlExpr (Entity val) -> SqlQuery ()) -> SqlPersistT m ()

splitDelete :: MonadIO m => [t] -> ([t] -> SqlQuery ()) -> SqlPersistT m ()

splitInsertMany_ :: (MonadIO m, PersistEntity val, PersistEntityBackend val ~ SqlBackend) => [val] -> SqlPersistT m ()

join2 :: [SqlExpr (Value Bool)] -> SqlExpr (Value Bool)

limitOffset :: Word32 -> Word32 -> SqlQuery ()

module Network.Haskoin.Wallet.Model