bittrex-0.4.0.0: example/Main.hs

module Main where

import           Bittrex
import           Control.Monad
import           Data.Text     (Text)
import qualified Data.Text.IO  as T

main :: IO ()
main = do
  [api,secret] <- lines <$> readFile "/Users/david/.bittrex"
  let keys = APIKeys api secret

  -- Public Usage
  putStrLn "Markets"
  Right ms <- getMarkets
  forM_ ms (print . marketName)

  putStrLn "Currencies"
  Right cs <- getCurrencies
  mapM_ print cs

  putStrLn "Ticker for BTC-DOGE market"
  t <- getTicker BTC_DOGE
  print t

  putStrLn "Summary of BTC-DOGE market"
  Right t <- getMarketSummary BTC_DOGE
  print t

  putStrLn "Get market summaries"
  Right t <- getMarketSummaries
  print t

  putStrLn "Order book sells for for BTC-DOGE market"
  book <- getOrderBookSells BTC_DOGE
  print book

  putStrLn "Order book buys for for BTC-DOGE market"
  book <- getOrderBookBuys BTC_DOGE
  print book

  putStrLn "Market history for BTC-DOGE"
  Right history <- getMarketHistory BTC_DOGE
  forM_ history print

  -- Market usage
  putStrLn "Retrieve your open orders"
  Right openOrders <- getOpenOrders keys BTC_DOGE
  forM_ openOrders print

  -- Account usage,
  putStrLn "Check your balances (for all currencies)"
  Right balances <- getBalances keys
  forM_ balances print