module Main where import Bittrex import Control.Monad 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 $ \m -> print (marketName m) 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