{-# LANGUAGE OverloadedStrings #-}
module Api
( getCurrencies
, getPersonalInfo
, getPersonalStatement
, getPersonalStatementFull
) where
import Data.Aeson
import qualified Data.ByteString.Char8 as B
import qualified Data.ByteString.Lazy.Char8 as BL
import qualified Data.Text as T
import Network.HTTP.Conduit (simpleHttp)
import Types
import Utils
endpoint :: T.Text
endpoint = "https://api.monobank.ua"
getCurrencies :: IO [CurrencyPair]
getCurrencies = do
let path = T.concat [endpoint, "/bank/currency"]
resp <- simpleHttp (T.unpack path)
let res = eitherDecode resp
case res of
Left err -> do
putStrLn err
return $ []
Right val -> do
return $ val
getPersonalInfo = undefined
getPersonalStatement = undefined
getPersonalStatementFull = undefined