IDBVersionChangeEvent.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.IDBVersionChangeEvent
       (newIDBVersionChangeEvent, getOldVersion, getNewVersion, getNewVersionUnsafe, getNewVersionUnchecked, IDBVersionChangeEvent(..), gTypeIDBVersionChangeEvent)
       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://developer.mozilla.org/docs/Web/API/IDBVersionChangeEvent/IDBVersionChangeEvent MDN IDBVersionChangeEvent. documentation>
newIDBVersionChangeEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe IDBVersionChangeEventInit -> m IDBVersionChangeEvent
newIDBVersionChangeEvent type' eventInitDict = liftDOM (((new (jsg "IDBVersionChangeEvent") [toJSVal type', P.maybe (P.return jsUndefined) toJSVal eventInitDict]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/IDBVersionChangeEvent/oldVersion MDN IDBVersionChangeEvent.oldVersion documentation>
getOldVersion :: (MonadDOM m) => IDBVersionChangeEvent -> m Word53
getOldVersion self = liftDOM (((self ^. js "oldVersion") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/IDBVersionChangeEvent/newVersion MDN IDBVersionChangeEvent.newVersion documentation>
getNewVersion :: (MonadDOM m) => IDBVersionChangeEvent -> m (Maybe Word53)
getNewVersion self = liftDOM (((self ^. js "newVersion") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/IDBVersionChangeEvent/newVersion MDN IDBVersionChangeEvent.newVersion documentation>
getNewVersionUnsafe :: (MonadDOM m, HasCallStack) => IDBVersionChangeEvent -> m Word53
getNewVersionUnsafe self = liftDOM ((((self ^. js "newVersion") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/IDBVersionChangeEvent/newVersion MDN IDBVersionChangeEvent.newVersion documentation>
getNewVersionUnchecked :: (MonadDOM m) => IDBVersionChangeEvent -> m Word53
getNewVersionUnchecked self = liftDOM (((self ^. js "newVersion") >>= fromJSValUnchecked))