{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.StorageEvent
(newStorageEvent, initStorageEvent, getKey, getKeyUnsafe,
getKeyUnchecked, getOldValue, getOldValueUnsafe,
getOldValueUnchecked, getNewValue, getNewValueUnsafe,
getNewValueUnchecked, getUrl, getStorageArea, getStorageAreaUnsafe,
getStorageAreaUnchecked, StorageEvent(..), gTypeStorageEvent)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
newStorageEvent ::
(MonadDOM m, ToJSString type') =>
type' -> Maybe StorageEventInit -> m StorageEvent
newStorageEvent :: forall (m :: * -> *) type'.
(MonadDOM m, ToJSString type') =>
type' -> Maybe StorageEventInit -> m StorageEvent
newStorageEvent type'
type' Maybe StorageEventInit
eventInitDict
= DOM StorageEvent -> m StorageEvent
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSVal -> StorageEvent
StorageEvent (JSVal -> StorageEvent) -> JSM JSVal -> DOM StorageEvent
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
JSM JSVal -> [JSM JSVal] -> JSM JSVal
forall constructor args.
(MakeObject constructor, MakeArgs args) =>
constructor -> args -> JSM JSVal
new (String -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg String
"StorageEvent") [type' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal type'
type', Maybe StorageEventInit -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe StorageEventInit
eventInitDict])
initStorageEvent ::
(MonadDOM m, ToJSString typeArg, ToJSString keyArg,
ToJSString oldValueArg, ToJSString newValueArg,
ToJSString urlArg) =>
StorageEvent ->
Maybe typeArg ->
Bool ->
Bool ->
Maybe keyArg ->
Maybe oldValueArg ->
Maybe newValueArg -> Maybe urlArg -> Maybe Storage -> m ()
initStorageEvent :: forall (m :: * -> *) typeArg keyArg oldValueArg newValueArg urlArg.
(MonadDOM m, ToJSString typeArg, ToJSString keyArg,
ToJSString oldValueArg, ToJSString newValueArg,
ToJSString urlArg) =>
StorageEvent
-> Maybe typeArg
-> Bool
-> Bool
-> Maybe keyArg
-> Maybe oldValueArg
-> Maybe newValueArg
-> Maybe urlArg
-> Maybe Storage
-> m ()
initStorageEvent StorageEvent
self Maybe typeArg
typeArg Bool
canBubbleArg Bool
cancelableArg Maybe keyArg
keyArg
Maybe oldValueArg
oldValueArg Maybe newValueArg
newValueArg Maybe urlArg
urlArg Maybe Storage
storageAreaArg
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(StorageEvent
self StorageEvent
-> Getting (JSM JSVal) StorageEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"initStorageEvent"
[Maybe typeArg -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe typeArg
typeArg, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
canBubbleArg, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
cancelableArg,
Maybe keyArg -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe keyArg
keyArg, Maybe oldValueArg -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe oldValueArg
oldValueArg, Maybe newValueArg -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe newValueArg
newValueArg,
Maybe urlArg -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe urlArg
urlArg, Maybe Storage -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe Storage
storageAreaArg]))
getKey ::
(MonadDOM m, FromJSString result) =>
StorageEvent -> m (Maybe result)
getKey :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
StorageEvent -> m (Maybe result)
getKey StorageEvent
self = DOM (Maybe result) -> m (Maybe result)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((StorageEvent
self StorageEvent
-> Getting (JSM JSVal) StorageEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter StorageEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"key") JSM JSVal -> (JSVal -> DOM (Maybe result)) -> DOM (Maybe result)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe result)
forall a. FromJSString a => JSVal -> JSM (Maybe a)
fromMaybeJSString)
getKeyUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
StorageEvent -> m result
getKeyUnsafe :: forall (m :: * -> *) result.
(MonadDOM m, HasCallStack, FromJSString result) =>
StorageEvent -> m result
getKeyUnsafe StorageEvent
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((StorageEvent
self StorageEvent
-> Getting (JSM JSVal) StorageEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter StorageEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"key") JSM JSVal -> (JSVal -> JSM (Maybe result)) -> JSM (Maybe result)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM (Maybe result)
forall a. FromJSString a => JSVal -> JSM (Maybe a)
fromMaybeJSString) JSM (Maybe result) -> (Maybe result -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM result -> (result -> DOM result) -> Maybe result -> DOM result
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM result
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") result -> DOM result
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getKeyUnchecked ::
(MonadDOM m, FromJSString result) => StorageEvent -> m result
getKeyUnchecked :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
StorageEvent -> m result
getKeyUnchecked StorageEvent
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((StorageEvent
self StorageEvent
-> Getting (JSM JSVal) StorageEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter StorageEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"key") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getOldValue ::
(MonadDOM m, FromJSString result) =>
StorageEvent -> m (Maybe result)
getOldValue :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
StorageEvent -> m (Maybe result)
getOldValue StorageEvent
self
= DOM (Maybe result) -> m (Maybe result)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((StorageEvent
self StorageEvent
-> Getting (JSM JSVal) StorageEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter StorageEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"oldValue") JSM JSVal -> (JSVal -> DOM (Maybe result)) -> DOM (Maybe result)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe result)
forall a. FromJSString a => JSVal -> JSM (Maybe a)
fromMaybeJSString)
getOldValueUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
StorageEvent -> m result
getOldValueUnsafe :: forall (m :: * -> *) result.
(MonadDOM m, HasCallStack, FromJSString result) =>
StorageEvent -> m result
getOldValueUnsafe StorageEvent
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((StorageEvent
self StorageEvent
-> Getting (JSM JSVal) StorageEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter StorageEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"oldValue") JSM JSVal -> (JSVal -> JSM (Maybe result)) -> JSM (Maybe result)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM (Maybe result)
forall a. FromJSString a => JSVal -> JSM (Maybe a)
fromMaybeJSString) JSM (Maybe result) -> (Maybe result -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM result -> (result -> DOM result) -> Maybe result -> DOM result
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM result
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") result -> DOM result
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getOldValueUnchecked ::
(MonadDOM m, FromJSString result) => StorageEvent -> m result
getOldValueUnchecked :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
StorageEvent -> m result
getOldValueUnchecked StorageEvent
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((StorageEvent
self StorageEvent
-> Getting (JSM JSVal) StorageEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter StorageEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"oldValue") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getNewValue ::
(MonadDOM m, FromJSString result) =>
StorageEvent -> m (Maybe result)
getNewValue :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
StorageEvent -> m (Maybe result)
getNewValue StorageEvent
self
= DOM (Maybe result) -> m (Maybe result)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((StorageEvent
self StorageEvent
-> Getting (JSM JSVal) StorageEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter StorageEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"newValue") JSM JSVal -> (JSVal -> DOM (Maybe result)) -> DOM (Maybe result)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe result)
forall a. FromJSString a => JSVal -> JSM (Maybe a)
fromMaybeJSString)
getNewValueUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
StorageEvent -> m result
getNewValueUnsafe :: forall (m :: * -> *) result.
(MonadDOM m, HasCallStack, FromJSString result) =>
StorageEvent -> m result
getNewValueUnsafe StorageEvent
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((StorageEvent
self StorageEvent
-> Getting (JSM JSVal) StorageEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter StorageEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"newValue") JSM JSVal -> (JSVal -> JSM (Maybe result)) -> JSM (Maybe result)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM (Maybe result)
forall a. FromJSString a => JSVal -> JSM (Maybe a)
fromMaybeJSString) JSM (Maybe result) -> (Maybe result -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM result -> (result -> DOM result) -> Maybe result -> DOM result
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM result
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") result -> DOM result
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getNewValueUnchecked ::
(MonadDOM m, FromJSString result) => StorageEvent -> m result
getNewValueUnchecked :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
StorageEvent -> m result
getNewValueUnchecked StorageEvent
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((StorageEvent
self StorageEvent
-> Getting (JSM JSVal) StorageEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter StorageEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"newValue") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getUrl ::
(MonadDOM m, FromJSString result) => StorageEvent -> m result
getUrl :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
StorageEvent -> m result
getUrl StorageEvent
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((StorageEvent
self StorageEvent
-> Getting (JSM JSVal) StorageEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter StorageEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"url") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getStorageArea :: (MonadDOM m) => StorageEvent -> m (Maybe Storage)
getStorageArea :: forall (m :: * -> *).
MonadDOM m =>
StorageEvent -> m (Maybe Storage)
getStorageArea StorageEvent
self
= DOM (Maybe Storage) -> m (Maybe Storage)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((StorageEvent
self StorageEvent
-> Getting (JSM JSVal) StorageEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter StorageEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"storageArea") JSM JSVal -> (JSVal -> DOM (Maybe Storage)) -> DOM (Maybe Storage)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Storage)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getStorageAreaUnsafe ::
(MonadDOM m, HasCallStack) => StorageEvent -> m Storage
getStorageAreaUnsafe :: forall (m :: * -> *).
(MonadDOM m, HasCallStack) =>
StorageEvent -> m Storage
getStorageAreaUnsafe StorageEvent
self
= DOM Storage -> m Storage
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((StorageEvent
self StorageEvent
-> Getting (JSM JSVal) StorageEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter StorageEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"storageArea") JSM JSVal -> (JSVal -> DOM (Maybe Storage)) -> DOM (Maybe Storage)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe Storage)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe Storage)
-> (Maybe Storage -> DOM Storage) -> DOM Storage
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM Storage
-> (Storage -> DOM Storage) -> Maybe Storage -> DOM Storage
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM Storage
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") Storage -> DOM Storage
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getStorageAreaUnchecked ::
(MonadDOM m) => StorageEvent -> m Storage
getStorageAreaUnchecked :: forall (m :: * -> *). MonadDOM m => StorageEvent -> m Storage
getStorageAreaUnchecked StorageEvent
self
= DOM Storage -> m Storage
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((StorageEvent
self StorageEvent
-> Getting (JSM JSVal) StorageEvent (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter StorageEvent (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"storageArea") JSM JSVal -> (JSVal -> DOM Storage) -> DOM Storage
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Storage
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)