IDBObjectStoreParameters.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from IndexedDB-3 (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.IDBObjectStoreParameters
       (js_newIDBObjectStoreParameters, js_setKeyPath, js_getKeyPath, js_setAutoIncrement, js_getAutoIncrement, newIDBObjectStoreParameters, setKeyPath, getKeyPath, getKeyPathUnsafe, getKeyPathUnchecked, setAutoIncrement, getAutoIncrement, getAutoIncrementUnsafe, getAutoIncrementUnchecked, IDBObjectStoreParameters(..), gTypeIDBObjectStoreParameters)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(() => { return ({}); })"
        js_newIDBObjectStoreParameters :: IO IDBObjectStoreParameters
-- | <https://w3c.github.io/IndexedDB/#dictdef-idbobjectstoreparameters IDBObjectStoreParameters specification>
newIDBObjectStoreParameters :: (MonadDOM m) => m IDBObjectStoreParameters
newIDBObjectStoreParameters = liftDOM ((js_newIDBObjectStoreParameters))

foreign import javascript safe "(($1, $2) => { $1[\"keyPath\"] = $2; })"
        js_setKeyPath :: IDBObjectStoreParameters -> JSVal -> IO ()
-- | <https://w3c.github.io/IndexedDB/#dom-idbobjectstoreparameters-keypath IDBObjectStoreParameters.keyPath specification>
setKeyPath :: (MonadDOM m, IsStringOrSequenceString val) => IDBObjectStoreParameters -> Maybe val -> m ()
setKeyPath self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setKeyPath (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"keyPath\"]; })"
        js_getKeyPath :: IDBObjectStoreParameters -> IO JSVal
-- | <https://w3c.github.io/IndexedDB/#dom-idbobjectstoreparameters-keypath IDBObjectStoreParameters.keyPath specification>
getKeyPath :: (MonadDOM m) => IDBObjectStoreParameters -> m (Maybe StringOrSequenceString)
getKeyPath self = liftDOM (((js_getKeyPath (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/IndexedDB/#dom-idbobjectstoreparameters-keypath IDBObjectStoreParameters.keyPath specification>
getKeyPathUnsafe :: (MonadDOM m, HasCallStack) => IDBObjectStoreParameters -> m StringOrSequenceString
getKeyPathUnsafe self = liftDOM ((((js_getKeyPath (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/IndexedDB/#dom-idbobjectstoreparameters-keypath IDBObjectStoreParameters.keyPath specification>
getKeyPathUnchecked :: (MonadDOM m) => IDBObjectStoreParameters -> m StringOrSequenceString
getKeyPathUnchecked self = liftDOM ((pFromJSVal <$> (js_getKeyPath (self))))

foreign import javascript safe "(($1, $2) => { $1[\"autoIncrement\"] = $2; })"
        js_setAutoIncrement :: IDBObjectStoreParameters -> Bool -> IO ()
-- | <https://w3c.github.io/IndexedDB/#dom-idbobjectstoreparameters-autoincrement IDBObjectStoreParameters.autoIncrement specification>
setAutoIncrement :: (MonadDOM m) => IDBObjectStoreParameters -> Bool -> m ()
setAutoIncrement self val = liftDOM (void ((js_setAutoIncrement (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"autoIncrement\"]; })"
        js_getAutoIncrement :: IDBObjectStoreParameters -> IO JSVal
-- | <https://w3c.github.io/IndexedDB/#dom-idbobjectstoreparameters-autoincrement IDBObjectStoreParameters.autoIncrement specification>
getAutoIncrement :: (MonadDOM m) => IDBObjectStoreParameters -> m (Maybe Bool)
getAutoIncrement self = liftDOM (((js_getAutoIncrement (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/IndexedDB/#dom-idbobjectstoreparameters-autoincrement IDBObjectStoreParameters.autoIncrement specification>
getAutoIncrementUnsafe :: (MonadDOM m, HasCallStack) => IDBObjectStoreParameters -> m Bool
getAutoIncrementUnsafe self = liftDOM ((((js_getAutoIncrement (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/IndexedDB/#dom-idbobjectstoreparameters-autoincrement IDBObjectStoreParameters.autoIncrement specification>
getAutoIncrementUnchecked :: (MonadDOM m) => IDBObjectStoreParameters -> m Bool
getAutoIncrementUnchecked self = liftDOM ((pFromJSVal <$> (js_getAutoIncrement (self))))