FetchEvent.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from service-workers (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.FetchEvent
       (js_newFetchEvent, js_respondWith, js_getRequest, js_getPreloadResponse, js_getClientId, js_getResultingClientId, js_getHandled, newFetchEvent, respondWith, getRequest, getPreloadResponse, getClientId, getResultingClientId, getHandled, FetchEvent(..), gTypeFetchEvent)
       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[\"FetchEvent\"]($1, $2); })"
        js_newFetchEvent :: JSString -> FetchEventInit -> IO FetchEvent
-- | <https://developer.mozilla.org/docs/Web/API/FetchEvent/FetchEvent MDN FetchEvent. documentation>
newFetchEvent :: (MonadDOM m, ToJSString type') => type' -> FetchEventInit -> m FetchEvent
newFetchEvent type' eventInitDict = liftDOM ((js_newFetchEvent (toJSString type') (eventInitDict)))

foreign import javascript safe "(($1, $2) => { return $1[\"respondWith\"]($2); })"
        js_respondWith :: FetchEvent -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/FetchEvent/respondWith MDN FetchEvent.respondWith documentation>
respondWith :: (MonadDOM m) => FetchEvent -> JSVal -> m ()
respondWith self r = liftDOM (void (((toJSVal r) >>= \a2' -> js_respondWith (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"request\"]; })"
        js_getRequest :: FetchEvent -> IO Request
-- | <https://developer.mozilla.org/docs/Web/API/FetchEvent/request MDN FetchEvent.request documentation>
getRequest :: (MonadDOM m) => FetchEvent -> m Request
getRequest self = liftDOM ((js_getRequest (self)))

foreign import javascript interruptible "(($1, $c) => { return $1[\"preloadResponse\"].then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_getPreloadResponse :: FetchEvent -> IO (JSVal, JSVal)
-- | <https://developer.mozilla.org/docs/Web/API/FetchEvent/preloadResponse MDN FetchEvent.preloadResponse documentation>
getPreloadResponse :: (MonadDOM m) => FetchEvent -> m JSVal
getPreloadResponse self = liftDOM (((js_getPreloadResponse (self)) >>= checkPromiseResult))

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

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

foreign import javascript interruptible "(($1, $c) => { return $1[\"handled\"].then(function(s) { $c(null, s);}, function(e) { $c(e, null);}); })"
        js_getHandled :: FetchEvent -> IO (JSVal, ())
-- | <https://developer.mozilla.org/docs/Web/API/FetchEvent/handled MDN FetchEvent.handled documentation>
getHandled :: (MonadDOM m) => FetchEvent -> m ()
getHandled self = liftDOM (void (((js_getHandled (self)) >>= checkPromiseResult)))