{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.HTMLFormElement
(getAt, getAt_, getAtUnsafe, getAtUnchecked, get, get_, getUnsafe,
getUnchecked, submit, reset, checkValidity, checkValidity_,
reportValidity, reportValidity_, requestAutocomplete,
setAcceptCharset, getAcceptCharset, setAction, getAction,
setAutocomplete, getAutocomplete, setEnctype, getEnctype,
setEncoding, getEncoding, setMethod, getMethod, setName, getName,
setNoValidate, getNoValidate, setTarget, getTarget, getElements,
getLength, HTMLFormElement(..), gTypeHTMLFormElement)
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
getAt ::
(MonadDOM m) => HTMLFormElement -> Word -> m (Maybe Element)
getAt :: forall (m :: * -> *).
MonadDOM m =>
HTMLFormElement -> Word -> m (Maybe Element)
getAt HTMLFormElement
self Word
index
= DOM (Maybe Element) -> m (Maybe Element)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (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
"get" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]) JSM JSVal -> (JSVal -> DOM (Maybe Element)) -> DOM (Maybe Element)
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 Element)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getAt_ :: (MonadDOM m) => HTMLFormElement -> Word -> m ()
getAt_ :: forall (m :: * -> *). MonadDOM m => HTMLFormElement -> Word -> m ()
getAt_ HTMLFormElement
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 (HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (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
"get" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]))
getAtUnsafe ::
(MonadDOM m, HasCallStack) => HTMLFormElement -> Word -> m Element
getAtUnsafe :: forall (m :: * -> *).
(MonadDOM m, HasCallStack) =>
HTMLFormElement -> Word -> m Element
getAtUnsafe HTMLFormElement
self Word
index
= DOM Element -> m Element
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (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
"get" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]) JSM JSVal -> (JSVal -> DOM (Maybe Element)) -> DOM (Maybe Element)
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 Element)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe Element)
-> (Maybe Element -> DOM Element) -> DOM Element
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM Element
-> (Element -> DOM Element) -> Maybe Element -> DOM Element
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM Element
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") Element -> DOM Element
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getAtUnchecked ::
(MonadDOM m) => HTMLFormElement -> Word -> m Element
getAtUnchecked :: forall (m :: * -> *).
MonadDOM m =>
HTMLFormElement -> Word -> m Element
getAtUnchecked HTMLFormElement
self Word
index
= DOM Element -> m Element
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (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
"get" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]) JSM JSVal -> (JSVal -> DOM Element) -> DOM Element
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 Element
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
get ::
(MonadDOM m, ToJSString name) =>
HTMLFormElement -> name -> m (Maybe RadioNodeListOrElement)
get :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLFormElement -> name -> m (Maybe RadioNodeListOrElement)
get HTMLFormElement
self name
name = DOM (Maybe RadioNodeListOrElement)
-> m (Maybe RadioNodeListOrElement)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement -> name -> JSM JSVal
forall this name.
(MakeObject this, ToJSString name) =>
this -> name -> JSM JSVal
! name
name) JSM JSVal
-> (JSVal -> DOM (Maybe RadioNodeListOrElement))
-> DOM (Maybe RadioNodeListOrElement)
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 RadioNodeListOrElement)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
get_ ::
(MonadDOM m, ToJSString name) => HTMLFormElement -> name -> m ()
get_ :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLFormElement -> name -> m ()
get_ HTMLFormElement
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 (HTMLFormElement
self HTMLFormElement -> name -> JSM JSVal
forall this name.
(MakeObject this, ToJSString name) =>
this -> name -> JSM JSVal
! name
name))
getUnsafe ::
(MonadDOM m, ToJSString name, HasCallStack) =>
HTMLFormElement -> name -> m RadioNodeListOrElement
getUnsafe :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name, HasCallStack) =>
HTMLFormElement -> name -> m RadioNodeListOrElement
getUnsafe HTMLFormElement
self name
name
= DOM RadioNodeListOrElement -> m RadioNodeListOrElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((HTMLFormElement
self HTMLFormElement -> name -> JSM JSVal
forall this name.
(MakeObject this, ToJSString name) =>
this -> name -> JSM JSVal
! name
name) JSM JSVal
-> (JSVal -> DOM (Maybe RadioNodeListOrElement))
-> DOM (Maybe RadioNodeListOrElement)
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 RadioNodeListOrElement)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe RadioNodeListOrElement)
-> (Maybe RadioNodeListOrElement -> DOM RadioNodeListOrElement)
-> DOM RadioNodeListOrElement
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM RadioNodeListOrElement
-> (RadioNodeListOrElement -> DOM RadioNodeListOrElement)
-> Maybe RadioNodeListOrElement
-> DOM RadioNodeListOrElement
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM RadioNodeListOrElement
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") RadioNodeListOrElement -> DOM RadioNodeListOrElement
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getUnchecked ::
(MonadDOM m, ToJSString name) =>
HTMLFormElement -> name -> m RadioNodeListOrElement
getUnchecked :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLFormElement -> name -> m RadioNodeListOrElement
getUnchecked HTMLFormElement
self name
name
= DOM RadioNodeListOrElement -> m RadioNodeListOrElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement -> name -> JSM JSVal
forall this name.
(MakeObject this, ToJSString name) =>
this -> name -> JSM JSVal
! name
name) JSM JSVal
-> (JSVal -> DOM RadioNodeListOrElement)
-> DOM RadioNodeListOrElement
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 RadioNodeListOrElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
submit :: (MonadDOM m) => HTMLFormElement -> m ()
submit :: forall (m :: * -> *). MonadDOM m => HTMLFormElement -> m ()
submit HTMLFormElement
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 (HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (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
"submit" ()))
reset :: (MonadDOM m) => HTMLFormElement -> m ()
reset :: forall (m :: * -> *). MonadDOM m => HTMLFormElement -> m ()
reset HTMLFormElement
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 (HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (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
"reset" ()))
checkValidity :: (MonadDOM m) => HTMLFormElement -> m Bool
checkValidity :: forall (m :: * -> *). MonadDOM m => HTMLFormElement -> m Bool
checkValidity HTMLFormElement
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (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) => HTMLFormElement -> m ()
checkValidity_ :: forall (m :: * -> *). MonadDOM m => HTMLFormElement -> m ()
checkValidity_ HTMLFormElement
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 (HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (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) => HTMLFormElement -> m Bool
reportValidity :: forall (m :: * -> *). MonadDOM m => HTMLFormElement -> m Bool
reportValidity HTMLFormElement
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (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) => HTMLFormElement -> m ()
reportValidity_ :: forall (m :: * -> *). MonadDOM m => HTMLFormElement -> m ()
reportValidity_ HTMLFormElement
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 (HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (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" ()))
requestAutocomplete :: (MonadDOM m) => HTMLFormElement -> m ()
requestAutocomplete :: forall (m :: * -> *). MonadDOM m => HTMLFormElement -> m ()
requestAutocomplete HTMLFormElement
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 (HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (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
"requestAutocomplete" ()))
setAcceptCharset ::
(MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()
setAcceptCharset :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLFormElement -> name -> m ()
setAcceptCharset HTMLFormElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLFormElement
self HTMLFormElement
-> Getting (DOM ()) HTMLFormElement (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
"acceptCharset" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getAcceptCharset ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getAcceptCharset :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLFormElement -> m result
getAcceptCharset HTMLFormElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLFormElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"acceptCharset") 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)
setAction ::
(MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()
setAction :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLFormElement -> name -> m ()
setAction HTMLFormElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLFormElement
self HTMLFormElement
-> Getting (DOM ()) HTMLFormElement (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
"action" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getAction ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getAction :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLFormElement -> m result
getAction HTMLFormElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLFormElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"action") 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)
setAutocomplete ::
(MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()
setAutocomplete :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLFormElement -> name -> m ()
setAutocomplete HTMLFormElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLFormElement
self HTMLFormElement
-> Getting (DOM ()) HTMLFormElement (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) => HTMLFormElement -> m result
getAutocomplete :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLFormElement -> m result
getAutocomplete HTMLFormElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLFormElement (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)
setEnctype ::
(MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()
setEnctype :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLFormElement -> name -> m ()
setEnctype HTMLFormElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLFormElement
self HTMLFormElement
-> Getting (DOM ()) HTMLFormElement (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
"enctype" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getEnctype ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getEnctype :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLFormElement -> m result
getEnctype HTMLFormElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLFormElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"enctype") 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)
setEncoding ::
(MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()
setEncoding :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLFormElement -> name -> m ()
setEncoding HTMLFormElement
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLFormElement
self HTMLFormElement
-> Getting (DOM ()) HTMLFormElement (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
"encoding" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getEncoding ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getEncoding :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLFormElement -> m result
getEncoding HTMLFormElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLFormElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"encoding") 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)
setMethod ::
(MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()
setMethod :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLFormElement -> name -> m ()
setMethod HTMLFormElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLFormElement
self HTMLFormElement
-> Getting (DOM ()) HTMLFormElement (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
"method" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getMethod ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getMethod :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLFormElement -> m result
getMethod HTMLFormElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLFormElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"method") 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)
setName ::
(MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()
setName :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLFormElement -> name -> m ()
setName HTMLFormElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLFormElement
self HTMLFormElement
-> Getting (DOM ()) HTMLFormElement (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) => HTMLFormElement -> m result
getName :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLFormElement -> m result
getName HTMLFormElement
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLFormElement (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)
setNoValidate :: (MonadDOM m) => HTMLFormElement -> Bool -> m ()
setNoValidate :: forall (m :: * -> *). MonadDOM m => HTMLFormElement -> Bool -> m ()
setNoValidate HTMLFormElement
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLFormElement
self HTMLFormElement
-> Getting (DOM ()) HTMLFormElement (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
"noValidate" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getNoValidate :: (MonadDOM m) => HTMLFormElement -> m Bool
getNoValidate :: forall (m :: * -> *). MonadDOM m => HTMLFormElement -> m Bool
getNoValidate HTMLFormElement
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLFormElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"noValidate") 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)
setTarget ::
(MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()
setTarget :: forall (m :: * -> *) name.
(MonadDOM m, ToJSString name) =>
HTMLFormElement -> name -> m ()
setTarget HTMLFormElement
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (HTMLFormElement
self HTMLFormElement
-> Getting (DOM ()) HTMLFormElement (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
"target" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getTarget ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getTarget :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
HTMLFormElement -> m result
getTarget HTMLFormElement
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLFormElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"target") 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)
getElements ::
(MonadDOM m) => HTMLFormElement -> m HTMLFormControlsCollection
getElements :: forall (m :: * -> *).
MonadDOM m =>
HTMLFormElement -> m HTMLFormControlsCollection
getElements HTMLFormElement
self
= DOM HTMLFormControlsCollection -> m HTMLFormControlsCollection
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLFormElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"elements") JSM JSVal
-> (JSVal -> DOM HTMLFormControlsCollection)
-> DOM HTMLFormControlsCollection
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 HTMLFormControlsCollection
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getLength :: (MonadDOM m) => HTMLFormElement -> m Word
getLength :: forall (m :: * -> *). MonadDOM m => HTMLFormElement -> m Word
getLength HTMLFormElement
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
<$> ((HTMLFormElement
self HTMLFormElement
-> Getting (JSM JSVal) HTMLFormElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLFormElement (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))