module GetData where
import Control.Applicative
import Control.Monad (mzero)
import Network.HTTP.Conduit
import Data.Text
import qualified Data.ByteString.Lazy as L
import qualified Data.Aeson as A
data BitcoinData = BitcoinData {
ask :: Maybe Double,
avg :: Maybe Double,
bid :: Maybe Double,
close :: Maybe Double,
currency :: Text,
currency_volumen :: Maybe Double,
high :: Maybe Double,
latest_trade :: Maybe Double,
low :: Maybe Double,
symbol :: Text,
volumen :: Maybe Double
} deriving (Show, Read, Eq, Ord)
instance A.FromJSON BitcoinData where
parseJSON (A.Object v) = BitcoinData <$>
v A..: "ask" <*>
v A..: "avg" <*>
v A..: "bid" <*>
v A..: "close" <*>
v A..: "currency" <*>
v A..: "currency_volumen" <*>
v A..: "high" <*>
v A..: "latest_trade" <*>
v A..: "low" <*>
v A..: "symbol" <*>
v A..: "volumen"
parseJSON _ = mzero
getJSON :: IO BitcoinData
getJSON = do
json <- simpleHttp "http://api.bitcoincharts.com/v1/markets.json"
return $ A.decode json::(Maybe BitcoinData)
