StorageEvent.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.StorageEvent
       (newStorageEvent, initStorageEvent, getKey, getKeyUnsafe, getKeyUnchecked, getOldValue, getOldValueUnsafe, getOldValueUnchecked, getNewValue, getNewValueUnsafe, getNewValueUnchecked, getUrl, getStorageArea, getStorageAreaUnsafe, getStorageAreaUnchecked, StorageEvent(..), gTypeStorageEvent)
       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/StorageEvent/StorageEvent MDN StorageEvent. documentation>
newStorageEvent :: (MonadDOM m, ToJSString type') => type' -> Maybe StorageEventInit -> m StorageEvent
newStorageEvent type' eventInitDict = liftDOM (((new (jsg "StorageEvent") [toJSVal type', P.maybe (P.return jsUndefined) toJSVal eventInitDict]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/initStorageEvent MDN StorageEvent.initStorageEvent documentation>
initStorageEvent :: (MonadDOM m, ToJSString type', ToJSString key, ToJSString oldValue, ToJSString newValue, ToJSString url) => StorageEvent -> type' -> Maybe Bool -> Maybe Bool -> Maybe key -> Maybe oldValue -> Maybe newValue -> Maybe url -> Maybe Storage -> m ()
initStorageEvent self type' bubbles cancelable key oldValue newValue url storageArea = liftDOM (void (self ^. jsf "initStorageEvent" [toJSVal type', P.maybe (P.return jsUndefined) toJSVal bubbles, P.maybe (P.return jsUndefined) toJSVal cancelable, toJSVal key, toJSVal oldValue, toJSVal newValue, P.maybe (P.return jsUndefined) toJSVal url, toJSVal storageArea]))

-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/key MDN StorageEvent.key documentation>
getKey :: (MonadDOM m, FromJSString result) => StorageEvent -> m (Maybe result)
getKey self = liftDOM (((self ^. js "key") >>= fromMaybeJSString))

-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/key MDN StorageEvent.key documentation>
getKeyUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => StorageEvent -> m result
getKeyUnsafe self = liftDOM ((((self ^. js "key") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/key MDN StorageEvent.key documentation>
getKeyUnchecked :: (MonadDOM m, FromJSString result) => StorageEvent -> m result
getKeyUnchecked self = liftDOM (((self ^. js "key") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/oldValue MDN StorageEvent.oldValue documentation>
getOldValue :: (MonadDOM m, FromJSString result) => StorageEvent -> m (Maybe result)
getOldValue self = liftDOM (((self ^. js "oldValue") >>= fromMaybeJSString))

-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/oldValue MDN StorageEvent.oldValue documentation>
getOldValueUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => StorageEvent -> m result
getOldValueUnsafe self = liftDOM ((((self ^. js "oldValue") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/oldValue MDN StorageEvent.oldValue documentation>
getOldValueUnchecked :: (MonadDOM m, FromJSString result) => StorageEvent -> m result
getOldValueUnchecked self = liftDOM (((self ^. js "oldValue") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/newValue MDN StorageEvent.newValue documentation>
getNewValue :: (MonadDOM m, FromJSString result) => StorageEvent -> m (Maybe result)
getNewValue self = liftDOM (((self ^. js "newValue") >>= fromMaybeJSString))

-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/newValue MDN StorageEvent.newValue documentation>
getNewValueUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => StorageEvent -> m result
getNewValueUnsafe self = liftDOM ((((self ^. js "newValue") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/newValue MDN StorageEvent.newValue documentation>
getNewValueUnchecked :: (MonadDOM m, FromJSString result) => StorageEvent -> m result
getNewValueUnchecked self = liftDOM (((self ^. js "newValue") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/url MDN StorageEvent.url documentation>
getUrl :: (MonadDOM m, FromJSString result) => StorageEvent -> m result
getUrl self = liftDOM (((self ^. js "url") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/storageArea MDN StorageEvent.storageArea documentation>
getStorageArea :: (MonadDOM m) => StorageEvent -> m (Maybe Storage)
getStorageArea self = liftDOM (((self ^. js "storageArea") >>= fromJSValUnchecked))

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

-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/storageArea MDN StorageEvent.storageArea documentation>
getStorageAreaUnchecked :: (MonadDOM m) => StorageEvent -> m Storage
getStorageAreaUnchecked self = liftDOM (((self ^. js "storageArea") >>= fromJSValUnchecked))