Safe Haskell	None
Language	Haskell2010

CryptoCompare

Description

A haskell wrapper for the cryptocompare API, a source of information and pricing of different crypto currencies

module Main (main) where

import CryptoCompare

main :: IO ()
main = do
  coinList <- fetchCoinList
  either print (print . length) coinList
  either print (print . head) coinList
  priceResp <- fetchCurrentPrice "BTC" ["USD", "EUR", "BTC"]
  print priceResp
  priceHistResp <- fetchDailyPriceHistory "BTC" "USD" 300
  print priceHistResp
  snapshotResp <- fetchCoinSnapshot "BTC" "USD"
  print snapshotResp

Synopsis

fetchCoinList :: MonadIO m => m (Either String [CoinDetails])
fetchCurrentPrice :: MonadIO m => String -> [String] -> m (Either String PriceResponse)
fetchDailyPriceHistory :: MonadIO m => String -> String -> Integer -> m (Either String PriceHistoryResponse)
fetchCoinSnapshot :: MonadIO m => String -> String -> m (Either String CoinSnapshot)
data CoinDetails = CoinDetails {
- _key :: String
- id :: String
- url :: String
- imageUrl :: Maybe String
- name :: String
- coinName :: String
- fullName :: String
- algorithm :: String
- proofType :: String
- sortOrder :: String
}
data PriceHistoryResponse = PriceHistoryResponse {
- responseData :: [PriceHistoryResponseData]
- timeTo :: Maybe Integer
- timeFrom :: Maybe Integer
}
data PriceHistoryResponseData = PriceHistoryResponseData {
- time :: Float
- open :: Float
- high :: Float
- low :: Float
- close :: Float
- volumefrom :: Float
- volumeto :: Float
}
data CoinSnapshot = CoinSnapshot {
- snapshotAlgorithm :: String
- snapshotProofType :: String
- blockNumber :: Integer
- netHashesPerSecond :: Float
- totalCoinsMined :: Float
- blockReward :: Float
- aggregatedSnapshotData :: AggregatedSnapshot
}
data AggregatedSnapshot = AggregatedSnapshot {
- market :: String
- fromSymbol :: String
- toSymbol :: String
- flags :: String
- price :: Float
- lastUpdate :: Integer
- lastVolume :: Float
- lastVolumeto :: Float
- lastTradeId :: String
- volume24Hour :: Float
- volume24HourTo :: Float
- open24Hour :: Float
- high24Hour :: Float
- low24Hour :: Float
- lastMarket :: String
}
newtype PriceResponse = PriceResponse (Map String Float)

Documentation

fetchCoinList :: MonadIO m => m (Either String [CoinDetails]) #

Get a list of all of the coins the API is aware of, and high level details about those coins

do
  coinList <- fetchCoinList
  either print (print . length) coinList
  either print (print . head) coinList

fetchCurrentPrice #

Arguments

:: MonadIO m
=> String	Coin symbol (`BTC`, `ETH`, etc)
-> [String]	Currency symbol(s) to display prices in. Eg [`USD`, `EUR`, ...]
-> m (Either String PriceResponse)	Either an error or response data

For a given coin, get the current price

do
  priceResp <- fetchCurrentPrice "BTC" ["USD", "EUR", "BTC"]
  print priceResp

fetchDailyPriceHistory #

Arguments

:: MonadIO m
=> String	Coin symbol (`BTC`, `ETH`, etc)
-> String	Currency symbol to display prices in (`USD`, `EUR`, etc)
-> Integer	Days of history to return (Max 2000)
-> m (Either String PriceHistoryResponse)	Either an error or response data

For a given coin, get a daily history of the coin's price

do
  priceHistResp <- fetchDailyPriceHistory "BTC" "USD" 300
  print priceHistResp

fetchCoinSnapshot #

Arguments

:: MonadIO m
=> String	Coin symbol (`BTC`, `ETH`, etc)
-> String	Currency symbol(s) to display prices in (`USD`, `EUR`, etc)
-> m (Either String CoinSnapshot)	Either an error or response data

Fetch details about a particular coin

