Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/cdepillabout/yahoo-finance-api
Haskell wrapper for Yahoo Finance API
https://github.com/cdepillabout/yahoo-finance-api
haskell yahoo-finance-apis
Last synced: about 2 months ago
JSON representation
Haskell wrapper for Yahoo Finance API
- Host: GitHub
- URL: https://github.com/cdepillabout/yahoo-finance-api
- Owner: cdepillabout
- License: bsd-3-clause
- Created: 2016-07-02T06:02:46.000Z (over 8 years ago)
- Default Branch: master
- Last Pushed: 2017-11-26T04:10:14.000Z (about 7 years ago)
- Last Synced: 2024-04-24T05:03:44.162Z (9 months ago)
- Topics: haskell, yahoo-finance-apis
- Language: Haskell
- Homepage: https://hackage.haskell.org/package/yahoo-finance-api
- Size: 57.6 KB
- Stars: 7
- Watchers: 6
- Forks: 1
- Open Issues: 1
-
Metadata Files:
- Readme: README.md
- Changelog: ChangeLog.md
- License: LICENSE
Awesome Lists containing this project
README
Web.Yahoo.Finance
=================
[](http://travis-ci.org/cdepillabout/yahoo-finance-api)
[](https://hackage.haskell.org/package/yahoo-finance-api)
[](http://stackage.org/lts/package/yahoo-finance-api)
[](http://stackage.org/nightly/package/yahoo-finance-api)
*UPDATE*: It appears that Yahoo disabled the quote API this package is using. This package is no longer usable. See [this issue](https://github.com/cdepillabout/yahoo-finance-api/issues/5).
This Haskell module exports functions for reading stock quotes from the Yahoo Finance APIs.
## Usage
Currently, only the Yahoo Finance YQL API is implemented. It can be
accessed with methods in
[Web.Yahoo.Finance.YQL](https://hackage.haskell.org/package/yahoo-finance-api/docs/Web-Yahoo-Finance-YQL.html).
(**Note:** The following usage example only works when using `servant-0.9`.)
```haskell
λ> :set -XOverloadedStrings
λ> import Network.HTTP.Client.TLS (getGlobalManager)
λ> import Servant.Client (ClientEnv(ClientEnv), runClientM)
λ> import Web.Yahoo.Finance.YQL (StockSymbol(StockSymbol), YQLQuery(YQLQuery), getQuotes, yahooFinanceJsonBaseUrl)
λ> manager <- getGlobalManager
λ> res <- runClientM (getQuotes (YQLQuery [StockSymbol "GOOG", StockSymbol "AA"]) ) (ClientEnv manager yahooFinanceJsonBaseUrl)
λ> print res
```
This produces output like the following:
```
Right
( YQLResponse
{ responseCount = 2
, responseCreated = 2016-10-09 13:44:49 UTC
, responseLang = "en-US"
, responseQuotes =
[ Just
( Quote
{ quoteAverageDailyVolume = "1296480"
, quoteChange = "-1.78"
, quoteDaysLow = "770.75"
, quoteDaysHigh = "779.66"
, quoteYearLow = "639.01"
, quoteYearHigh = "789.87"
, quoteMarketCapitalization = "532.69B"
, quoteLastTradePriceOnly = "775.08"
, quoteDaysRange = "770.75 - 779.66"
, quoteName = "Alphabet Inc."
, quoteSymbol = "GOOG"
, quoteVolume = "933158"
, quoteStockExchange = "NMS"
}
)
, Just
(Quote
{ quoteAverageDailyVolume = "5999180"
, quoteChange = "-0.41"
, quoteDaysLow = "31.03"
, quoteDaysHigh = "32.10"
, quoteYearLow = "18.42"
, quoteYearHigh = "34.50"
, quoteMarketCapitalization = "41.26B"
, quoteLastTradePriceOnly = "31.37"
, quoteDaysRange = "31.03 - 32.10"
, quoteName = "Alcoa Inc. Common Stock"
, quoteSymbol = "AA"
, quoteVolume = "7858603"
, quoteStockExchange = "NYQ"
}
)
]
}
)
```
For other examples refer to `test/Web/Yahoo/FinanceSpec.hs`.