approveapi-haskell

Haskell API bindings for the ApproveAPI HTTP API.

ApproveAPI is a simple API to request a user's real-time approval on anything via email, sms + mobile push.

Getting Started

To get started, we create a config:

importqualifiedApproveApiasA...
config <- (`A.addAuthMethod`A.AuthBasicApiKey"sk_test_yourapikeyhere""")
<$>A.newConfig 

Now we can make API calls. For example, let's send an approval prompt to confirm a financial transaction.

importqualifiedNetwork.HTTP.Client.TLSasNH...let body ="Your AcmeBank credit card was just charged $3249.99 at APPLE STORE,\\ San Francisco. Authorize this transaction?"let prompt = (A.mkCreatePromptRequest "alice@approveapi.com" body) {
A.createPromptRequestLongPoll =JustTrue,
A.createPromptRequestApproveText =Just"Authorize",
A.createPromptRequestRejectText =Just"Reject"
}
let createPromptRequest =A.createPrompt prompt
mgr <-NH.newTlsManager
createPromptResponse <-A.dispatchMime mgr config createPromptRequest
flipmapM_ createPromptResponse (\r ->caseA.promptAnswer r ofNothing->putStrLn$"No response yet"Just answer ->caseA.promptAnswerResult answer ofTrue->putStrLn$"Request approved"False->putStrLn$"Request rejected"
)

Documentation

Full documentation is available here: approveapi.com/docs.