Response.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from fetch (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.Response
       (js_newResponse, js_clone, js_error, js_json, js_redirect, js_getType, js_getUrl, js_getRedirected, js_getStatus, js_getOk, js_getStatusText, js_getHeaders, newResponse, clone, clone_, error, error_, json, json_, redirect, redirect_, getType, getUrl, getRedirected, getStatus, getOk, getStatusText, getHeaders, Response(..), gTypeResponse)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2) => { return new globalThis[\"Response\"]($1, $2); })"
        js_newResponse :: JSVal -> JSVal -> IO Response
-- | <https://developer.mozilla.org/docs/Web/API/Response/Response MDN Response. documentation>
newResponse :: (MonadDOM m, IsBodyInit body) => Maybe body -> Maybe ResponseInit -> m Response
newResponse body init = liftDOM (((toJSVal body) >>= \a1' -> (P.maybe (P.return jsUndefined) toJSVal init) >>= \a2' -> js_newResponse a1' a2'))

foreign import javascript safe "(($1) => { return $1[\"clone\"](); })"
        js_clone :: Response -> IO Response
-- | <https://developer.mozilla.org/docs/Web/API/Response/clone MDN Response.clone documentation>
clone :: (MonadDOM m) => Response -> m Response
clone self = liftDOM ((js_clone (self)))

-- | <https://developer.mozilla.org/docs/Web/API/Response/clone MDN Response.clone documentation>
clone_ :: (MonadDOM m) => Response -> m ()
clone_ self = liftDOM (void ((js_clone (self))))

foreign import javascript safe "(() => { return globalThis[\"Response\"][\"error\"](); })"
        js_error :: IO Response
-- | <https://developer.mozilla.org/docs/Web/API/Response/error_static MDN Response.error documentation>
error :: (MonadDOM m) => m Response
error = liftDOM ((js_error))

-- | <https://developer.mozilla.org/docs/Web/API/Response/error_static MDN Response.error documentation>
error_ :: (MonadDOM m) => m ()
error_ = liftDOM (void ((js_error)))

foreign import javascript safe "(($1, $2) => { return globalThis[\"Response\"][\"json\"]($1, $2); })"
        js_json :: JSVal -> JSVal -> IO Response
-- | <https://developer.mozilla.org/docs/Web/API/Response/json_static MDN Response.json documentation>
json :: (MonadDOM m) => JSVal -> Maybe ResponseInit -> m Response
json data' init = liftDOM (((P.maybe (P.return jsUndefined) toJSVal init) >>= \a2' -> js_json (data') a2'))

-- | <https://developer.mozilla.org/docs/Web/API/Response/json_static MDN Response.json documentation>
json_ :: (MonadDOM m) => JSVal -> Maybe ResponseInit -> m ()
json_ data' init = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal init) >>= \a2' -> js_json (data') a2')))

foreign import javascript safe "(($1, $2) => { return globalThis[\"Response\"][\"redirect\"]($1, $2); })"
        js_redirect :: JSString -> JSVal -> IO Response
-- | <https://developer.mozilla.org/docs/Web/API/Response/redirect_static MDN Response.redirect documentation>
redirect :: (MonadDOM m, ToJSString url) => url -> Maybe Word -> m Response
redirect url status = liftDOM (((P.maybe (P.return jsUndefined) toJSVal status) >>= \a2' -> js_redirect (toJSString url) a2'))

-- | <https://developer.mozilla.org/docs/Web/API/Response/redirect_static MDN Response.redirect documentation>
redirect_ :: (MonadDOM m, ToJSString url) => url -> Maybe Word -> m ()
redirect_ url status = liftDOM (void (((P.maybe (P.return jsUndefined) toJSVal status) >>= \a2' -> js_redirect (toJSString url) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"
        js_getType :: Response -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/Response/type MDN Response.type documentation>
getType :: (MonadDOM m) => Response -> m ResponseType
getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))

foreign import javascript unsafe "(($1) => { return $1[\"url\"]; })"
        js_getUrl :: Response -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/Response/url MDN Response.url documentation>
getUrl :: (MonadDOM m, FromJSString result) => Response -> m result
getUrl self = liftDOM ((fromJSString <$> (js_getUrl (self))))

foreign import javascript unsafe "(($1) => { return $1[\"redirected\"]; })"
        js_getRedirected :: Response -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/Response/redirected MDN Response.redirected documentation>
getRedirected :: (MonadDOM m) => Response -> m Bool
getRedirected self = liftDOM ((js_getRedirected (self)))

foreign import javascript unsafe "(($1) => { return $1[\"status\"]; })"
        js_getStatus :: Response -> IO Word
-- | <https://developer.mozilla.org/docs/Web/API/Response/status MDN Response.status documentation>
getStatus :: (MonadDOM m) => Response -> m Word
getStatus self = liftDOM ((js_getStatus (self)))

foreign import javascript unsafe "(($1) => { return $1[\"ok\"]; })"
        js_getOk :: Response -> IO Bool
-- | <https://developer.mozilla.org/docs/Web/API/Response/ok MDN Response.ok documentation>
getOk :: (MonadDOM m) => Response -> m Bool
getOk self = liftDOM ((js_getOk (self)))

foreign import javascript unsafe "(($1) => { return $1[\"statusText\"]; })"
        js_getStatusText :: Response -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/Response/statusText MDN Response.statusText documentation>
getStatusText :: (MonadDOM m, FromJSString result) => Response -> m result
getStatusText self = liftDOM ((fromJSString <$> (js_getStatusText (self))))

foreign import javascript unsafe "(($1) => { return $1[\"headers\"]; })"
        js_getHeaders :: Response -> IO Headers
-- | <https://developer.mozilla.org/docs/Web/API/Response/headers MDN Response.headers documentation>
getHeaders :: (MonadDOM m) => Response -> m Headers
getHeaders self = liftDOM ((js_getHeaders (self)))