1 {-# LANGUAGE FlexibleContexts #-}
2 -- |Request for new-style market data, without ambiguous keys
3 module Cryptsy
.API
.Public
.MarketData
.New
5 , module Cryptsy
.API
.Public
.Types
.MarketData
6 , module Cryptsy
.API
.Public
.Types
.Monad
11 import Data
.Aeson
(FromJSON
(..))
14 import Cryptsy
.API
.Public
.Internal
15 import Cryptsy
.API
.Public
.Types
.MarketData
16 import Cryptsy
.API
.Public
.Types
.Monad
18 marketdatav2URL
:: String
19 marketdatav2URL
= pubURL
"marketdatav2"
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 #-}