Polyform.Validators.Affjax

type HttpErrorRow (err :: Row Type) = (wrongHttpStatus :: StatusCode | err)

type AffjaxErrorRow (err :: Row Type) = (remoteError :: String | err)

type JsonErrorRow (err :: Row Type) = (parsingError :: String | err)

affjax :: forall err a. (Response a) -> Validation Aff (Array (Variant (AffjaxErrorRow err))) AffjaxRequest (AffjaxResponse a)

status :: forall res err m. Monad m => (StatusCode -> Boolean) -> Validation m (Array (Variant (HttpErrorRow err))) (AffjaxResponse res) res

isStatusOK :: StatusCode -> Boolean

jsonFromRequest :: forall err. Validation Aff (Array (Variant (HttpErrorRow (AffjaxErrorRow (JsError err))))) AffjaxRequest (Object Json)

valJson :: forall err m. Monad m => Validation m (Array (Variant (JsonErrorRow err))) String Json

affjaxJson :: forall errs. Validation Aff (Array (Variant (HttpErrorRow (AffjaxErrorRow (JsonErrorRow errs))))) AffjaxRequest Json