module GHCJS.DOM.JSFFI.Generated.StorageEvent
(js_initStorageEvent, initStorageEvent, js_getKey, getKey,
js_getOldValue, getOldValue, getOldValueUnsafe,
getOldValueUnchecked, js_getNewValue, getNewValue,
getNewValueUnsafe, getNewValueUnchecked, js_getUrl, getUrl,
js_getStorageArea, getStorageArea, getStorageAreaUnsafe,
getStorageAreaUnchecked, StorageEvent(..), gTypeStorageEvent)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import qualified Prelude (error)
import Data.Typeable (Typeable)
import GHCJS.Types (JSVal(..), JSString)
import GHCJS.Foreign (jsNull)
import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Data.Maybe (fromJust)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.Enums
foreign import javascript unsafe
"$1[\"initStorageEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9)"
js_initStorageEvent ::
StorageEvent ->
JSString ->
Bool ->
Bool ->
JSString ->
Nullable JSString ->
Nullable JSString -> JSString -> Nullable Storage -> IO ()
initStorageEvent ::
(MonadIO m, ToJSString typeArg, ToJSString keyArg,
ToJSString oldValueArg, ToJSString newValueArg,
ToJSString urlArg) =>
StorageEvent ->
typeArg ->
Bool ->
Bool ->
keyArg ->
Maybe oldValueArg ->
Maybe newValueArg -> urlArg -> Maybe Storage -> m ()
initStorageEvent self typeArg canBubbleArg cancelableArg keyArg
oldValueArg newValueArg urlArg storageAreaArg
= liftIO
(js_initStorageEvent (self) (toJSString typeArg) canBubbleArg
cancelableArg
(toJSString keyArg)
(toMaybeJSString oldValueArg)
(toMaybeJSString newValueArg)
(toJSString urlArg)
(maybeToNullable storageAreaArg))
foreign import javascript unsafe "$1[\"key\"]" js_getKey ::
StorageEvent -> IO JSString
getKey ::
(MonadIO m, FromJSString result) => StorageEvent -> m result
getKey self = liftIO (fromJSString <$> (js_getKey (self)))
foreign import javascript unsafe "$1[\"oldValue\"]" js_getOldValue
:: StorageEvent -> IO (Nullable JSString)
getOldValue ::
(MonadIO m, FromJSString result) =>
StorageEvent -> m (Maybe result)
getOldValue self
= liftIO (fromMaybeJSString <$> (js_getOldValue (self)))
getOldValueUnsafe ::
(MonadIO m, HasCallStack, FromJSString result) =>
StorageEvent -> m result
getOldValueUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getOldValue (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getOldValueUnchecked ::
(MonadIO m, FromJSString result) => StorageEvent -> m result
getOldValueUnchecked self
= liftIO (fromJust . fromMaybeJSString <$> (js_getOldValue (self)))
foreign import javascript unsafe "$1[\"newValue\"]" js_getNewValue
:: StorageEvent -> IO (Nullable JSString)
getNewValue ::
(MonadIO m, FromJSString result) =>
StorageEvent -> m (Maybe result)
getNewValue self
= liftIO (fromMaybeJSString <$> (js_getNewValue (self)))
getNewValueUnsafe ::
(MonadIO m, HasCallStack, FromJSString result) =>
StorageEvent -> m result
getNewValueUnsafe self
= liftIO
((fromMaybeJSString <$> (js_getNewValue (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getNewValueUnchecked ::
(MonadIO m, FromJSString result) => StorageEvent -> m result
getNewValueUnchecked self
= liftIO (fromJust . fromMaybeJSString <$> (js_getNewValue (self)))
foreign import javascript unsafe "$1[\"url\"]" js_getUrl ::
StorageEvent -> IO JSString
getUrl ::
(MonadIO m, FromJSString result) => StorageEvent -> m result
getUrl self = liftIO (fromJSString <$> (js_getUrl (self)))
foreign import javascript unsafe "$1[\"storageArea\"]"
js_getStorageArea :: StorageEvent -> IO (Nullable Storage)
getStorageArea :: (MonadIO m) => StorageEvent -> m (Maybe Storage)
getStorageArea self
= liftIO (nullableToMaybe <$> (js_getStorageArea (self)))
getStorageAreaUnsafe ::
(MonadIO m, HasCallStack) => StorageEvent -> m Storage
getStorageAreaUnsafe self
= liftIO
((nullableToMaybe <$> (js_getStorageArea (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getStorageAreaUnchecked :: (MonadIO m) => StorageEvent -> m Storage
getStorageAreaUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getStorageArea (self)))