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

   1 {-# LANGUAGE FlexibleContexts #-}
   2 -- |Request for market data in old format, with ambiguous keys
   3 module Cryptsy.API.Public.MarketData.Old
   4         ( oldMarketData
   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 marketdataURL :: String
  19 marketdataURL = pubURL "marketdata"
  20
  21 -- |Request all markets in old format.
  22 oldMarketData :: FromJSON (GMarketData p q dt t)
  23            => PubCryptsy (GMarketData p q dt t)
  24 oldMarketData = pubCryptsy marketdataURL $ onMarkets parseJSON
  25 {-# INLINABLE oldMarketData #-}