{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.IDBObjectStore (put, put_, putUnsafe, putUnchecked, add, add_, addUnsafe, addUnchecked, deleteRange, deleteRange_, deleteRangeUnsafe, deleteRangeUnchecked, delete, delete_, deleteUnsafe, deleteUnchecked, getRange, getRange_, getRangeUnsafe, getRangeUnchecked, get, get_, getUnsafe, getUnchecked, clear, clear_, clearUnsafe, clearUnchecked, openCursorRange, openCursorRange_, openCursorRangeUnsafe, openCursorRangeUnchecked, openCursor, openCursor_, openCursorUnsafe, openCursorUnchecked, createIndex', createIndex'_, createIndex'Unsafe, createIndex'Unchecked, createIndex, createIndex_, createIndexUnsafe, createIndexUnchecked, index, index_, indexUnsafe, indexUnchecked, deleteIndex, countRange, countRange_, countRangeUnsafe, countRangeUnchecked, count, count_, countUnsafe, countUnchecked, getName, getNameUnsafe, getNameUnchecked, getKeyPath, getKeyPathUnsafe, getKeyPathUnchecked, getIndexNames, getIndexNamesUnsafe, getIndexNamesUnchecked, getTransaction, getTransactionUnsafe, getTransactionUnchecked, getAutoIncrement, IDBObjectStore(..), gTypeIDBObjectStore) 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 Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) 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) import JSDOM.Enums -- | put :: (MonadDOM m) => IDBObjectStore -> JSVal -> JSVal -> m (Maybe IDBRequest) put self value key = liftDOM ((self ^. jsf "put" [toJSVal value, toJSVal key]) >>= fromJSVal) -- | put_ :: (MonadDOM m) => IDBObjectStore -> JSVal -> JSVal -> m () put_ self value key = liftDOM (void (self ^. jsf "put" [toJSVal value, toJSVal key])) -- | putUnsafe :: (MonadDOM m, HasCallStack) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest putUnsafe self value key = liftDOM (((self ^. jsf "put" [toJSVal value, toJSVal key]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | putUnchecked :: (MonadDOM m) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest putUnchecked self value key = liftDOM ((self ^. jsf "put" [toJSVal value, toJSVal key]) >>= fromJSValUnchecked) -- | add :: (MonadDOM m) => IDBObjectStore -> JSVal -> JSVal -> m (Maybe IDBRequest) add self value key = liftDOM ((self ^. jsf "add" [toJSVal value, toJSVal key]) >>= fromJSVal) -- | add_ :: (MonadDOM m) => IDBObjectStore -> JSVal -> JSVal -> m () add_ self value key = liftDOM (void (self ^. jsf "add" [toJSVal value, toJSVal key])) -- | addUnsafe :: (MonadDOM m, HasCallStack) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest addUnsafe self value key = liftDOM (((self ^. jsf "add" [toJSVal value, toJSVal key]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | addUnchecked :: (MonadDOM m) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest addUnchecked self value key = liftDOM ((self ^. jsf "add" [toJSVal value, toJSVal key]) >>= fromJSValUnchecked) -- | deleteRange :: (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest) deleteRange self keyRange = liftDOM ((self ^. jsf "delete" [toJSVal keyRange]) >>= fromJSVal) -- | deleteRange_ :: (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m () deleteRange_ self keyRange = liftDOM (void (self ^. jsf "delete" [toJSVal keyRange])) -- | deleteRangeUnsafe :: (MonadDOM m, HasCallStack) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest deleteRangeUnsafe self keyRange = liftDOM (((self ^. jsf "delete" [toJSVal keyRange]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | deleteRangeUnchecked :: (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest deleteRangeUnchecked self keyRange = liftDOM ((self ^. jsf "delete" [toJSVal keyRange]) >>= fromJSValUnchecked) -- | delete :: (MonadDOM m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) delete self key = liftDOM ((self ^. jsf "delete" [toJSVal key]) >>= fromJSVal) -- | delete_ :: (MonadDOM m) => IDBObjectStore -> JSVal -> m () delete_ self key = liftDOM (void (self ^. jsf "delete" [toJSVal key])) -- | deleteUnsafe :: (MonadDOM m, HasCallStack) => IDBObjectStore -> JSVal -> m IDBRequest deleteUnsafe self key = liftDOM (((self ^. jsf "delete" [toJSVal key]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | deleteUnchecked :: (MonadDOM m) => IDBObjectStore -> JSVal -> m IDBRequest deleteUnchecked self key = liftDOM ((self ^. jsf "delete" [toJSVal key]) >>= fromJSValUnchecked) -- | getRange :: (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest) getRange self key = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal) -- | getRange_ :: (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m () getRange_ self key = liftDOM (void (self ^. jsf "get" [toJSVal key])) -- | getRangeUnsafe :: (MonadDOM m, HasCallStack) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest getRangeUnsafe self key = liftDOM (((self ^. jsf "get" [toJSVal key]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getRangeUnchecked :: (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest getRangeUnchecked self key = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSValUnchecked) -- | get :: (MonadDOM m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) get self key = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal) -- | get_ :: (MonadDOM m) => IDBObjectStore -> JSVal -> m () get_ self key = liftDOM (void (self ^. jsf "get" [toJSVal key])) -- | getUnsafe :: (MonadDOM m, HasCallStack) => IDBObjectStore -> JSVal -> m IDBRequest getUnsafe self key = liftDOM (((self ^. jsf "get" [toJSVal key]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getUnchecked :: (MonadDOM m) => IDBObjectStore -> JSVal -> m IDBRequest getUnchecked self key = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSValUnchecked) -- | clear :: (MonadDOM m) => IDBObjectStore -> m (Maybe IDBRequest) clear self = liftDOM ((self ^. jsf "clear" ()) >>= fromJSVal) -- | clear_ :: (MonadDOM m) => IDBObjectStore -> m () clear_ self = liftDOM (void (self ^. jsf "clear" ())) -- | clearUnsafe :: (MonadDOM m, HasCallStack) => IDBObjectStore -> m IDBRequest clearUnsafe self = liftDOM (((self ^. jsf "clear" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | clearUnchecked :: (MonadDOM m) => IDBObjectStore -> m IDBRequest clearUnchecked self = liftDOM ((self ^. jsf "clear" ()) >>= fromJSValUnchecked) -- | openCursorRange :: (MonadDOM m, ToJSString direction) => IDBObjectStore -> Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest) openCursorRange self range direction = liftDOM ((self ^. jsf "openCursor" [toJSVal range, toJSVal direction]) >>= fromJSVal) -- | openCursorRange_ :: (MonadDOM m, ToJSString direction) => IDBObjectStore -> Maybe IDBKeyRange -> direction -> m () openCursorRange_ self range direction = liftDOM (void (self ^. jsf "openCursor" [toJSVal range, toJSVal direction])) -- | openCursorRangeUnsafe :: (MonadDOM m, ToJSString direction, HasCallStack) => IDBObjectStore -> Maybe IDBKeyRange -> direction -> m IDBRequest openCursorRangeUnsafe self range direction = liftDOM (((self ^. jsf "openCursor" [toJSVal range, toJSVal direction]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | openCursorRangeUnchecked :: (MonadDOM m, ToJSString direction) => IDBObjectStore -> Maybe IDBKeyRange -> direction -> m IDBRequest openCursorRangeUnchecked self range direction = liftDOM ((self ^. jsf "openCursor" [toJSVal range, toJSVal direction]) >>= fromJSValUnchecked) -- | openCursor :: (MonadDOM m, ToJSString direction) => IDBObjectStore -> JSVal -> direction -> m (Maybe IDBRequest) openCursor self key direction = liftDOM ((self ^. jsf "openCursor" [toJSVal key, toJSVal direction]) >>= fromJSVal) -- | openCursor_ :: (MonadDOM m, ToJSString direction) => IDBObjectStore -> JSVal -> direction -> m () openCursor_ self key direction = liftDOM (void (self ^. jsf "openCursor" [toJSVal key, toJSVal direction])) -- | openCursorUnsafe :: (MonadDOM m, ToJSString direction, HasCallStack) => IDBObjectStore -> JSVal -> direction -> m IDBRequest openCursorUnsafe self key direction = liftDOM (((self ^. jsf "openCursor" [toJSVal key, toJSVal direction]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | openCursorUnchecked :: (MonadDOM m, ToJSString direction) => IDBObjectStore -> JSVal -> direction -> m IDBRequest openCursorUnchecked self key direction = liftDOM ((self ^. jsf "openCursor" [toJSVal key, toJSVal direction]) >>= fromJSValUnchecked) -- | createIndex' :: (MonadDOM m, ToJSString name, ToJSString keyPath, IsDictionary options) => IDBObjectStore -> name -> [keyPath] -> Maybe options -> m (Maybe IDBIndex) createIndex' self name keyPath options = liftDOM ((self ^. jsf "createIndex" [toJSVal name, toJSVal (array keyPath), toJSVal options]) >>= fromJSVal) -- | createIndex'_ :: (MonadDOM m, ToJSString name, ToJSString keyPath, IsDictionary options) => IDBObjectStore -> name -> [keyPath] -> Maybe options -> m () createIndex'_ self name keyPath options = liftDOM (void (self ^. jsf "createIndex" [toJSVal name, toJSVal (array keyPath), toJSVal options])) -- | createIndex'Unsafe :: (MonadDOM m, ToJSString name, ToJSString keyPath, IsDictionary options, HasCallStack) => IDBObjectStore -> name -> [keyPath] -> Maybe options -> m IDBIndex createIndex'Unsafe self name keyPath options = liftDOM (((self ^. jsf "createIndex" [toJSVal name, toJSVal (array keyPath), toJSVal options]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createIndex'Unchecked :: (MonadDOM m, ToJSString name, ToJSString keyPath, IsDictionary options) => IDBObjectStore -> name -> [keyPath] -> Maybe options -> m IDBIndex createIndex'Unchecked self name keyPath options = liftDOM ((self ^. jsf "createIndex" [toJSVal name, toJSVal (array keyPath), toJSVal options]) >>= fromJSValUnchecked) -- | createIndex :: (MonadDOM m, ToJSString name, ToJSString keyPath, IsDictionary options) => IDBObjectStore -> name -> keyPath -> Maybe options -> m (Maybe IDBIndex) createIndex self name keyPath options = liftDOM ((self ^. jsf "createIndex" [toJSVal name, toJSVal keyPath, toJSVal options]) >>= fromJSVal) -- | createIndex_ :: (MonadDOM m, ToJSString name, ToJSString keyPath, IsDictionary options) => IDBObjectStore -> name -> keyPath -> Maybe options -> m () createIndex_ self name keyPath options = liftDOM (void (self ^. jsf "createIndex" [toJSVal name, toJSVal keyPath, toJSVal options])) -- | createIndexUnsafe :: (MonadDOM m, ToJSString name, ToJSString keyPath, IsDictionary options, HasCallStack) => IDBObjectStore -> name -> keyPath -> Maybe options -> m IDBIndex createIndexUnsafe self name keyPath options = liftDOM (((self ^. jsf "createIndex" [toJSVal name, toJSVal keyPath, toJSVal options]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createIndexUnchecked :: (MonadDOM m, ToJSString name, ToJSString keyPath, IsDictionary options) => IDBObjectStore -> name -> keyPath -> Maybe options -> m IDBIndex createIndexUnchecked self name keyPath options = liftDOM ((self ^. jsf "createIndex" [toJSVal name, toJSVal keyPath, toJSVal options]) >>= fromJSValUnchecked) -- | index :: (MonadDOM m, ToJSString name) => IDBObjectStore -> name -> m (Maybe IDBIndex) index self name = liftDOM ((self ^. jsf "index" [toJSVal name]) >>= fromJSVal) -- | index_ :: (MonadDOM m, ToJSString name) => IDBObjectStore -> name -> m () index_ self name = liftDOM (void (self ^. jsf "index" [toJSVal name])) -- | indexUnsafe :: (MonadDOM m, ToJSString name, HasCallStack) => IDBObjectStore -> name -> m IDBIndex indexUnsafe self name = liftDOM (((self ^. jsf "index" [toJSVal name]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | indexUnchecked :: (MonadDOM m, ToJSString name) => IDBObjectStore -> name -> m IDBIndex indexUnchecked self name = liftDOM ((self ^. jsf "index" [toJSVal name]) >>= fromJSValUnchecked) -- | deleteIndex :: (MonadDOM m, ToJSString name) => IDBObjectStore -> name -> m () deleteIndex self name = liftDOM (void (self ^. jsf "deleteIndex" [toJSVal name])) -- | countRange :: (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest) countRange self range = liftDOM ((self ^. jsf "count" [toJSVal range]) >>= fromJSVal) -- | countRange_ :: (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m () countRange_ self range = liftDOM (void (self ^. jsf "count" [toJSVal range])) -- | countRangeUnsafe :: (MonadDOM m, HasCallStack) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest countRangeUnsafe self range = liftDOM (((self ^. jsf "count" [toJSVal range]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | countRangeUnchecked :: (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest countRangeUnchecked self range = liftDOM ((self ^. jsf "count" [toJSVal range]) >>= fromJSValUnchecked) -- | count :: (MonadDOM m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) count self key = liftDOM ((self ^. jsf "count" [toJSVal key]) >>= fromJSVal) -- | count_ :: (MonadDOM m) => IDBObjectStore -> JSVal -> m () count_ self key = liftDOM (void (self ^. jsf "count" [toJSVal key])) -- | countUnsafe :: (MonadDOM m, HasCallStack) => IDBObjectStore -> JSVal -> m IDBRequest countUnsafe self key = liftDOM (((self ^. jsf "count" [toJSVal key]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | countUnchecked :: (MonadDOM m) => IDBObjectStore -> JSVal -> m IDBRequest countUnchecked self key = liftDOM ((self ^. jsf "count" [toJSVal key]) >>= fromJSValUnchecked) -- | getName :: (MonadDOM m, FromJSString result) => IDBObjectStore -> m (Maybe result) getName self = liftDOM ((self ^. js "name") >>= fromMaybeJSString) -- | getNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => IDBObjectStore -> m result getNameUnsafe self = liftDOM (((self ^. js "name") >>= fromMaybeJSString) >>= maybe (Prelude.error "Nothing to return") return) -- | getNameUnchecked :: (MonadDOM m, FromJSString result) => IDBObjectStore -> m result getNameUnchecked self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked) -- | getKeyPath :: (MonadDOM m) => IDBObjectStore -> m (Maybe IDBAny) getKeyPath self = liftDOM ((self ^. js "keyPath") >>= fromJSVal) -- | getKeyPathUnsafe :: (MonadDOM m, HasCallStack) => IDBObjectStore -> m IDBAny getKeyPathUnsafe self = liftDOM (((self ^. js "keyPath") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getKeyPathUnchecked :: (MonadDOM m) => IDBObjectStore -> m IDBAny getKeyPathUnchecked self = liftDOM ((self ^. js "keyPath") >>= fromJSValUnchecked) -- | getIndexNames :: (MonadDOM m) => IDBObjectStore -> m (Maybe DOMStringList) getIndexNames self = liftDOM ((self ^. js "indexNames") >>= fromJSVal) -- | getIndexNamesUnsafe :: (MonadDOM m, HasCallStack) => IDBObjectStore -> m DOMStringList getIndexNamesUnsafe self = liftDOM (((self ^. js "indexNames") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getIndexNamesUnchecked :: (MonadDOM m) => IDBObjectStore -> m DOMStringList getIndexNamesUnchecked self = liftDOM ((self ^. js "indexNames") >>= fromJSValUnchecked) -- | getTransaction :: (MonadDOM m) => IDBObjectStore -> m (Maybe IDBTransaction) getTransaction self = liftDOM ((self ^. js "transaction") >>= fromJSVal) -- | getTransactionUnsafe :: (MonadDOM m, HasCallStack) => IDBObjectStore -> m IDBTransaction getTransactionUnsafe self = liftDOM (((self ^. js "transaction") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getTransactionUnchecked :: (MonadDOM m) => IDBObjectStore -> m IDBTransaction getTransactionUnchecked self = liftDOM ((self ^. js "transaction") >>= fromJSValUnchecked) -- | getAutoIncrement :: (MonadDOM m) => IDBObjectStore -> m Bool getAutoIncrement self = liftDOM ((self ^. js "autoIncrement") >>= valToBool)