ConnexPay is a credit card payment processing provider.
Here is a short example:
let logf msg = Text.putStrLn ("Connexpay log: " <> msg) cc = CreditCard ... amount = Money @USD 5.00 vendor = Just "Best vendor out there" httpmgr <- tlsManager pay <- initConnexpay logf httpmgr deviceGuid cpHost True login password runConnexpay pay $ do sale <- authorisePayment cc amount vendor capturePayment sale.paymentGuid
For more information, see Haddock docs.
NOTE: ‘PaymentError’ type isn’t used yet, but it will after more testing. Connexpay test environment doesn’t seem to report errors adequately.
Credit card sales API: https://docs.connexpay.com/reference/credit-card-sales