You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
377 B
24 lines
377 B
8 years ago
|
{-# LANGUAGE DeriveGeneric #-}
|
||
|
|
|
||
|
|
module ATrade.MDS.Protocol (
|
||
|
|
MDSRequest(..)
|
||
|
|
) where
|
||
|
|
|
||
|
|
import GHC.Generics
|
||
|
|
|
||
|
|
import ATrade.Types
|
||
|
|
|
||
|
|
import Data.Aeson
|
||
|
|
import Data.Time.Clock
|
||
|
|
|
||
|
|
data MDSRequest = RequestData {
|
||
|
|
rqTicker :: TickerId,
|
||
|
|
rqFrom :: UTCTime,
|
||
|
|
rqTo :: UTCTime,
|
||
|
|
rqTimeframe :: Int
|
||
|
|
} deriving (Generic, Show, Eq)
|
||
|
|
|
||
|
|
instance ToJSON MDSRequest
|
||
|
|
instance FromJSON MDSRequest
|
||
|
|
|