philopon / purescript-xhr

simple XMLHttpRequest wrapper for purescript.

THIS PROJECT IS NO LONGER MAINTAINED

purescript-xhr

XMLHttpRequest binding for purescript.

• Module documentation

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