Net.Stocks

Synopsis

• data Stock = Stock {
  • company :: String
  • latestPrice :: Float
  • latestTime :: String
  • changePercent :: Float
  }
• data Financials = Financials {
  • reportDate :: String
  • grossProfit :: Int
  • costOfRevenue :: Int
  • cashFlow :: Int
  }
• newtype FinancialsList = FinancialsList {
  • financialsList :: NonEmpty Financials
  }
• data QueryType
  • = QueryStocks
  • | QueryFinancials
  • | QueryPeers
  • | QueryPrice
• type Company = String
• stocksQuery :: Company -> String
• financialsQuery :: Company -> String
• peersQuery :: Company -> String
• priceQuery :: Company -> String
• getData :: FromJSON a => String -> QueryType -> IO (Maybe a)
• getNonJSONData :: String -> QueryType -> IO ByteString

Documentation