iexcloud-0.0.0.1: src/Net/IEX/RecentStats.hs

{-# LANGUAGE DeriveGeneric #-}

module Net.IEX.RecentStats (RecentStats(..)) where

import Data.Either
import Data.Maybe
import Data.Aeson
import GHC.Generics

data RecentStats = RecentStats {
  date :: String,
  volume :: Integer,
  routedVolume :: Integer,
  marketShare :: Double,
  isHalfday :: Bool,
  litVolume :: Integer
} deriving (Generic, Show, Eq)

instance ToJSON RecentStats
instance FromJSON RecentStats