IDBVersionChangeEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from IndexedDB-3 (webref). Do not edit.
module JSDOM.Generated.IDBVersionChangeEventInit
       (newIDBVersionChangeEventInit, setOldVersion, getOldVersion, getOldVersionUnsafe, getOldVersionUnchecked, setNewVersion, getNewVersion, getNewVersionUnsafe, getNewVersionUnchecked, IDBVersionChangeEventInit(..), gTypeIDBVersionChangeEventInit)
       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://w3c.github.io/IndexedDB/#dictdef-idbversionchangeeventinit IDBVersionChangeEventInit specification>
newIDBVersionChangeEventInit :: (MonadDOM m) => m IDBVersionChangeEventInit
newIDBVersionChangeEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/IndexedDB/#dom-idbversionchangeeventinit-oldversion IDBVersionChangeEventInit.oldVersion specification>
setOldVersion :: (MonadDOM m) => IDBVersionChangeEventInit -> Word53 -> m ()
setOldVersion self val = liftDOM (void (self ^. jss "oldVersion" (toJSVal val)))

-- | <https://w3c.github.io/IndexedDB/#dom-idbversionchangeeventinit-oldversion IDBVersionChangeEventInit.oldVersion specification>
getOldVersion :: (MonadDOM m) => IDBVersionChangeEventInit -> m (Maybe Word53)
getOldVersion self = liftDOM (((self ^. js "oldVersion") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/IndexedDB/#dom-idbversionchangeeventinit-oldversion IDBVersionChangeEventInit.oldVersion specification>
getOldVersionUnsafe :: (MonadDOM m, HasCallStack) => IDBVersionChangeEventInit -> m Word53
getOldVersionUnsafe self = liftDOM ((((self ^. js "oldVersion") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/IndexedDB/#dom-idbversionchangeeventinit-oldversion IDBVersionChangeEventInit.oldVersion specification>
getOldVersionUnchecked :: (MonadDOM m) => IDBVersionChangeEventInit -> m Word53
getOldVersionUnchecked self = liftDOM (((self ^. js "oldVersion") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/IndexedDB/#dom-idbversionchangeeventinit-newversion IDBVersionChangeEventInit.newVersion specification>
setNewVersion :: (MonadDOM m) => IDBVersionChangeEventInit -> Maybe Word53 -> m ()
setNewVersion self val = liftDOM (void (self ^. jss "newVersion" (toJSVal val)))

-- | <https://w3c.github.io/IndexedDB/#dom-idbversionchangeeventinit-newversion IDBVersionChangeEventInit.newVersion specification>
getNewVersion :: (MonadDOM m) => IDBVersionChangeEventInit -> m (Maybe Word53)
getNewVersion self = liftDOM (((self ^. js "newVersion") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/IndexedDB/#dom-idbversionchangeeventinit-newversion IDBVersionChangeEventInit.newVersion specification>
getNewVersionUnsafe :: (MonadDOM m, HasCallStack) => IDBVersionChangeEventInit -> m Word53
getNewVersionUnsafe self = liftDOM ((((self ^. js "newVersion") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/IndexedDB/#dom-idbversionchangeeventinit-newversion IDBVersionChangeEventInit.newVersion specification>
getNewVersionUnchecked :: (MonadDOM m) => IDBVersionChangeEventInit -> m Word53
getNewVersionUnchecked self = liftDOM (((self ^. js "newVersion") >>= fromJSValUnchecked))