{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.HTMLSelectElement
(item, item_, itemUnsafe, itemUnchecked, namedItem, namedItem_,
namedItemUnsafe, namedItemUnchecked, addBefore, removeThis, remove,
checkValidity, checkValidity_, reportValidity, reportValidity_,
setCustomValidity, setAutofocus, getAutofocus, setDisabled,
getDisabled, getForm, getFormUnsafe, getFormUnchecked, setMultiple,
getMultiple, setName, getName, setRequired, getRequired, setSize,
getSize, getType, getOptions, setLength, getLength,
getSelectedOptions, setSelectedIndex, getSelectedIndex, setValue,
getValue, getWillValidate, getValidity, getValidationMessage,
getLabels, setAutocomplete, getAutocomplete, HTMLSelectElement(..),
gTypeHTMLSelectElement)
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 Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
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, unsafeEventNameAsync)
import JSDOM.Enums
item ::
(MonadDOM m) =>
HTMLSelectElement -> Word -> m (Maybe HTMLOptionElement)
item :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> Word -> m (Maybe HTMLOptionElement)
item HTMLSelectElement
self Word
index
= DOM (Maybe HTMLOptionElement) -> m (Maybe HTMLOptionElement)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"item" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]) JSM JSVal
-> (JSVal -> DOM (Maybe HTMLOptionElement))
-> DOM (Maybe HTMLOptionElement)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe HTMLOptionElement)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
item_ :: (MonadDOM m) => HTMLSelectElement -> Word -> m ()
item_ :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> Word -> m ()
item_ HTMLSelectElement
self Word
index
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"item" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]))
itemUnsafe ::
(MonadDOM m, HasCallStack) =>
HTMLSelectElement -> Word -> m HTMLOptionElement
itemUnsafe :: forall (m :: * -> *).
(MonadDOM m, HasCallStack) =>
HTMLSelectElement -> Word -> m HTMLOptionElement
itemUnsafe HTMLSelectElement
self Word
index
= DOM HTMLOptionElement -> m HTMLOptionElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"item" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]) JSM JSVal
-> (JSVal -> DOM (Maybe HTMLOptionElement))
-> DOM (Maybe HTMLOptionElement)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe HTMLOptionElement)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe HTMLOptionElement)
-> (Maybe HTMLOptionElement -> DOM HTMLOptionElement)
-> DOM HTMLOptionElement
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM HTMLOptionElement
-> (HTMLOptionElement -> DOM HTMLOptionElement)
-> Maybe HTMLOptionElement
-> DOM HTMLOptionElement
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM HTMLOptionElement
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") HTMLOptionElement -> DOM HTMLOptionElement
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
itemUnchecked ::
(MonadDOM m) => HTMLSelectElement -> Word -> m HTMLOptionElement
itemUnchecked :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> Word -> m HTMLOptionElement
itemUnchecked HTMLSelectElement
self Word
index
= DOM HTMLOptionElement -> m HTMLOptionElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"item" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]) JSM JSVal
-> (JSVal -> DOM HTMLOptionElement) -> DOM HTMLOptionElement
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM HTMLOptionElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
namedItem ::
(MonadDOM m, ToJSString name) =>
HTMLSelectElement -> name -> m (Maybe HTMLOptionElement)
namedItem :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLSelectElement -> name -> m (Maybe HTMLOptionElement)
namedItem HTMLSelectElement
self name
name
= DOM (Maybe HTMLOptionElement) -> m (Maybe HTMLOptionElement)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"namedItem" [name -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal name
name]) JSM JSVal
-> (JSVal -> DOM (Maybe HTMLOptionElement))
-> DOM (Maybe HTMLOptionElement)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe HTMLOptionElement)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
namedItem_ ::
(MonadDOM m, ToJSString name) => HTMLSelectElement -> name -> m ()
namedItem_ :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLSelectElement -> name -> m ()
namedItem_ HTMLSelectElement
self name
name
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"namedItem" [name -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal name
name]))
namedItemUnsafe ::
(MonadDOM m, ToJSString name, HasCallStack) =>
HTMLSelectElement -> name -> m HTMLOptionElement
namedItemUnsafe :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name, HasCallStack) =>
HTMLSelectElement -> name -> m HTMLOptionElement
namedItemUnsafe HTMLSelectElement
self name
name
= DOM HTMLOptionElement -> m HTMLOptionElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"namedItem" [name -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal name
name]) JSM JSVal
-> (JSVal -> DOM (Maybe HTMLOptionElement))
-> DOM (Maybe HTMLOptionElement)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe HTMLOptionElement)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe HTMLOptionElement)
-> (Maybe HTMLOptionElement -> DOM HTMLOptionElement)
-> DOM HTMLOptionElement
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM HTMLOptionElement
-> (HTMLOptionElement -> DOM HTMLOptionElement)
-> Maybe HTMLOptionElement
-> DOM HTMLOptionElement
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM HTMLOptionElement
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") HTMLOptionElement -> DOM HTMLOptionElement
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
namedItemUnchecked ::
(MonadDOM m, ToJSString name) =>
HTMLSelectElement -> name -> m HTMLOptionElement
namedItemUnchecked :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLSelectElement -> name -> m HTMLOptionElement
namedItemUnchecked HTMLSelectElement
self name
name
= DOM HTMLOptionElement -> m HTMLOptionElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"namedItem" [name -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal name
name]) JSM JSVal
-> (JSVal -> DOM HTMLOptionElement) -> DOM HTMLOptionElement
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM HTMLOptionElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
addBefore ::
(MonadDOM m, IsHTMLOptionElementOrGroup element,
IsHTMLElementOrLong before) =>
HTMLSelectElement -> element -> Maybe before -> m ()
addBefore :: forall (m :: * -> *) element before.
(MonadDOM m, IsHTMLOptionElementOrGroup element,
IsHTMLElementOrLong before) =>
HTMLSelectElement -> element -> Maybe before -> m ()
addBefore HTMLSelectElement
self element
element Maybe before
before
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"add" [element -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal element
element, Maybe before -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe before
before]))
removeThis :: (MonadDOM m) => HTMLSelectElement -> m ()
removeThis :: forall (m :: * -> *). MonadDOM m => HTMLSelectElement -> m ()
removeThis HTMLSelectElement
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"remove" ()))
remove :: (MonadDOM m) => HTMLSelectElement -> Int -> m ()
remove :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> Int -> m ()
remove HTMLSelectElement
self Int
index
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"remove" [Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Int
index]))
checkValidity :: (MonadDOM m) => HTMLSelectElement -> m Bool
checkValidity :: forall (m :: * -> *). MonadDOM m => HTMLSelectElement -> m Bool
checkValidity HTMLSelectElement
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"checkValidity" ()) JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
checkValidity_ :: (MonadDOM m) => HTMLSelectElement -> m ()
checkValidity_ :: forall (m :: * -> *). MonadDOM m => HTMLSelectElement -> m ()
checkValidity_ HTMLSelectElement
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"checkValidity" ()))
reportValidity :: (MonadDOM m) => HTMLSelectElement -> m Bool
reportValidity :: forall (m :: * -> *). MonadDOM m => HTMLSelectElement -> m Bool
reportValidity HTMLSelectElement
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"reportValidity" ()) JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
reportValidity_ :: (MonadDOM m) => HTMLSelectElement -> m ()
reportValidity_ :: forall (m :: * -> *). MonadDOM m => HTMLSelectElement -> m ()
reportValidity_ HTMLSelectElement
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"reportValidity" ()))
setCustomValidity ::
(MonadDOM m, ToJSString error) =>
HTMLSelectElement -> error -> m ()
setCustomValidity :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLSelectElement -> name -> m ()
setCustomValidity HTMLSelectElement
self error
error
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"setCustomValidity" [error -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal error
error]))
setAutofocus :: (MonadDOM m) => HTMLSelectElement -> Bool -> m ()
setAutofocus :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> Bool -> m ()
setAutofocus HTMLSelectElement
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLSelectElement
self HTMLSelectElement
-> Getting (DOM ()) HTMLSelectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"autofocus" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getAutofocus :: (MonadDOM m) => HTMLSelectElement -> m Bool
getAutofocus :: forall (m :: * -> *). MonadDOM m => HTMLSelectElement -> m Bool
getAutofocus HTMLSelectElement
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"autofocus") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setDisabled :: (MonadDOM m) => HTMLSelectElement -> Bool -> m ()
setDisabled :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> Bool -> m ()
setDisabled HTMLSelectElement
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLSelectElement
self HTMLSelectElement
-> Getting (DOM ()) HTMLSelectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"disabled" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getDisabled :: (MonadDOM m) => HTMLSelectElement -> m Bool
getDisabled :: forall (m :: * -> *). MonadDOM m => HTMLSelectElement -> m Bool
getDisabled HTMLSelectElement
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"disabled") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getForm ::
(MonadDOM m) => HTMLSelectElement -> m (Maybe HTMLFormElement)
getForm :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> m (Maybe HTMLFormElement)
getForm HTMLSelectElement
self = DOM (Maybe HTMLFormElement) -> m (Maybe HTMLFormElement)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"form") JSM JSVal
-> (JSVal -> DOM (Maybe HTMLFormElement))
-> DOM (Maybe HTMLFormElement)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe HTMLFormElement)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getFormUnsafe ::
(MonadDOM m, HasCallStack) =>
HTMLSelectElement -> m HTMLFormElement
getFormUnsafe :: forall (m :: * -> *).
(MonadDOM m, HasCallStack) =>
HTMLSelectElement -> m HTMLFormElement
getFormUnsafe HTMLSelectElement
self
= DOM HTMLFormElement -> m HTMLFormElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"form") JSM JSVal
-> (JSVal -> DOM (Maybe HTMLFormElement))
-> DOM (Maybe HTMLFormElement)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe HTMLFormElement)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe HTMLFormElement)
-> (Maybe HTMLFormElement -> DOM HTMLFormElement)
-> DOM HTMLFormElement
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM HTMLFormElement
-> (HTMLFormElement -> DOM HTMLFormElement)
-> Maybe HTMLFormElement
-> DOM HTMLFormElement
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM HTMLFormElement
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") HTMLFormElement -> DOM HTMLFormElement
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getFormUnchecked ::
(MonadDOM m) => HTMLSelectElement -> m HTMLFormElement
getFormUnchecked :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> m HTMLFormElement
getFormUnchecked HTMLSelectElement
self
= DOM HTMLFormElement -> m HTMLFormElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"form") JSM JSVal -> (JSVal -> DOM HTMLFormElement) -> DOM HTMLFormElement
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM HTMLFormElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setMultiple :: (MonadDOM m) => HTMLSelectElement -> Bool -> m ()
setMultiple :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> Bool -> m ()
setMultiple HTMLSelectElement
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLSelectElement
self HTMLSelectElement
-> Getting (DOM ()) HTMLSelectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"multiple" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getMultiple :: (MonadDOM m) => HTMLSelectElement -> m Bool
getMultiple :: forall (m :: * -> *). MonadDOM m => HTMLSelectElement -> m Bool
getMultiple HTMLSelectElement
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"multiple") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setName ::
(MonadDOM m, ToJSString val) => HTMLSelectElement -> val -> m ()
setName :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLSelectElement -> name -> m ()
setName HTMLSelectElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLSelectElement
self HTMLSelectElement
-> Getting (DOM ()) HTMLSelectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"name" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getName ::
(MonadDOM m, FromJSString result) => HTMLSelectElement -> m result
getName :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLSelectElement -> m result
getName HTMLSelectElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"name") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setRequired :: (MonadDOM m) => HTMLSelectElement -> Bool -> m ()
setRequired :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> Bool -> m ()
setRequired HTMLSelectElement
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLSelectElement
self HTMLSelectElement
-> Getting (DOM ()) HTMLSelectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"required" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getRequired :: (MonadDOM m) => HTMLSelectElement -> m Bool
getRequired :: forall (m :: * -> *). MonadDOM m => HTMLSelectElement -> m Bool
getRequired HTMLSelectElement
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"required") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setSize :: (MonadDOM m) => HTMLSelectElement -> Word -> m ()
setSize :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> Word -> m ()
setSize HTMLSelectElement
self Word
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLSelectElement
self HTMLSelectElement
-> Getting (DOM ()) HTMLSelectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"size" (Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
val))
getSize :: (MonadDOM m) => HTMLSelectElement -> m Word
getSize :: forall (m :: * -> *). MonadDOM m => HTMLSelectElement -> m Word
getSize HTMLSelectElement
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"size") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getType ::
(MonadDOM m, FromJSString result) => HTMLSelectElement -> m result
getType :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLSelectElement -> m result
getType HTMLSelectElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"type") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getOptions ::
(MonadDOM m) => HTMLSelectElement -> m HTMLOptionsCollection
getOptions :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> m HTMLOptionsCollection
getOptions HTMLSelectElement
self
= DOM HTMLOptionsCollection -> m HTMLOptionsCollection
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"options") JSM JSVal
-> (JSVal -> DOM HTMLOptionsCollection)
-> DOM HTMLOptionsCollection
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM HTMLOptionsCollection
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setLength :: (MonadDOM m) => HTMLSelectElement -> Word -> m ()
setLength :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> Word -> m ()
setLength HTMLSelectElement
self Word
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLSelectElement
self HTMLSelectElement
-> Getting (DOM ()) HTMLSelectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"length" (Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
val))
getLength :: (MonadDOM m) => HTMLSelectElement -> m Word
getLength :: forall (m :: * -> *). MonadDOM m => HTMLSelectElement -> m Word
getLength HTMLSelectElement
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"length") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getSelectedOptions ::
(MonadDOM m) => HTMLSelectElement -> m HTMLCollection
getSelectedOptions :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> m HTMLCollection
getSelectedOptions HTMLSelectElement
self
= DOM HTMLCollection -> m HTMLCollection
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"selectedOptions") JSM JSVal -> (JSVal -> DOM HTMLCollection) -> DOM HTMLCollection
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM HTMLCollection
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setSelectedIndex ::
(MonadDOM m) => HTMLSelectElement -> Int -> m ()
setSelectedIndex :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> Int -> m ()
setSelectedIndex HTMLSelectElement
self Int
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLSelectElement
self HTMLSelectElement
-> Getting (DOM ()) HTMLSelectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"selectedIndex" (Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Int
val))
getSelectedIndex :: (MonadDOM m) => HTMLSelectElement -> m Int
getSelectedIndex :: forall (m :: * -> *). MonadDOM m => HTMLSelectElement -> m Int
getSelectedIndex HTMLSelectElement
self
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Int
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> JSM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"selectedIndex") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
setValue ::
(MonadDOM m, ToJSString val) => HTMLSelectElement -> val -> m ()
setValue :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLSelectElement -> name -> m ()
setValue HTMLSelectElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLSelectElement
self HTMLSelectElement
-> Getting (DOM ()) HTMLSelectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"value" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getValue ::
(MonadDOM m, FromJSString result) => HTMLSelectElement -> m result
getValue :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLSelectElement -> m result
getValue HTMLSelectElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"value") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getWillValidate :: (MonadDOM m) => HTMLSelectElement -> m Bool
getWillValidate :: forall (m :: * -> *). MonadDOM m => HTMLSelectElement -> m Bool
getWillValidate HTMLSelectElement
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"willValidate") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getValidity :: (MonadDOM m) => HTMLSelectElement -> m ValidityState
getValidity :: forall (m :: * -> *).
MonadDOM m =>
HTMLSelectElement -> m ValidityState
getValidity HTMLSelectElement
self
= DOM ValidityState -> m ValidityState
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"validity") JSM JSVal -> (JSVal -> DOM ValidityState) -> DOM ValidityState
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM ValidityState
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getValidationMessage ::
(MonadDOM m, FromJSString result) => HTMLSelectElement -> m result
getValidationMessage :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLSelectElement -> m result
getValidationMessage HTMLSelectElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"validationMessage") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getLabels :: (MonadDOM m) => HTMLSelectElement -> m NodeList
getLabels :: forall (m :: * -> *). MonadDOM m => HTMLSelectElement -> m NodeList
getLabels HTMLSelectElement
self
= DOM NodeList -> m NodeList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"labels") JSM JSVal -> (JSVal -> DOM NodeList) -> DOM NodeList
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM NodeList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setAutocomplete ::
(MonadDOM m, ToJSString val) => HTMLSelectElement -> val -> m ()
setAutocomplete :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLSelectElement -> name -> m ()
setAutocomplete HTMLSelectElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLSelectElement
self HTMLSelectElement
-> Getting (DOM ()) HTMLSelectElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"autocomplete" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getAutocomplete ::
(MonadDOM m, FromJSString result) => HTMLSelectElement -> m result
getAutocomplete :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLSelectElement -> m result
getAutocomplete HTMLSelectElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLSelectElement
self HTMLSelectElement
-> Getting (JSM JSVal) HTMLSelectElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLSelectElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"autocomplete") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)