module JSDOM.Generated.IDBKeyRange
(only, only_, onlyUnsafe, onlyUnchecked, lowerBound, lowerBound_,
lowerBoundUnsafe, lowerBoundUnchecked, upperBound, upperBound_,
upperBoundUnsafe, upperBoundUnchecked, bound, bound_, boundUnsafe,
boundUnchecked, getLower, getUpper, getLowerOpen, getUpperOpen,
IDBKeyRange(..), gTypeIDBKeyRange)
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
only ::
(MonadDOM m) => IDBKeyRange -> JSVal -> m (Maybe IDBKeyRange)
only self value
= liftDOM ((self ^. jsf "only" [toJSVal value]) >>= fromJSVal)
only_ :: (MonadDOM m) => IDBKeyRange -> JSVal -> m ()
only_ self value
= liftDOM (void (self ^. jsf "only" [toJSVal value]))
onlyUnsafe ::
(MonadDOM m, HasCallStack) => IDBKeyRange -> JSVal -> m IDBKeyRange
onlyUnsafe self value
= liftDOM
(((self ^. jsf "only" [toJSVal value]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
onlyUnchecked ::
(MonadDOM m) => IDBKeyRange -> JSVal -> m IDBKeyRange
onlyUnchecked self value
= liftDOM
((self ^. jsf "only" [toJSVal value]) >>= fromJSValUnchecked)
lowerBound ::
(MonadDOM m) =>
IDBKeyRange -> JSVal -> Bool -> m (Maybe IDBKeyRange)
lowerBound self lower open
= liftDOM
((self ^. jsf "lowerBound" [toJSVal lower, toJSVal open]) >>=
fromJSVal)
lowerBound_ :: (MonadDOM m) => IDBKeyRange -> JSVal -> Bool -> m ()
lowerBound_ self lower open
= liftDOM
(void (self ^. jsf "lowerBound" [toJSVal lower, toJSVal open]))
lowerBoundUnsafe ::
(MonadDOM m, HasCallStack) =>
IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange
lowerBoundUnsafe self lower open
= liftDOM
(((self ^. jsf "lowerBound" [toJSVal lower, toJSVal open]) >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
lowerBoundUnchecked ::
(MonadDOM m) => IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange
lowerBoundUnchecked self lower open
= liftDOM
((self ^. jsf "lowerBound" [toJSVal lower, toJSVal open]) >>=
fromJSValUnchecked)
upperBound ::
(MonadDOM m) =>
IDBKeyRange -> JSVal -> Bool -> m (Maybe IDBKeyRange)
upperBound self upper open
= liftDOM
((self ^. jsf "upperBound" [toJSVal upper, toJSVal open]) >>=
fromJSVal)
upperBound_ :: (MonadDOM m) => IDBKeyRange -> JSVal -> Bool -> m ()
upperBound_ self upper open
= liftDOM
(void (self ^. jsf "upperBound" [toJSVal upper, toJSVal open]))
upperBoundUnsafe ::
(MonadDOM m, HasCallStack) =>
IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange
upperBoundUnsafe self upper open
= liftDOM
(((self ^. jsf "upperBound" [toJSVal upper, toJSVal open]) >>=
fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
upperBoundUnchecked ::
(MonadDOM m) => IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange
upperBoundUnchecked self upper open
= liftDOM
((self ^. jsf "upperBound" [toJSVal upper, toJSVal open]) >>=
fromJSValUnchecked)
bound ::
(MonadDOM m) =>
IDBKeyRange ->
JSVal -> JSVal -> Bool -> Bool -> m (Maybe IDBKeyRange)
bound self lower upper lowerOpen upperOpen
= liftDOM
((self ^. jsf "bound"
[toJSVal lower, toJSVal upper, toJSVal lowerOpen,
toJSVal upperOpen])
>>= fromJSVal)
bound_ ::
(MonadDOM m) =>
IDBKeyRange -> JSVal -> JSVal -> Bool -> Bool -> m ()
bound_ self lower upper lowerOpen upperOpen
= liftDOM
(void
(self ^. jsf "bound"
[toJSVal lower, toJSVal upper, toJSVal lowerOpen,
toJSVal upperOpen]))
boundUnsafe ::
(MonadDOM m, HasCallStack) =>
IDBKeyRange -> JSVal -> JSVal -> Bool -> Bool -> m IDBKeyRange
boundUnsafe self lower upper lowerOpen upperOpen
= liftDOM
(((self ^. jsf "bound"
[toJSVal lower, toJSVal upper, toJSVal lowerOpen,
toJSVal upperOpen])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
boundUnchecked ::
(MonadDOM m) =>
IDBKeyRange -> JSVal -> JSVal -> Bool -> Bool -> m IDBKeyRange
boundUnchecked self lower upper lowerOpen upperOpen
= liftDOM
((self ^. jsf "bound"
[toJSVal lower, toJSVal upper, toJSVal lowerOpen,
toJSVal upperOpen])
>>= fromJSValUnchecked)
getLower :: (MonadDOM m) => IDBKeyRange -> m JSVal
getLower self = liftDOM ((self ^. js "lower") >>= toJSVal)
getUpper :: (MonadDOM m) => IDBKeyRange -> m JSVal
getUpper self = liftDOM ((self ^. js "upper") >>= toJSVal)
getLowerOpen :: (MonadDOM m) => IDBKeyRange -> m Bool
getLowerOpen self
= liftDOM ((self ^. js "lowerOpen") >>= valToBool)
getUpperOpen :: (MonadDOM m) => IDBKeyRange -> m Bool
getUpperOpen self
= liftDOM ((self ^. js "upperOpen") >>= valToBool)