src/Cryptsy/API/Public/MarketData/New.hs

   1 {-# LANGUAGE FlexibleContexts #-}
   2 -- |Request for new-style market data, without ambiguous keys
   3 module Cryptsy.API.Public.MarketData.New
   4         ( marketData
   5         , module Cryptsy.API.Public.Types.MarketData
   6         , module Cryptsy.API.Public.Types.Monad
   7         )
   8 where
   9
  10 -- aeson
  11 import Data.Aeson (FromJSON(..))
  12
  13 -- this pacakge
  14 import Cryptsy.API.Public.Internal
  15 import Cryptsy.API.Public.Types.MarketData
  16 import Cryptsy.API.Public.Types.Monad
  17
  18 marketdatav2URL :: String
  19 marketdatav2URL = pubURL "marketdatav2"
  20
  21 -- |Request all markets.
  22 marketData :: FromJSON (GMarketData p q dt t)
  23            => PubCryptsy (GMarketData p q dt t)
  24 marketData = pubCryptsy marketdatav2URL $ onMarkets parseJSON
  25 {-# INLINABLE marketData #-}