THIS PROJECT IS NO LONGER MAINTAINED

August 27, 2017 ยท View on GitHub

Build Status Bower version devDependency Status

XMLHttpRequest binding for purescript.

USAGE

GET request

please read Module documentation if you want to know about other hooks.

getQuery = get defaultAjaxOptions
  { onReadyStateChange = onSuccess $ \response -> do
      txt <- getResponseText response
      Debug.Trace.trace txt
  } "/api/foo" {queryParam: "bar"}

POST request with application/x-www-form-urlencoded

postQuery1 = post defaultAjaxOptions
  { onReadyStateChange = onSuccess $ \response -> do
      txt <- getResponseText response
      Debug.Trace.trace txt
  } "/api/bar" {} (urlEncoded {param: "bar"})

POST request with multipart/form-data

postQuery2 = post defaultAjaxOptions
  { onReadyStateChange = onSuccess $ \response -> do
      txt <- getResponseText response
      Debug.Trace.trace txt
  } "/api/bar" {} (multipart {param: "bar"})

Abort request

abortQuery = do
  task <- get defaultAjaxOptions "/api/foo" {}
  abort task

Sync request

syncQuery = do
  task <- get defaultAjaxOptions { async = false } "/api/baz" {}
  txt  <- getResponseText (unsafeToResponsege task)
  Debug.Trace.trace txt

Other request

delete = ajax defaultAjaxOptions
  { method = "DELETE"
  , url    = "/api/qux"
  } {} noBody