Data.HashFlare

A simple model of HashFlare.io services

Documentation

type MEFTable = Map TypeRep (Money USD, Double)

Type representing costs for the hardware MEFs: key is algo type, value is (costs, rate quantity)

makeMEFTable :: [(TypeRep, (Money USD, Double))] -> MEFTable

Construct MEF table

type PayoutTable = Map TypeRep (Money BTC, Double)

Type representing actual (or projected) payouts wrt algo from mining pools XXX

makePayoutTable :: [(TypeRep, (Money BTC, Double))] -> PayoutTable

Construct mining payouts table

data MiningContract

HashFlare.io mining contract

Instances

Show MiningContract

Methods

showsPrec :: Int -> MiningContract -> ShowS

show :: MiningContract -> String

showList :: [MiningContract] -> ShowS

makeMiningContract :: MiningAlgorithm a => Hashrate a -> Money USD -> Int -> MiningContract

Construct a new mining contract with hashrate, cost and expiration days

makeMiningContractSimple :: MiningAlgorithm a => Hashrate a -> MiningContract

Make the contract without costs and expiration (suppose you didn't invest your money..)

data UserAccount

HashFlare.io account

Instances

Show UserAccount

Methods

showsPrec :: Int -> UserAccount -> ShowS

show :: UserAccount -> String

showList :: [UserAccount] -> ShowS

makeUserAccount :: Money BTC -> [MiningContract] -> UserAccount

Construct a new HashFlare.io user account model with start balance and the list of mining contracts

contractHashrate :: MiningContract -> Hashrate a

Hashrate provided by the contract

contractCost :: MiningContract -> Money USD

Base cost of the contract

contractExpiration :: MiningContract -> Int

Contract expiration, in days (or 0 for n/a)

contractMEF :: MEFTable -> MiningContract -> Money USD

Calculate MEF costs for the contract

contractPayout :: PayoutTable -> MiningContract -> Money BTC

Calculate contract's hashrate payout

accountBalance :: UserAccount -> Money BTC

Current account balance (in Bitcoins)

accountContracts :: UserAccount -> [MiningContract]

List of current mining contracts

userAccountMEF :: MEFTable -> UserAccount -> Money USD

Total MEF for the account (in USD)

userAccountPayout :: PayoutTable -> UserAccount -> Money BTC

Total payout for the account

infoUserAccount :: UserAccount -> String

Pretty-print info on the user account

defaultMEFTable :: MEFTable

Default HashFlare.io MEF prices (no record means no MEF)