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.
This repo provides a command line tool to quickly test the API. You can run it with stack run.
Examples:
stack run -- -c ./config.yaml auth CARDNUMBER "NAME" MMYY CVV SUMstack run -- -c ./config.yaml capture SALEGUIDstack run -- -c ./config.yaml void-auth AUTHONLYGUIDstack run -- -c ./config.yaml void-sale SALEGUIDstack run -- -c ./config.yaml void-sale SALEGUID SUMstack run -- -c ./config.yaml cancel SALEGUIDstack run -- -c ./config.yaml return SALEGUIDstack run -- -c ./config.yaml return SALEGUID SUM
Configuration file must include the values provided to you by Connexpay:
login: <login> password: <password> device_guid: <device guid> host: <hostname> use_tls: true # Whether or not to use TLS connection proxy_host: 127.0.0.1 # Optional, if you want to proxy your requests for debugging purposes proxy_port: 8080
Credit card sales API: https://docs.connexpay.com/reference/credit-card-sales