Hackage :: [Package]

paynow-zw: A Haskell wrapper for the Paynow payment gateway

[ bsd3, library, payments ] [ Propose Tags ]

Modules

  • Network
    • Payments
      • Network.Payments.Paynow

Downloads

Maintainer's Corner

Package maintainers

For package maintainers and hackage trustees

Candidates

Versions [RSS] 0.1.0.0
Change log CHANGELOG.md
Dependencies base (>=4.7 && <5), bytestring (>=0.10.12 && <0.11), containers (>=0.6.5 && <0.7), cryptohash (>=0.11.9 && <0.12), HTTP (>=4000.4.1 && <4000.5), http-conduit (>=2.3.8 && <2.4), http-types (>=0.12.3 && <0.13), text (>=1.2.4 && <1.3), unliftio (>=0.2.22 && <0.3) [details]
License BSD-3-Clause
Copyright 2022 Trevor Sibanda
Author Trevor Sibanda
Maintainer sibandatrevor@gmail.com
Category payments
Home page https://github.com/trevorsibanda/paynow-zw#readme
Bug tracker https://github.com/trevorsibanda/paynow-zw/issues
Source repo head: git clone https://github.com/trevorsibanda/paynow-zw
Uploaded by trevorsibanda at 2022-12-28T15:38:32Z
Distributions
Downloads 81 total (3 in the last 30 days)
Rating (no votes yet) [estimated by Bayesian average]
Your Rating
  • λ
  • λ
  • λ
Status Docs not available [build log]
All reported builds failed as of 2022-12-28 [all 2 reports]

Readme for paynow-zw-0.1.0.0

[back to package description]

Paynow Zimbabwe Haskell SDK

Haskell SDK for Paynow Zimbabwe's API

Prerequisites

This library has a set of prerequisites that must be met for it to work

{-# LANGUAGE OverloadedStrings #-}
import Network.Payments.Paynow as Paynow

	# Do stuff

Usage example

defaultConfig :: PaynowConfig
defaultConfig = defaultProdConfig "1201"
                    "3e9fed89-60e1-4ce5-ab6e-6b1eb2d4f977"
                    "http://localhost:3000/result"
                    "http://localhost:3000/return"

....
client <- newPaynowClient config
payment <- newExpressCheckout (Ecocash "0779800700") "45" 37.50 "email" Nothing
result <- processTx payment
case result of
   Left e => //handle err
   Right r => //handle result r :: PaynowTxResult

Create a new payment passing in the reference for that payment (e.g invoice id, or anything that you can use to identify the transaction and the user's email address

Express Transactions

testVMCDetails :: VMC
testVMCDetails = VMC (Card "4111111111111111" "588" "2023" "Trevor Sibanda") (BillingAddress "Address Line 1" "Line 2" "City" "Zimbabwe" Nothing)


payment <- newExpressCheckout client (OneMoney "0783102754") testRef testAmount testEmail Nothing

payment <- newExpressCheckout client (Ecocash "0715900800") testRef testAmount testEmail Nothing

payment <- newExpressCheckout client (VisaMastercard testVMCDetails) testRef testAmount testEmail Nothing

Checking transaction status

The SDK exposes a handy method that you can use to check the status of a transaction. Once you have instantiated the Paynow class.

tx <- newPollTransaction "https://www.paynow.co.zw/Interface/CheckPayment/?guid=dece867e-5a40-4961-bf0e-5d691c2a97f8"
processtx tx >>= print