do
 snapshotResp <- fetchCoinSnapshot "BTC" "USD"
 print snapshotResp

data CoinDetails #

High level information about each coin.

Constructors

CoinDetails
Fields _key :: String id :: String url :: String imageUrl :: Maybe String name :: String coinName :: String fullName :: String algorithm :: String proofType :: String sortOrder :: String

Instances

Show CoinDetails #
Instance details Defined in CryptoCompare Methods showsPrec :: Int -> CoinDetails -> ShowS # show :: CoinDetails -> String # showList :: [CoinDetails] -> ShowS #
Generic CoinDetails #
Instance details Defined in CryptoCompare Associated Types type Rep CoinDetails :: * -> * # Methods from :: CoinDetails -> Rep CoinDetails x # to :: Rep CoinDetails x -> CoinDetails #
FromJSON [CoinDetails] #
Instance details Defined in CryptoCompare Methods parseJSON :: Value -> Parser [CoinDetails] # parseJSONList :: Value -> Parser [[CoinDetails]] #
type Rep CoinDetails #
Instance details Defined in CryptoCompare type Rep CoinDetails = D1 (MetaData "CoinDetails" "CryptoCompare" "cryptocompare-0.1.1-GBl3CjuDW2ED60TDHYzhAg" False) (C1 (MetaCons "CoinDetails" PrefixI True) (((S1 (MetaSel (Just "_key") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String) :: S1 (MetaSel (Just "id") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String)) :: (S1 (MetaSel (Just "url") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String) :: (S1 (MetaSel (Just "imageUrl") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe String)) :: S1 (MetaSel (Just "name") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String)))) :: ((S1 (MetaSel (Just "coinName") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String) :: S1 (MetaSel (Just "fullName") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String)) :: (S1 (MetaSel (Just "algorithm") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String) :: (S1 (MetaSel (Just "proofType") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String) :*: S1 (MetaSel (Just "sortOrder") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String))))))

data PriceHistoryResponse #

API response container for daily price history

Constructors

PriceHistoryResponse
Fields responseData :: [PriceHistoryResponseData] the actual response, list of price entries timeTo :: Maybe Integer latest price returned timeFrom :: Maybe Integer earliest price returned

Instances

Show PriceHistoryResponse #
Instance details Defined in CryptoCompare Methods showsPrec :: Int -> PriceHistoryResponse -> ShowS # show :: PriceHistoryResponse -> String # showList :: [PriceHistoryResponse] -> ShowS #
Generic PriceHistoryResponse #
Instance details Defined in CryptoCompare Associated Types type Rep PriceHistoryResponse :: * -> * # Methods from :: PriceHistoryResponse -> Rep PriceHistoryResponse x # to :: Rep PriceHistoryResponse x -> PriceHistoryResponse #
FromJSON PriceHistoryResponse #
Instance details Defined in CryptoCompare Methods parseJSON :: Value -> Parser PriceHistoryResponse # parseJSONList :: Value -> Parser [PriceHistoryResponse] #
type Rep PriceHistoryResponse #
Instance details Defined in CryptoCompare type Rep PriceHistoryResponse = D1 (MetaData "PriceHistoryResponse" "CryptoCompare" "cryptocompare-0.1.1-GBl3CjuDW2ED60TDHYzhAg" False) (C1 (MetaCons "PriceHistoryResponse" PrefixI True) (S1 (MetaSel (Just "responseData") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 [PriceHistoryResponseData]) :: (S1 (MetaSel (Just "timeTo") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe Integer)) :: S1 (MetaSel (Just "timeFrom") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe Integer)))))

data PriceHistoryResponseData #

Data for a particular snapshot of a coin's daily price

Constructors

PriceHistoryResponseData
Fields time :: Float open :: Float high :: Float low :: Float close :: Float volumefrom :: Float volumeto :: Float

Instances

