{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.IDBIndex (openCursorRange, openCursor, openKeyCursorRange, openKeyCursor, getRange, get, getKeyRange, getKey, countRange, count, getName, getObjectStore, getKeyPath, getMultiEntry, getUnique, IDBIndex, castToIDBIndex, gTypeIDBIndex) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) 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 Language.Javascript.JSaddle.DOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName) import Language.Javascript.JSaddle.DOM.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) -- | openCursor :: (MonadDOM m, ToJSString direction) => IDBIndex -> JSVal -> direction -> m (Maybe IDBRequest) openCursor self key direction = liftDOM ((self ^. jsf "openCursor" [toJSVal key, toJSVal direction]) >>= fromJSVal) -- | 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) -- | openKeyCursor :: (MonadDOM m, ToJSString direction) => IDBIndex -> JSVal -> direction -> m (Maybe IDBRequest) openKeyCursor self key direction = liftDOM ((self ^. jsf "openKeyCursor" [toJSVal key, toJSVal direction]) >>= fromJSVal) -- | getRange :: (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest) getRange self key = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal) -- | get :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) get self key = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal) -- | getKeyRange :: (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest) getKeyRange self key = liftDOM ((self ^. jsf "getKey" [toJSVal key]) >>= fromJSVal) -- | getKey :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) getKey self key = liftDOM ((self ^. jsf "getKey" [toJSVal key]) >>= fromJSVal) -- | countRange :: (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest) countRange self range = liftDOM ((self ^. jsf "count" [toJSVal range]) >>= fromJSVal) -- | count :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) count self key = liftDOM ((self ^. jsf "count" [toJSVal key]) >>= fromJSVal) -- | 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) -- | getKeyPath :: (MonadDOM m) => IDBIndex -> m (Maybe IDBAny) getKeyPath self = liftDOM ((self ^. js "keyPath") >>= fromJSVal) -- | 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)