Network.Bitcoin.BitX.Public

Usage example

As a small example, to get the current selling price of bitcoin on the BitX exchange, do the following:

{-# LANGUAGE QuasiQuotes #-}

import Record.Lens (view)
import Record (lens)
import Network.Bitcoin.BitX (BitXAPIResponse(..), getTicker, CcyPair(..))
import Data.Text (unpack)
import Network.HTTP.Types.Status (Status(..))
import Network.HTTP.Conduit (responseStatus)

main :: IO ()
main = do
  bitXResponse <- getTicker XBTZAR
  case bitXResponse of
    ValidResponse tic        -> print (view [lens| ask |] tic)
    ErrorResponse err        ->
        error $ "BitX error received: "" ++ (unpack (view [lens| error |] err)) ++ """
    ExceptionResponse ex     ->
        error $ "Exception was thrown: "" ++ (unpack ex) ++ """
    UnparseableResponse resp ->
        error $ "Bad HTTP response; HTTP status code was: ""
                  ++ (show . statusCode . responseStatus $ resp) ++ """
 

Documentation

getTicker :: CcyPair -> IO (BitXAPIResponse Ticker)

Returns the latest ticker indicators.

getTickers :: IO (BitXAPIResponse [Ticker])

Returns the latest ticker indicators from all active BitX exchanges.

getOrderBook :: CcyPair -> IO (BitXAPIResponse Orderbook)

Returns a list of bids and asks in the order book.

Ask orders are sorted by price ascending. Bid orders are sorted by price descending. Note that multiple orders at the same price are not necessarily conflated.

getTrades :: CcyPair -> IO (BitXAPIResponse [Trade])

Returns a list of the most recent trades