Origin.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.Origin
       (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 Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

newOrigin :: (MonadDOM m) => m Origin
newOrigin = liftDOM (((new (jsg "Origin") ()) >>= fromJSValUnchecked))

-- | <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 (((self ^. jsf "isSameOrigin" [toJSVal other]) >>= valToBool))

-- | <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 (self ^. jsf "isSameOrigin" [toJSVal other]))

-- | <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 (((self ^. jsf "isSameSite" [toJSVal other]) >>= valToBool))

-- | <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 (self ^. jsf "isSameSite" [toJSVal other]))

-- | <https://html.spec.whatwg.org/multipage/browsers.html#dom-origin-from Origin.from specification>
from :: (MonadDOM m) => JSVal -> m Origin
from value = liftDOM ((((jsg "Origin") ^. jsf "from" [toJSVal value]) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/browsers.html#dom-origin-from Origin.from specification>
from_ :: (MonadDOM m) => JSVal -> m ()
from_ value = liftDOM (void ((jsg "Origin") ^. jsf "from" [toJSVal value]))

-- | <https://html.spec.whatwg.org/multipage/browsers.html#dom-origin-opaque Origin.opaque specification>
getOpaque :: (MonadDOM m) => Origin -> m Bool
getOpaque self = liftDOM (((self ^. js "opaque") >>= valToBool))