Origin.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.Origin
       (js_newOrigin, js_isSameOrigin, js_isSameSite, js_from, js_getOpaque, newOrigin, isSameOrigin, isSameOrigin_, isSameSite, isSameSite_, from, from_, getOpaque, Origin(..), gTypeOrigin)
       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 "(() => { return new globalThis[\"Origin\"](); })"
        js_newOrigin :: IO Origin
newOrigin :: (MonadDOM m) => m Origin
newOrigin = liftDOM ((js_newOrigin))

foreign import javascript safe "(($1, $2) => { return $1[\"isSameOrigin\"]($2); })"
        js_isSameOrigin :: Origin -> Origin -> IO Bool
-- | <https://html.spec.whatwg.org/multipage/browsers.html#dom-origin-issameorigin Origin.isSameOrigin specification>
isSameOrigin :: (MonadDOM m) => Origin -> Origin -> m Bool
isSameOrigin self other = liftDOM ((js_isSameOrigin (self) (other)))

-- | <https://html.spec.whatwg.org/multipage/browsers.html#dom-origin-issameorigin Origin.isSameOrigin specification>
isSameOrigin_ :: (MonadDOM m) => Origin -> Origin -> m ()
isSameOrigin_ self other = liftDOM (void ((js_isSameOrigin (self) (other))))

foreign import javascript safe "(($1, $2) => { return $1[\"isSameSite\"]($2); })"
        js_isSameSite :: Origin -> Origin -> IO Bool
-- | <https://html.spec.whatwg.org/multipage/browsers.html#dom-origin-issamesite Origin.isSameSite specification>
isSameSite :: (MonadDOM m) => Origin -> Origin -> m Bool
isSameSite self other = liftDOM ((js_isSameSite (self) (other)))

-- | <https://html.spec.whatwg.org/multipage/browsers.html#dom-origin-issamesite Origin.isSameSite specification>
isSameSite_ :: (MonadDOM m) => Origin -> Origin -> m ()
isSameSite_ self other = liftDOM (void ((js_isSameSite (self) (other))))

foreign import javascript safe "(($1) => { return globalThis[\"Origin\"][\"from\"]($1); })"
        js_from :: JSVal -> IO Origin
-- | <https://html.spec.whatwg.org/multipage/browsers.html#dom-origin-from Origin.from specification>
from :: (MonadDOM m) => JSVal -> m Origin
from value = liftDOM ((js_from (value)))

-- | <https://html.spec.whatwg.org/multipage/browsers.html#dom-origin-from Origin.from specification>
from_ :: (MonadDOM m) => JSVal -> m ()
from_ value = liftDOM (void ((js_from (value))))

foreign import javascript unsafe "(($1) => { return $1[\"opaque\"]; })"
        js_getOpaque :: Origin -> IO Bool
-- | <https://html.spec.whatwg.org/multipage/browsers.html#dom-origin-opaque Origin.opaque specification>
getOpaque :: (MonadDOM m) => Origin -> m Bool
getOpaque self = liftDOM ((js_getOpaque (self)))