StorageEvent.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.StorageEvent
       (js_newStorageEvent, js_initStorageEvent, js_getKey, js_getOldValue, js_getNewValue, js_getUrl, js_getStorageArea, 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 GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2) => { return new globalThis[\"StorageEvent\"]($1, $2); })"
        js_newStorageEvent :: JSString -> JSVal -> IO StorageEvent
-- | <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 (((P.maybe (P.return jsUndefined) toJSVal eventInitDict) >>= \a2' -> js_newStorageEvent (toJSString type') a2'))

foreign import javascript safe "(($1, $2, $3, $4, $5, $6, $7, $8, $9) => { return $1[\"initStorageEvent\"]($2, $3, $4, $5, $6, $7, $8, $9); })"
        js_initStorageEvent :: StorageEvent -> JSString -> JSVal -> JSVal -> (Nullable JSString) -> (Nullable JSString) -> (Nullable JSString) -> (Optional JSString) -> JSVal -> IO ()
-- | <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 (((P.maybe (P.return jsUndefined) toJSVal bubbles) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal cancelable) >>= \a4' -> (toJSVal storageArea) >>= \a9' -> js_initStorageEvent (self) (toJSString type') a3' a4' (toMaybeJSString key) (toMaybeJSString oldValue) (toMaybeJSString newValue) (toOptionalJSString url) a9')))

foreign import javascript unsafe "(($1) => { return $1[\"key\"]; })"
        js_getKey :: StorageEvent -> IO JSVal
-- | <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 (((fromMaybeJSString . Nullable) <$> (js_getKey (self))))

-- | <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 ((((fromMaybeJSString . Nullable) <$> (js_getKey (self))) >>= 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 ((pFromJSVal <$> (js_getKey (self))))

foreign import javascript unsafe "(($1) => { return $1[\"oldValue\"]; })"
        js_getOldValue :: StorageEvent -> IO JSVal
-- | <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 (((fromMaybeJSString . Nullable) <$> (js_getOldValue (self))))

-- | <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 ((((fromMaybeJSString . Nullable) <$> (js_getOldValue (self))) >>= 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 ((pFromJSVal <$> (js_getOldValue (self))))

foreign import javascript unsafe "(($1) => { return $1[\"newValue\"]; })"
        js_getNewValue :: StorageEvent -> IO JSVal
-- | <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 (((fromMaybeJSString . Nullable) <$> (js_getNewValue (self))))

-- | <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 ((((fromMaybeJSString . Nullable) <$> (js_getNewValue (self))) >>= 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 ((pFromJSVal <$> (js_getNewValue (self))))

foreign import javascript unsafe "(($1) => { return $1[\"url\"]; })"
        js_getUrl :: StorageEvent -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/url MDN StorageEvent.url documentation>
getUrl :: (MonadDOM m, FromJSString result) => StorageEvent -> m result
getUrl self = liftDOM ((fromJSString <$> (js_getUrl (self))))

foreign import javascript unsafe "(($1) => { return $1[\"storageArea\"]; })"
        js_getStorageArea :: StorageEvent -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/storageArea MDN StorageEvent.storageArea documentation>
getStorageArea :: (MonadDOM m) => StorageEvent -> m (Maybe Storage)
getStorageArea self = liftDOM (((js_getStorageArea (self)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/StorageEvent/storageArea MDN StorageEvent.storageArea documentation>
getStorageAreaUnsafe :: (MonadDOM m, HasCallStack) => StorageEvent -> m Storage
getStorageAreaUnsafe self = liftDOM ((((js_getStorageArea (self)) >>= 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 ((pFromJSVal <$> (js_getStorageArea (self))))