StorageEventInit.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.StorageEventInit
       (newStorageEventInit, setKey, getKey, getKeyUnsafe, getKeyUnchecked, setOldValue, getOldValue, getOldValueUnsafe, getOldValueUnchecked, setNewValue, getNewValue, getNewValueUnsafe, getNewValueUnchecked, setUrl, getUrl, getUrlUnsafe, getUrlUnchecked, setStorageArea, getStorageArea, getStorageAreaUnsafe, getStorageAreaUnchecked, StorageEventInit(..), gTypeStorageEventInit)
       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/webstorage.html#storageeventinit StorageEventInit specification>
newStorageEventInit :: (MonadDOM m) => m StorageEventInit
newStorageEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

setKey :: (MonadDOM m, ToJSString val) => StorageEventInit -> Maybe val -> m ()
setKey self val = liftDOM (void (self ^. jss "key" (toJSVal val)))

getKey :: (MonadDOM m, FromJSString result) => StorageEventInit -> m (Maybe result)
getKey self = liftDOM (((self ^. js "key") >>= fromMaybeJSString))

getKeyUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => StorageEventInit -> m result
getKeyUnsafe self = liftDOM ((((self ^. js "key") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

getKeyUnchecked :: (MonadDOM m, FromJSString result) => StorageEventInit -> m result
getKeyUnchecked self = liftDOM (((self ^. js "key") >>= fromJSValUnchecked))

setOldValue :: (MonadDOM m, ToJSString val) => StorageEventInit -> Maybe val -> m ()
setOldValue self val = liftDOM (void (self ^. jss "oldValue" (toJSVal val)))

getOldValue :: (MonadDOM m, FromJSString result) => StorageEventInit -> m (Maybe result)
getOldValue self = liftDOM (((self ^. js "oldValue") >>= fromMaybeJSString))

getOldValueUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => StorageEventInit -> m result
getOldValueUnsafe self = liftDOM ((((self ^. js "oldValue") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

getOldValueUnchecked :: (MonadDOM m, FromJSString result) => StorageEventInit -> m result
getOldValueUnchecked self = liftDOM (((self ^. js "oldValue") >>= fromJSValUnchecked))

setNewValue :: (MonadDOM m, ToJSString val) => StorageEventInit -> Maybe val -> m ()
setNewValue self val = liftDOM (void (self ^. jss "newValue" (toJSVal val)))

getNewValue :: (MonadDOM m, FromJSString result) => StorageEventInit -> m (Maybe result)
getNewValue self = liftDOM (((self ^. js "newValue") >>= fromMaybeJSString))

getNewValueUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => StorageEventInit -> m result
getNewValueUnsafe self = liftDOM ((((self ^. js "newValue") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

getNewValueUnchecked :: (MonadDOM m, FromJSString result) => StorageEventInit -> m result
getNewValueUnchecked self = liftDOM (((self ^. js "newValue") >>= fromJSValUnchecked))

setUrl :: (MonadDOM m, ToJSString val) => StorageEventInit -> val -> m ()
setUrl self val = liftDOM (void (self ^. jss "url" (toJSVal val)))

getUrl :: (MonadDOM m, FromJSString result) => StorageEventInit -> m (Maybe result)
getUrl self = liftDOM (((self ^. js "url") >>= fromMaybeJSString))

getUrlUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => StorageEventInit -> m result
getUrlUnsafe self = liftDOM ((((self ^. js "url") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

getUrlUnchecked :: (MonadDOM m, FromJSString result) => StorageEventInit -> m result
getUrlUnchecked self = liftDOM (((self ^. js "url") >>= fromJSValUnchecked))

setStorageArea :: (MonadDOM m) => StorageEventInit -> Maybe Storage -> m ()
setStorageArea self val = liftDOM (void (self ^. jss "storageArea" (toJSVal val)))

getStorageArea :: (MonadDOM m) => StorageEventInit -> m (Maybe Storage)
getStorageArea self = liftDOM (((self ^. js "storageArea") >>= fromJSValUnchecked))

getStorageAreaUnsafe :: (MonadDOM m, HasCallStack) => StorageEventInit -> m Storage
getStorageAreaUnsafe self = liftDOM ((((self ^. js "storageArea") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getStorageAreaUnchecked :: (MonadDOM m) => StorageEventInit -> m Storage
getStorageAreaUnchecked self = liftDOM (((self ^. js "storageArea") >>= fromJSValUnchecked))