module Mollie.API.Issuers
( issuersPath
, getIssuer
, getIssuers
, PaymentMethod (..)
, Issuer (..)
, ListLinks (..)
, List (..)
, ResponseError (..)
) where
import Data.Monoid
import qualified Data.Text as Text
import Mollie.API.Internal
import Mollie.API.Types
issuersPath :: Text.Text
issuersPath = "issuers"
getIssuer :: Text.Text
-> Mollie (Either ResponseError Issuer)
getIssuer issuerId = get path
where
path = (Text.intercalate "/" [issuersPath, issuerId])
getIssuers :: Int
-> Int
-> Mollie (Either ResponseError (List Issuer))
getIssuers offset count = get path
where
path = issuersPath <> query
query = "?offset=" <> showT offset <> "&count=" <> showT count