PopStateEventInit.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.PopStateEventInit
       (newPopStateEventInit, setState, getState, setHasUAVisualTransition, getHasUAVisualTransition, getHasUAVisualTransitionUnsafe, getHasUAVisualTransitionUnchecked, PopStateEventInit(..), gTypePopStateEventInit)
       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

-- | <https://html.spec.whatwg.org/multipage/nav-history-apis.html#popstateeventinit PopStateEventInit specification>
newPopStateEventInit :: (MonadDOM m) => m PopStateEventInit
newPopStateEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/nav-history-apis.html#dom-popstateeventinit-state PopStateEventInit.state specification>
setState :: (MonadDOM m) => PopStateEventInit -> JSVal -> m ()
setState self val = liftDOM (void (self ^. jss "state" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/nav-history-apis.html#dom-popstateeventinit-state PopStateEventInit.state specification>
getState :: (MonadDOM m) => PopStateEventInit -> m JSVal
getState self = liftDOM (self ^. js "state")

-- | <https://html.spec.whatwg.org/multipage/nav-history-apis.html#dom-popstateeventinit-hasuavisualtransition PopStateEventInit.hasUAVisualTransition specification>
setHasUAVisualTransition :: (MonadDOM m) => PopStateEventInit -> Bool -> m ()
setHasUAVisualTransition self val = liftDOM (void (self ^. jss "hasUAVisualTransition" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/nav-history-apis.html#dom-popstateeventinit-hasuavisualtransition PopStateEventInit.hasUAVisualTransition specification>
getHasUAVisualTransition :: (MonadDOM m) => PopStateEventInit -> m (Maybe Bool)
getHasUAVisualTransition self = liftDOM (((self ^. js "hasUAVisualTransition") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/nav-history-apis.html#dom-popstateeventinit-hasuavisualtransition PopStateEventInit.hasUAVisualTransition specification>
getHasUAVisualTransitionUnsafe :: (MonadDOM m, HasCallStack) => PopStateEventInit -> m Bool
getHasUAVisualTransitionUnsafe self = liftDOM ((((self ^. js "hasUAVisualTransition") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/nav-history-apis.html#dom-popstateeventinit-hasuavisualtransition PopStateEventInit.hasUAVisualTransition specification>
getHasUAVisualTransitionUnchecked :: (MonadDOM m) => PopStateEventInit -> m Bool
getHasUAVisualTransitionUnchecked self = liftDOM (((self ^. js "hasUAVisualTransition") >>= valToBool))