{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBObjectStore (js_put, put, put_, putUnsafe, putUnchecked, js_add, add, add_, addUnsafe, addUnchecked, js_deleteRange, deleteRange, deleteRange_, deleteRangeUnsafe, deleteRangeUnchecked, js_delete, delete, delete_, deleteUnsafe, deleteUnchecked, js_getRange, getRange, getRange_, getRangeUnsafe, getRangeUnchecked, js_get, get, get_, getUnsafe, getUnchecked, js_clear, clear, clear_, clearUnsafe, clearUnchecked, js_openCursorRange, openCursorRange, openCursorRange_, openCursorRangeUnsafe, openCursorRangeUnchecked, js_openCursor, openCursor, openCursor_, openCursorUnsafe, openCursorUnchecked, js_createIndex', createIndex', createIndex'_, createIndex'Unsafe, createIndex'Unchecked, js_createIndex, createIndex, createIndex_, createIndexUnsafe, createIndexUnchecked, js_index, index, index_, indexUnsafe, indexUnchecked, js_deleteIndex, deleteIndex, js_countRange, countRange, countRange_, countRangeUnsafe, countRangeUnchecked, js_count, count, count_, countUnsafe, countUnchecked, js_getName, getName, getNameUnsafe, getNameUnchecked, js_getKeyPath, getKeyPath, getKeyPathUnsafe, getKeyPathUnchecked, js_getIndexNames, getIndexNames, getIndexNamesUnsafe, getIndexNamesUnchecked, js_getTransaction, getTransaction, getTransactionUnsafe, getTransactionUnchecked, js_getAutoIncrement, getAutoIncrement, IDBObjectStore(..), gTypeIDBObjectStore) 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 #if MIN_VERSION_base(4,9,0) import GHC.Stack (HasCallStack) #else import GHC.Exts (Constraint) type HasCallStack = (() :: Constraint) #endif foreign import javascript unsafe "$1[\"put\"]($2, $3)" js_put :: IDBObjectStore -> JSVal -> JSVal -> IO (Nullable IDBRequest) -- | put :: (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m (Maybe IDBRequest) put self value key = liftIO (nullableToMaybe <$> (js_put (self) value key)) -- | put_ :: (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m () put_ self value key = liftIO (void (js_put (self) value key)) -- | putUnsafe :: (MonadIO m, HasCallStack) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest putUnsafe self value key = liftIO ((nullableToMaybe <$> (js_put (self) value key)) >>= maybe (Prelude.error "Nothing to return") return) -- | putUnchecked :: (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest putUnchecked self value key = liftIO (fromJust . nullableToMaybe <$> (js_put (self) value key)) foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add :: IDBObjectStore -> JSVal -> JSVal -> IO (Nullable IDBRequest) -- | add :: (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m (Maybe IDBRequest) add self value key = liftIO (nullableToMaybe <$> (js_add (self) value key)) -- | add_ :: (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m () add_ self value key = liftIO (void (js_add (self) value key)) -- | addUnsafe :: (MonadIO m, HasCallStack) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest addUnsafe self value key = liftIO ((nullableToMaybe <$> (js_add (self) value key)) >>= maybe (Prelude.error "Nothing to return") return) -- | addUnchecked :: (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest addUnchecked self value key = liftIO (fromJust . nullableToMaybe <$> (js_add (self) value key)) foreign import javascript unsafe "$1[\"delete\"]($2)" js_deleteRange :: IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest) -- | deleteRange :: (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest) deleteRange self keyRange = liftIO (nullableToMaybe <$> (js_deleteRange (self) (maybeToNullable keyRange))) -- | deleteRange_ :: (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m () deleteRange_ self keyRange = liftIO (void (js_deleteRange (self) (maybeToNullable keyRange))) -- | deleteRangeUnsafe :: (MonadIO m, HasCallStack) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest deleteRangeUnsafe self keyRange = liftIO ((nullableToMaybe <$> (js_deleteRange (self) (maybeToNullable keyRange))) >>= maybe (Prelude.error "Nothing to return") return) -- | deleteRangeUnchecked :: (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest deleteRangeUnchecked self keyRange = liftIO (fromJust . nullableToMaybe <$> (js_deleteRange (self) (maybeToNullable keyRange))) foreign import javascript unsafe "$1[\"delete\"]($2)" js_delete :: IDBObjectStore -> JSVal -> IO (Nullable IDBRequest) -- | delete :: (MonadIO m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) delete self key = liftIO (nullableToMaybe <$> (js_delete (self) key)) -- | delete_ :: (MonadIO m) => IDBObjectStore -> JSVal -> m () delete_ self key = liftIO (void (js_delete (self) key)) -- | deleteUnsafe :: (MonadIO m, HasCallStack) => IDBObjectStore -> JSVal -> m IDBRequest deleteUnsafe self key = liftIO ((nullableToMaybe <$> (js_delete (self) key)) >>= maybe (Prelude.error "Nothing to return") return) -- | deleteUnchecked :: (MonadIO m) => IDBObjectStore -> JSVal -> m IDBRequest deleteUnchecked self key = liftIO (fromJust . nullableToMaybe <$> (js_delete (self) key)) foreign import javascript unsafe "$1[\"get\"]($2)" js_getRange :: IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest) -- | getRange :: (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest) getRange self key = liftIO (nullableToMaybe <$> (js_getRange (self) (maybeToNullable key))) -- | getRange_ :: (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m () getRange_ self key = liftIO (void (js_getRange (self) (maybeToNullable key))) -- | getRangeUnsafe :: (MonadIO m, HasCallStack) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest getRangeUnsafe self key = liftIO ((nullableToMaybe <$> (js_getRange (self) (maybeToNullable key))) >>= maybe (Prelude.error "Nothing to return") return) -- | getRangeUnchecked :: (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest getRangeUnchecked self key = liftIO (fromJust . nullableToMaybe <$> (js_getRange (self) (maybeToNullable key))) foreign import javascript unsafe "$1[\"get\"]($2)" js_get :: IDBObjectStore -> JSVal -> IO (Nullable IDBRequest) -- | get :: (MonadIO m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) get self key = liftIO (nullableToMaybe <$> (js_get (self) key)) -- | get_ :: (MonadIO m) => IDBObjectStore -> JSVal -> m () get_ self key = liftIO (void (js_get (self) key)) -- | getUnsafe :: (MonadIO m, HasCallStack) => IDBObjectStore -> JSVal -> m IDBRequest getUnsafe self key = liftIO ((nullableToMaybe <$> (js_get (self) key)) >>= maybe (Prelude.error "Nothing to return") return) -- | getUnchecked :: (MonadIO m) => IDBObjectStore -> JSVal -> m IDBRequest getUnchecked self key = liftIO (fromJust . nullableToMaybe <$> (js_get (self) key)) foreign import javascript unsafe "$1[\"clear\"]()" js_clear :: IDBObjectStore -> IO (Nullable IDBRequest) -- | clear :: (MonadIO m) => IDBObjectStore -> m (Maybe IDBRequest) clear self = liftIO (nullableToMaybe <$> (js_clear (self))) -- | clear_ :: (MonadIO m) => IDBObjectStore -> m () clear_ self = liftIO (void (js_clear (self))) -- | clearUnsafe :: (MonadIO m, HasCallStack) => IDBObjectStore -> m IDBRequest clearUnsafe self = liftIO ((nullableToMaybe <$> (js_clear (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | clearUnchecked :: (MonadIO m) => IDBObjectStore -> m IDBRequest clearUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_clear (self))) foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)" js_openCursorRange :: IDBObjectStore -> Nullable IDBKeyRange -> JSString -> IO (Nullable IDBRequest) -- | openCursorRange :: (MonadIO m, ToJSString direction) => IDBObjectStore -> Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest) openCursorRange self range direction = liftIO (nullableToMaybe <$> (js_openCursorRange (self) (maybeToNullable range) (toJSString direction))) -- | openCursorRange_ :: (MonadIO m, ToJSString direction) => IDBObjectStore -> Maybe IDBKeyRange -> direction -> m () openCursorRange_ self range direction = liftIO (void (js_openCursorRange (self) (maybeToNullable range) (toJSString direction))) -- | openCursorRangeUnsafe :: (MonadIO m, ToJSString direction, HasCallStack) => IDBObjectStore -> Maybe IDBKeyRange -> direction -> m IDBRequest openCursorRangeUnsafe self range direction = liftIO ((nullableToMaybe <$> (js_openCursorRange (self) (maybeToNullable range) (toJSString direction))) >>= maybe (Prelude.error "Nothing to return") return) -- | openCursorRangeUnchecked :: (MonadIO m, ToJSString direction) => IDBObjectStore -> Maybe IDBKeyRange -> direction -> m IDBRequest openCursorRangeUnchecked self range direction = liftIO (fromJust . nullableToMaybe <$> (js_openCursorRange (self) (maybeToNullable range) (toJSString direction))) foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)" js_openCursor :: IDBObjectStore -> JSVal -> JSString -> IO (Nullable IDBRequest) -- | openCursor :: (MonadIO m, ToJSString direction) => IDBObjectStore -> JSVal -> direction -> m (Maybe IDBRequest) openCursor self key direction = liftIO (nullableToMaybe <$> (js_openCursor (self) key (toJSString direction))) -- | openCursor_ :: (MonadIO m, ToJSString direction) => IDBObjectStore -> JSVal -> direction -> m () openCursor_ self key direction = liftIO (void (js_openCursor (self) key (toJSString direction))) -- | openCursorUnsafe :: (MonadIO m, ToJSString direction, HasCallStack) => IDBObjectStore -> JSVal -> direction -> m IDBRequest openCursorUnsafe self key direction = liftIO ((nullableToMaybe <$> (js_openCursor (self) key (toJSString direction))) >>= maybe (Prelude.error "Nothing to return") return) -- | openCursorUnchecked :: (MonadIO m, ToJSString direction) => IDBObjectStore -> JSVal -> direction -> m IDBRequest openCursorUnchecked self key direction = liftIO (fromJust . nullableToMaybe <$> (js_openCursor (self) key (toJSString direction))) foreign import javascript unsafe "$1[\"createIndex\"]($2, $3, $4)" js_createIndex' :: IDBObjectStore -> JSString -> JSVal -> Nullable Dictionary -> IO (Nullable IDBIndex) -- | createIndex' :: (MonadIO m, ToJSString name, ToJSString keyPath, IsDictionary options) => IDBObjectStore -> name -> [keyPath] -> Maybe options -> m (Maybe IDBIndex) createIndex' self name keyPath options = liftIO (nullableToMaybe <$> (toJSVal keyPath >>= \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath' (maybeToNullable (fmap toDictionary options)))) -- | createIndex'_ :: (MonadIO m, ToJSString name, ToJSString keyPath, IsDictionary options) => IDBObjectStore -> name -> [keyPath] -> Maybe options -> m () createIndex'_ self name keyPath options = liftIO (void (toJSVal keyPath >>= \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath' (maybeToNullable (fmap toDictionary options)))) -- | createIndex'Unsafe :: (MonadIO m, ToJSString name, ToJSString keyPath, IsDictionary options, HasCallStack) => IDBObjectStore -> name -> [keyPath] -> Maybe options -> m IDBIndex createIndex'Unsafe self name keyPath options = liftIO ((nullableToMaybe <$> (toJSVal keyPath >>= \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath' (maybeToNullable (fmap toDictionary options)))) >>= maybe (Prelude.error "Nothing to return") return) -- | createIndex'Unchecked :: (MonadIO m, ToJSString name, ToJSString keyPath, IsDictionary options) => IDBObjectStore -> name -> [keyPath] -> Maybe options -> m IDBIndex createIndex'Unchecked self name keyPath options = liftIO (fromJust . nullableToMaybe <$> (toJSVal keyPath >>= \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath' (maybeToNullable (fmap toDictionary options)))) foreign import javascript unsafe "$1[\"createIndex\"]($2, $3, $4)" js_createIndex :: IDBObjectStore -> JSString -> JSString -> Nullable Dictionary -> IO (Nullable IDBIndex) -- | createIndex :: (MonadIO m, ToJSString name, ToJSString keyPath, IsDictionary options) => IDBObjectStore -> name -> keyPath -> Maybe options -> m (Maybe IDBIndex) createIndex self name keyPath options = liftIO (nullableToMaybe <$> (js_createIndex (self) (toJSString name) (toJSString keyPath) (maybeToNullable (fmap toDictionary options)))) -- | createIndex_ :: (MonadIO m, ToJSString name, ToJSString keyPath, IsDictionary options) => IDBObjectStore -> name -> keyPath -> Maybe options -> m () createIndex_ self name keyPath options = liftIO (void (js_createIndex (self) (toJSString name) (toJSString keyPath) (maybeToNullable (fmap toDictionary options)))) -- | createIndexUnsafe :: (MonadIO m, ToJSString name, ToJSString keyPath, IsDictionary options, HasCallStack) => IDBObjectStore -> name -> keyPath -> Maybe options -> m IDBIndex createIndexUnsafe self name keyPath options = liftIO ((nullableToMaybe <$> (js_createIndex (self) (toJSString name) (toJSString keyPath) (maybeToNullable (fmap toDictionary options)))) >>= maybe (Prelude.error "Nothing to return") return) -- | createIndexUnchecked :: (MonadIO m, ToJSString name, ToJSString keyPath, IsDictionary options) => IDBObjectStore -> name -> keyPath -> Maybe options -> m IDBIndex createIndexUnchecked self name keyPath options = liftIO (fromJust . nullableToMaybe <$> (js_createIndex (self) (toJSString name) (toJSString keyPath) (maybeToNullable (fmap toDictionary options)))) foreign import javascript unsafe "$1[\"index\"]($2)" js_index :: IDBObjectStore -> JSString -> IO (Nullable IDBIndex) -- | index :: (MonadIO m, ToJSString name) => IDBObjectStore -> name -> m (Maybe IDBIndex) index self name = liftIO (nullableToMaybe <$> (js_index (self) (toJSString name))) -- | index_ :: (MonadIO m, ToJSString name) => IDBObjectStore -> name -> m () index_ self name = liftIO (void (js_index (self) (toJSString name))) -- | indexUnsafe :: (MonadIO m, ToJSString name, HasCallStack) => IDBObjectStore -> name -> m IDBIndex indexUnsafe self name = liftIO ((nullableToMaybe <$> (js_index (self) (toJSString name))) >>= maybe (Prelude.error "Nothing to return") return) -- | indexUnchecked :: (MonadIO m, ToJSString name) => IDBObjectStore -> name -> m IDBIndex indexUnchecked self name = liftIO (fromJust . nullableToMaybe <$> (js_index (self) (toJSString name))) foreign import javascript unsafe "$1[\"deleteIndex\"]($2)" js_deleteIndex :: IDBObjectStore -> JSString -> IO () -- | deleteIndex :: (MonadIO m, ToJSString name) => IDBObjectStore -> name -> m () deleteIndex self name = liftIO (js_deleteIndex (self) (toJSString name)) foreign import javascript unsafe "$1[\"count\"]($2)" js_countRange :: IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest) -- | countRange :: (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest) countRange self range = liftIO (nullableToMaybe <$> (js_countRange (self) (maybeToNullable range))) -- | countRange_ :: (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m () countRange_ self range = liftIO (void (js_countRange (self) (maybeToNullable range))) -- | countRangeUnsafe :: (MonadIO m, HasCallStack) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest countRangeUnsafe self range = liftIO ((nullableToMaybe <$> (js_countRange (self) (maybeToNullable range))) >>= maybe (Prelude.error "Nothing to return") return) -- | countRangeUnchecked :: (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest countRangeUnchecked self range = liftIO (fromJust . nullableToMaybe <$> (js_countRange (self) (maybeToNullable range))) foreign import javascript unsafe "$1[\"count\"]($2)" js_count :: IDBObjectStore -> JSVal -> IO (Nullable IDBRequest) -- | count :: (MonadIO m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) count self key = liftIO (nullableToMaybe <$> (js_count (self) key)) -- | count_ :: (MonadIO m) => IDBObjectStore -> JSVal -> m () count_ self key = liftIO (void (js_count (self) key)) -- | countUnsafe :: (MonadIO m, HasCallStack) => IDBObjectStore -> JSVal -> m IDBRequest countUnsafe self key = liftIO ((nullableToMaybe <$> (js_count (self) key)) >>= maybe (Prelude.error "Nothing to return") return) -- | countUnchecked :: (MonadIO m) => IDBObjectStore -> JSVal -> m IDBRequest countUnchecked self key = liftIO (fromJust . nullableToMaybe <$> (js_count (self) key)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: IDBObjectStore -> IO (Nullable JSString) -- | getName :: (MonadIO m, FromJSString result) => IDBObjectStore -> m (Maybe result) getName self = liftIO (fromMaybeJSString <$> (js_getName (self))) -- | getNameUnsafe :: (MonadIO m, HasCallStack, FromJSString result) => IDBObjectStore -> m result getNameUnsafe self = liftIO ((fromMaybeJSString <$> (js_getName (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getNameUnchecked :: (MonadIO m, FromJSString result) => IDBObjectStore -> m result getNameUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getName (self))) foreign import javascript unsafe "$1[\"keyPath\"]" js_getKeyPath :: IDBObjectStore -> IO (Nullable IDBAny) -- | getKeyPath :: (MonadIO m) => IDBObjectStore -> m (Maybe IDBAny) getKeyPath self = liftIO (nullableToMaybe <$> (js_getKeyPath (self))) -- | getKeyPathUnsafe :: (MonadIO m, HasCallStack) => IDBObjectStore -> m IDBAny getKeyPathUnsafe self = liftIO ((nullableToMaybe <$> (js_getKeyPath (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getKeyPathUnchecked :: (MonadIO m) => IDBObjectStore -> m IDBAny getKeyPathUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getKeyPath (self))) foreign import javascript unsafe "$1[\"indexNames\"]" js_getIndexNames :: IDBObjectStore -> IO (Nullable DOMStringList) -- | getIndexNames :: (MonadIO m) => IDBObjectStore -> m (Maybe DOMStringList) getIndexNames self = liftIO (nullableToMaybe <$> (js_getIndexNames (self))) -- | getIndexNamesUnsafe :: (MonadIO m, HasCallStack) => IDBObjectStore -> m DOMStringList getIndexNamesUnsafe self = liftIO ((nullableToMaybe <$> (js_getIndexNames (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getIndexNamesUnchecked :: (MonadIO m) => IDBObjectStore -> m DOMStringList getIndexNamesUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getIndexNames (self))) foreign import javascript unsafe "$1[\"transaction\"]" js_getTransaction :: IDBObjectStore -> IO (Nullable IDBTransaction) -- | getTransaction :: (MonadIO m) => IDBObjectStore -> m (Maybe IDBTransaction) getTransaction self = liftIO (nullableToMaybe <$> (js_getTransaction (self))) -- | getTransactionUnsafe :: (MonadIO m, HasCallStack) => IDBObjectStore -> m IDBTransaction getTransactionUnsafe self = liftIO ((nullableToMaybe <$> (js_getTransaction (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getTransactionUnchecked :: (MonadIO m) => IDBObjectStore -> m IDBTransaction getTransactionUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getTransaction (self))) foreign import javascript unsafe "($1[\"autoIncrement\"] ? 1 : 0)" js_getAutoIncrement :: IDBObjectStore -> IO Bool -- | getAutoIncrement :: (MonadIO m) => IDBObjectStore -> m Bool getAutoIncrement self = liftIO (js_getAutoIncrement (self))