Show PriceHistoryResponseData #
Instance details Defined in CryptoCompare Methods showsPrec :: Int -> PriceHistoryResponseData -> ShowS # show :: PriceHistoryResponseData -> String # showList :: [PriceHistoryResponseData] -> ShowS #
Generic PriceHistoryResponseData #
Instance details Defined in CryptoCompare Associated Types type Rep PriceHistoryResponseData :: * -> * # Methods from :: PriceHistoryResponseData -> Rep PriceHistoryResponseData x # to :: Rep PriceHistoryResponseData x -> PriceHistoryResponseData #
FromJSON PriceHistoryResponseData #
Instance details Defined in CryptoCompare Methods parseJSON :: Value -> Parser PriceHistoryResponseData # parseJSONList :: Value -> Parser [PriceHistoryResponseData] #
type Rep PriceHistoryResponseData #
Instance details Defined in CryptoCompare type Rep PriceHistoryResponseData = D1 (MetaData "PriceHistoryResponseData" "CryptoCompare" "cryptocompare-0.1.1-GBl3CjuDW2ED60TDHYzhAg" False) (C1 (MetaCons "PriceHistoryResponseData" PrefixI True) ((S1 (MetaSel (Just "time") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Float) :: (S1 (MetaSel (Just "open") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Float) :: S1 (MetaSel (Just "high") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Float))) :: ((S1 (MetaSel (Just "low") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Float) :: S1 (MetaSel (Just "close") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Float)) :: (S1 (MetaSel (Just "volumefrom") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Float) :: S1 (MetaSel (Just "volumeto") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Float)))))

data CoinSnapshot #

High level data about a particular coin

Constructors

CoinSnapshot
Fields snapshotAlgorithm :: String snapshotProofType :: String blockNumber :: Integer netHashesPerSecond :: Float totalCoinsMined :: Float blockReward :: Float aggregatedSnapshotData :: AggregatedSnapshot

Instances

Show CoinSnapshot #
Instance details Defined in CryptoCompare Methods showsPrec :: Int -> CoinSnapshot -> ShowS # show :: CoinSnapshot -> String # showList :: [CoinSnapshot] -> ShowS #
FromJSON CoinSnapshot #
Instance details Defined in CryptoCompare Methods parseJSON :: Value -> Parser CoinSnapshot # parseJSONList :: Value -> Parser [CoinSnapshot] #

data AggregatedSnapshot #

Aggregated data about a particular coin

Constructors

AggregatedSnapshot
Fields market :: String fromSymbol :: String toSymbol :: String flags :: String price :: Float lastUpdate :: Integer lastVolume :: Float lastVolumeto :: Float lastTradeId :: String volume24Hour :: Float volume24HourTo :: Float open24Hour :: Float high24Hour :: Float low24Hour :: Float lastMarket :: String

Instances

Show AggregatedSnapshot #
Instance details Defined in CryptoCompare Methods showsPrec :: Int -> AggregatedSnapshot -> ShowS # show :: AggregatedSnapshot -> String # showList :: [AggregatedSnapshot] -> ShowS #
FromJSON AggregatedSnapshot #
Instance details Defined in CryptoCompare Methods parseJSON :: Value -> Parser AggregatedSnapshot # parseJSONList :: Value -> Parser [AggregatedSnapshot] #

newtype PriceResponse #

contains pairs of prices: crypto symbol -> (regular currency symbol, price)

Constructors

PriceResponse (Map String Float)

Instances

Show PriceResponse #
Instance details Defined in CryptoCompare Methods showsPrec :: Int -> PriceResponse -> ShowS # show :: PriceResponse -> String # showList :: [PriceResponse] -> ShowS #
Generic PriceResponse #
Instance details Defined in CryptoCompare Associated Types type Rep PriceResponse :: * -> * # Methods from :: PriceResponse -> Rep PriceResponse x # to :: Rep PriceResponse x -> PriceResponse #
FromJSON PriceResponse #
Instance details Defined in CryptoCompare Methods parseJSON :: Value -> Parser PriceResponse # parseJSONList :: Value -> Parser [PriceResponse] #
type Rep PriceResponse #
Instance details Defined in CryptoCompare type Rep PriceResponse = D1 (MetaData "PriceResponse" "CryptoCompare" "cryptocompare-0.1.1-GBl3CjuDW2ED60TDHYzhAg" True) (C1 (MetaCons "PriceResponse" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Map String Float))))