{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.IDBIndex (openCursorRange, openCursorRange_, openCursorRangeUnsafe, openCursorRangeUnchecked, openCursor, openCursor_, openCursorUnsafe, openCursorUnchecked, openKeyCursorRange, openKeyCursorRange_, openKeyCursorRangeUnsafe, openKeyCursorRangeUnchecked, openKeyCursor, openKeyCursor_, openKeyCursorUnsafe, openKeyCursorUnchecked, getRange, getRange_, getRangeUnsafe, getRangeUnchecked, get, get_, getUnsafe, getUnchecked, getKeyRange, getKeyRange_, getKeyRangeUnsafe, getKeyRangeUnchecked, getKey, getKey_, getKeyUnsafe, getKeyUnchecked, countRange, countRange_, countRangeUnsafe, countRangeUnchecked, count, count_, countUnsafe, countUnchecked, getName, getObjectStore, getObjectStoreUnsafe, getObjectStoreUnchecked, getKeyPath, getKeyPathUnsafe, getKeyPathUnchecked, getMultiEntry, getUnique, IDBIndex(..), gTypeIDBIndex) 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 -- | openCursorRange :: (MonadDOM m, ToJSString direction) => IDBIndex -> Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest) openCursorRange self range direction = liftDOM ((self ^. jsf "openCursor" [toJSVal range, toJSVal direction]) >>= fromJSVal) -- | openCursorRange_ :: (MonadDOM m, ToJSString direction) => IDBIndex -> Maybe IDBKeyRange -> direction -> m () openCursorRange_ self range direction = liftDOM (void (self ^. jsf "openCursor" [toJSVal range, toJSVal direction])) -- | openCursorRangeUnsafe :: (MonadDOM m, ToJSString direction, HasCallStack) => IDBIndex -> 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) => IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest openCursorRangeUnchecked self range direction = liftDOM ((self ^. jsf "openCursor" [toJSVal range, toJSVal direction]) >>= fromJSValUnchecked) -- | openCursor :: (MonadDOM m, ToJSString direction) => IDBIndex -> JSVal -> direction -> m (Maybe IDBRequest) openCursor self key direction = liftDOM ((self ^. jsf "openCursor" [toJSVal key, toJSVal direction]) >>= fromJSVal) -- | openCursor_ :: (MonadDOM m, ToJSString direction) => IDBIndex -> JSVal -> direction -> m () openCursor_ self key direction = liftDOM (void (self ^. jsf "openCursor" [toJSVal key, toJSVal direction])) -- | openCursorUnsafe :: (MonadDOM m, ToJSString direction, HasCallStack) => IDBIndex -> 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) => IDBIndex -> JSVal -> direction -> m IDBRequest openCursorUnchecked self key direction = liftDOM ((self ^. jsf "openCursor" [toJSVal key, toJSVal direction]) >>= fromJSValUnchecked) -- | openKeyCursorRange :: (MonadDOM m, ToJSString direction) => IDBIndex -> Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest) openKeyCursorRange self range direction = liftDOM ((self ^. jsf "openKeyCursor" [toJSVal range, toJSVal direction]) >>= fromJSVal) -- | openKeyCursorRange_ :: (MonadDOM m, ToJSString direction) => IDBIndex -> Maybe IDBKeyRange -> direction -> m () openKeyCursorRange_ self range direction = liftDOM (void (self ^. jsf "openKeyCursor" [toJSVal range, toJSVal direction])) -- | openKeyCursorRangeUnsafe :: (MonadDOM m, ToJSString direction, HasCallStack) => IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest openKeyCursorRangeUnsafe self range direction = liftDOM (((self ^. jsf "openKeyCursor" [toJSVal range, toJSVal direction]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | openKeyCursorRangeUnchecked :: (MonadDOM m, ToJSString direction) => IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest openKeyCursorRangeUnchecked self range direction = liftDOM ((self ^. jsf "openKeyCursor" [toJSVal range, toJSVal direction]) >>= fromJSValUnchecked) -- | openKeyCursor :: (MonadDOM m, ToJSString direction) => IDBIndex -> JSVal -> direction -> m (Maybe IDBRequest) openKeyCursor self key direction = liftDOM ((self ^. jsf "openKeyCursor" [toJSVal key, toJSVal direction]) >>= fromJSVal) -- | openKeyCursor_ :: (MonadDOM m, ToJSString direction) => IDBIndex -> JSVal -> direction -> m () openKeyCursor_ self key direction = liftDOM (void (self ^. jsf "openKeyCursor" [toJSVal key, toJSVal direction])) -- | openKeyCursorUnsafe :: (MonadDOM m, ToJSString direction, HasCallStack) => IDBIndex -> JSVal -> direction -> m IDBRequest openKeyCursorUnsafe self key direction = liftDOM (((self ^. jsf "openKeyCursor" [toJSVal key, toJSVal direction]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | openKeyCursorUnchecked :: (MonadDOM m, ToJSString direction) => IDBIndex -> JSVal -> direction -> m IDBRequest openKeyCursorUnchecked self key direction = liftDOM ((self ^. jsf "openKeyCursor" [toJSVal key, toJSVal direction]) >>= fromJSValUnchecked) -- | getRange :: (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest) getRange self key = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal) -- | getRange_ :: (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m () getRange_ self key = liftDOM (void (self ^. jsf "get" [toJSVal key])) -- | getRangeUnsafe :: (MonadDOM m, HasCallStack) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest getRangeUnsafe self key = liftDOM (((self ^. jsf "get" [toJSVal key]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getRangeUnchecked :: (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest getRangeUnchecked self key = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSValUnchecked) -- | get :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) get self key = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal) -- | get_ :: (MonadDOM m) => IDBIndex -> JSVal -> m () get_ self key = liftDOM (void (self ^. jsf "get" [toJSVal key])) -- | getUnsafe :: (MonadDOM m, HasCallStack) => IDBIndex -> JSVal -> m IDBRequest getUnsafe self key = liftDOM (((self ^. jsf "get" [toJSVal key]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getUnchecked :: (MonadDOM m) => IDBIndex -> JSVal -> m IDBRequest getUnchecked self key = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSValUnchecked) -- | getKeyRange :: (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest) getKeyRange self key = liftDOM ((self ^. jsf "getKey" [toJSVal key]) >>= fromJSVal) -- | getKeyRange_ :: (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m () getKeyRange_ self key = liftDOM (void (self ^. jsf "getKey" [toJSVal key])) -- | getKeyRangeUnsafe :: (MonadDOM m, HasCallStack) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest getKeyRangeUnsafe self key = liftDOM (((self ^. jsf "getKey" [toJSVal key]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getKeyRangeUnchecked :: (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest getKeyRangeUnchecked self key = liftDOM ((self ^. jsf "getKey" [toJSVal key]) >>= fromJSValUnchecked) -- | getKey :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) getKey self key = liftDOM ((self ^. jsf "getKey" [toJSVal key]) >>= fromJSVal) -- | getKey_ :: (MonadDOM m) => IDBIndex -> JSVal -> m () getKey_ self key = liftDOM (void (self ^. jsf "getKey" [toJSVal key])) -- | getKeyUnsafe :: (MonadDOM m, HasCallStack) => IDBIndex -> JSVal -> m IDBRequest getKeyUnsafe self key = liftDOM (((self ^. jsf "getKey" [toJSVal key]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getKeyUnchecked :: (MonadDOM m) => IDBIndex -> JSVal -> m IDBRequest getKeyUnchecked self key = liftDOM ((self ^. jsf "getKey" [toJSVal key]) >>= fromJSValUnchecked) -- | countRange :: (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest) countRange self range = liftDOM ((self ^. jsf "count" [toJSVal range]) >>= fromJSVal) -- | countRange_ :: (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m () countRange_ self range = liftDOM (void (self ^. jsf "count" [toJSVal range])) -- | countRangeUnsafe :: (MonadDOM m, HasCallStack) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest countRangeUnsafe self range = liftDOM (((self ^. jsf "count" [toJSVal range]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | countRangeUnchecked :: (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest countRangeUnchecked self range = liftDOM ((self ^. jsf "count" [toJSVal range]) >>= fromJSValUnchecked) -- | count :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) count self key = liftDOM ((self ^. jsf "count" [toJSVal key]) >>= fromJSVal) -- | count_ :: (MonadDOM m) => IDBIndex -> JSVal -> m () count_ self key = liftDOM (void (self ^. jsf "count" [toJSVal key])) -- | countUnsafe :: (MonadDOM m, HasCallStack) => IDBIndex -> JSVal -> m IDBRequest countUnsafe self key = liftDOM (((self ^. jsf "count" [toJSVal key]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | countUnchecked :: (MonadDOM m) => IDBIndex -> JSVal -> m IDBRequest countUnchecked self key = liftDOM ((self ^. jsf "count" [toJSVal key]) >>= fromJSValUnchecked) -- | getName :: (MonadDOM m, FromJSString result) => IDBIndex -> m result getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked) -- | getObjectStore :: (MonadDOM m) => IDBIndex -> m (Maybe IDBObjectStore) getObjectStore self = liftDOM ((self ^. js "objectStore") >>= fromJSVal) -- | getObjectStoreUnsafe :: (MonadDOM m, HasCallStack) => IDBIndex -> m IDBObjectStore getObjectStoreUnsafe self = liftDOM (((self ^. js "objectStore") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getObjectStoreUnchecked :: (MonadDOM m) => IDBIndex -> m IDBObjectStore getObjectStoreUnchecked self = liftDOM ((self ^. js "objectStore") >>= fromJSValUnchecked) -- | getKeyPath :: (MonadDOM m) => IDBIndex -> m (Maybe IDBAny) getKeyPath self = liftDOM ((self ^. js "keyPath") >>= fromJSVal) -- | getKeyPathUnsafe :: (MonadDOM m, HasCallStack) => IDBIndex -> m IDBAny getKeyPathUnsafe self = liftDOM (((self ^. js "keyPath") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getKeyPathUnchecked :: (MonadDOM m) => IDBIndex -> m IDBAny getKeyPathUnchecked self = liftDOM ((self ^. js "keyPath") >>= fromJSValUnchecked) -- | getMultiEntry :: (MonadDOM m) => IDBIndex -> m Bool getMultiEntry self = liftDOM ((self ^. js "multiEntry") >>= valToBool) -- | getUnique :: (MonadDOM m) => IDBIndex -> m Bool getUnique self = liftDOM ((self ^. js "unique") >>= valToBool)