{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLInputElement (js_stepUp, stepUp, js_stepDown, stepDown, js_checkValidity, checkValidity, checkValidity_, js_reportValidity, reportValidity, reportValidity_, js_setCustomValidity, setCustomValidity, js_select, select, js_setRangeText, setRangeText, js_setRangeText4, setRangeText4, js_setSelectionRange, setSelectionRange, js_setAccept, setAccept, js_getAccept, getAccept, js_setAlt, setAlt, js_getAlt, getAlt, js_setAutocomplete, setAutocomplete, js_getAutocomplete, getAutocomplete, js_setAutofocus, setAutofocus, js_getAutofocus, getAutofocus, js_setDefaultChecked, setDefaultChecked, js_getDefaultChecked, getDefaultChecked, js_setChecked, setChecked, js_getChecked, getChecked, js_setDirName, setDirName, js_getDirName, getDirName, js_setDisabled, setDisabled, js_getDisabled, getDisabled, js_getForm, getForm, js_setFiles, setFiles, js_getFiles, getFiles, getFilesUnsafe, getFilesUnchecked, js_setFormAction, setFormAction, js_getFormAction, getFormAction, js_setFormEnctype, setFormEnctype, js_getFormEnctype, getFormEnctype, js_setFormMethod, setFormMethod, js_getFormMethod, getFormMethod, js_setFormNoValidate, setFormNoValidate, js_getFormNoValidate, getFormNoValidate, js_setFormTarget, setFormTarget, js_getFormTarget, getFormTarget, js_setHeight, setHeight, js_getHeight, getHeight, js_setIndeterminate, setIndeterminate, js_getIndeterminate, getIndeterminate, js_getList, getList, js_setMax, setMax, js_getMax, getMax, js_setMinLength, setMinLength, js_getMinLength, getMinLength, js_setMaxLength, setMaxLength, js_getMaxLength, getMaxLength, js_setMin, setMin, js_getMin, getMin, js_setMultiple, setMultiple, js_getMultiple, getMultiple, js_setName, setName, js_getName, getName, js_setPattern, setPattern, js_getPattern, getPattern, js_setPlaceholder, setPlaceholder, js_getPlaceholder, getPlaceholder, js_setReadOnly, setReadOnly, js_getReadOnly, getReadOnly, js_setRequired, setRequired, js_getRequired, getRequired, js_setSize, setSize, js_getSize, getSize, js_setSrc, setSrc, js_getSrc, getSrc, js_setStep, setStep, js_getStep, getStep, js_setType, setType, js_getType, getType, js_setDefaultValue, setDefaultValue, js_getDefaultValue, getDefaultValue, js_setValue, setValue, js_getValue, getValue, js_setValueAsDate, setValueAsDate, js_getValueAsDate, getValueAsDate, getValueAsDateUnsafe, getValueAsDateUnchecked, js_setValueAsNumber, setValueAsNumber, js_getValueAsNumber, getValueAsNumber, js_setWidth, setWidth, js_getWidth, getWidth, js_getWillValidate, getWillValidate, js_getValidity, getValidity, js_getValidationMessage, getValidationMessage, js_getLabels, getLabels, js_setSelectionStart, setSelectionStart, js_getSelectionStart, getSelectionStart, js_setSelectionEnd, setSelectionEnd, js_getSelectionEnd, getSelectionEnd, js_setSelectionDirection, setSelectionDirection, js_getSelectionDirection, getSelectionDirection, js_setAlign, setAlign, js_getAlign, getAlign, js_setUseMap, setUseMap, js_getUseMap, getUseMap, js_setIncremental, setIncremental, js_getIncremental, getIncremental, js_setCapture, setCapture, js_getCapture, getCapture, HTMLInputElement(..), gTypeHTMLInputElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull, jsUndefined) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript safe "$1[\"stepUp\"]($2)" js_stepUp :: HTMLInputElement -> Optional Int -> IO () -- | stepUp :: (MonadIO m) => HTMLInputElement -> Maybe Int -> m () stepUp self n = liftIO (js_stepUp self (maybeToOptional n)) foreign import javascript safe "$1[\"stepDown\"]($2)" js_stepDown :: HTMLInputElement -> Optional Int -> IO () -- | stepDown :: (MonadIO m) => HTMLInputElement -> Maybe Int -> m () stepDown self n = liftIO (js_stepDown self (maybeToOptional n)) foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: HTMLInputElement -> IO Bool -- | checkValidity :: (MonadIO m) => HTMLInputElement -> m Bool checkValidity self = liftIO (js_checkValidity self) -- | checkValidity_ :: (MonadIO m) => HTMLInputElement -> m () checkValidity_ self = liftIO (void (js_checkValidity self)) foreign import javascript unsafe "($1[\"reportValidity\"]() ? 1 : 0)" js_reportValidity :: HTMLInputElement -> IO Bool -- | reportValidity :: (MonadIO m) => HTMLInputElement -> m Bool reportValidity self = liftIO (js_reportValidity self) -- | reportValidity_ :: (MonadIO m) => HTMLInputElement -> m () reportValidity_ self = liftIO (void (js_reportValidity self)) foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" js_setCustomValidity :: HTMLInputElement -> JSString -> IO () -- | setCustomValidity :: (MonadIO m, ToJSString error) => HTMLInputElement -> error -> m () setCustomValidity self error = liftIO (js_setCustomValidity self (toJSString error)) foreign import javascript unsafe "$1[\"select\"]()" js_select :: HTMLInputElement -> IO () -- | select :: (MonadIO m) => HTMLInputElement -> m () select self = liftIO (js_select self) foreign import javascript safe "$1[\"setRangeText\"]($2)" js_setRangeText :: HTMLInputElement -> JSString -> IO () -- | setRangeText :: (MonadIO m, ToJSString replacement) => HTMLInputElement -> replacement -> m () setRangeText self replacement = liftIO (js_setRangeText self (toJSString replacement)) foreign import javascript safe "$1[\"setRangeText\"]($2, $3, $4,\n$5)" js_setRangeText4 :: HTMLInputElement -> JSString -> Word -> Word -> Optional JSString -> IO () -- | setRangeText4 :: (MonadIO m, ToJSString replacement, ToJSString selectionMode) => HTMLInputElement -> replacement -> Word -> Word -> Maybe selectionMode -> m () setRangeText4 self replacement start end selectionMode = liftIO (js_setRangeText4 self (toJSString replacement) start end (toOptionalJSString selectionMode)) foreign import javascript safe "$1[\"setSelectionRange\"]($2, $3,\n$4)" js_setSelectionRange :: HTMLInputElement -> Int -> Int -> Optional JSString -> IO () -- | setSelectionRange :: (MonadIO m, ToJSString direction) => HTMLInputElement -> Int -> Int -> Maybe direction -> m () setSelectionRange self start end direction = liftIO (js_setSelectionRange self start end (toOptionalJSString direction)) foreign import javascript unsafe "$1[\"accept\"] = $2;" js_setAccept :: HTMLInputElement -> JSString -> IO () -- | setAccept :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setAccept self val = liftIO (js_setAccept self (toJSString val)) foreign import javascript unsafe "$1[\"accept\"]" js_getAccept :: HTMLInputElement -> IO JSString -- | getAccept :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getAccept self = liftIO (fromJSString <$> (js_getAccept self)) foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt :: HTMLInputElement -> JSString -> IO () -- | setAlt :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setAlt self val = liftIO (js_setAlt self (toJSString val)) foreign import javascript unsafe "$1[\"alt\"]" js_getAlt :: HTMLInputElement -> IO JSString -- | getAlt :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getAlt self = liftIO (fromJSString <$> (js_getAlt self)) foreign import javascript unsafe "$1[\"autocomplete\"] = $2;" js_setAutocomplete :: HTMLInputElement -> JSString -> IO () -- | setAutocomplete :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setAutocomplete self val = liftIO (js_setAutocomplete self (toJSString val)) foreign import javascript unsafe "$1[\"autocomplete\"]" js_getAutocomplete :: HTMLInputElement -> IO JSString -- | getAutocomplete :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getAutocomplete self = liftIO (fromJSString <$> (js_getAutocomplete self)) foreign import javascript unsafe "$1[\"autofocus\"] = $2;" js_setAutofocus :: HTMLInputElement -> Bool -> IO () -- | setAutofocus :: (MonadIO m) => HTMLInputElement -> Bool -> m () setAutofocus self val = liftIO (js_setAutofocus self val) foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)" js_getAutofocus :: HTMLInputElement -> IO Bool -- | getAutofocus :: (MonadIO m) => HTMLInputElement -> m Bool getAutofocus self = liftIO (js_getAutofocus self) foreign import javascript unsafe "$1[\"defaultChecked\"] = $2;" js_setDefaultChecked :: HTMLInputElement -> Bool -> IO () -- | setDefaultChecked :: (MonadIO m) => HTMLInputElement -> Bool -> m () setDefaultChecked self val = liftIO (js_setDefaultChecked self val) foreign import javascript unsafe "($1[\"defaultChecked\"] ? 1 : 0)" js_getDefaultChecked :: HTMLInputElement -> IO Bool -- | getDefaultChecked :: (MonadIO m) => HTMLInputElement -> m Bool getDefaultChecked self = liftIO (js_getDefaultChecked self) foreign import javascript unsafe "$1[\"checked\"] = $2;" js_setChecked :: HTMLInputElement -> Bool -> IO () -- | setChecked :: (MonadIO m) => HTMLInputElement -> Bool -> m () setChecked self val = liftIO (js_setChecked self val) foreign import javascript unsafe "($1[\"checked\"] ? 1 : 0)" js_getChecked :: HTMLInputElement -> IO Bool -- | getChecked :: (MonadIO m) => HTMLInputElement -> m Bool getChecked self = liftIO (js_getChecked self) foreign import javascript unsafe "$1[\"dirName\"] = $2;" js_setDirName :: HTMLInputElement -> JSString -> IO () -- | setDirName :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setDirName self val = liftIO (js_setDirName self (toJSString val)) foreign import javascript unsafe "$1[\"dirName\"]" js_getDirName :: HTMLInputElement -> IO JSString -- | getDirName :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getDirName self = liftIO (fromJSString <$> (js_getDirName self)) foreign import javascript unsafe "$1[\"disabled\"] = $2;" js_setDisabled :: HTMLInputElement -> Bool -> IO () -- | setDisabled :: (MonadIO m) => HTMLInputElement -> Bool -> m () setDisabled self val = liftIO (js_setDisabled self val) foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)" js_getDisabled :: HTMLInputElement -> IO Bool -- | getDisabled :: (MonadIO m) => HTMLInputElement -> m Bool getDisabled self = liftIO (js_getDisabled self) foreign import javascript unsafe "$1[\"form\"]" js_getForm :: HTMLInputElement -> IO HTMLFormElement -- | getForm :: (MonadIO m) => HTMLInputElement -> m HTMLFormElement getForm self = liftIO (js_getForm self) foreign import javascript unsafe "$1[\"files\"] = $2;" js_setFiles :: HTMLInputElement -> Optional FileList -> IO () -- | setFiles :: (MonadIO m) => HTMLInputElement -> Maybe FileList -> m () setFiles self val = liftIO (js_setFiles self (maybeToOptional val)) foreign import javascript unsafe "$1[\"files\"]" js_getFiles :: HTMLInputElement -> IO (Nullable FileList) -- | getFiles :: (MonadIO m) => HTMLInputElement -> m (Maybe FileList) getFiles self = liftIO (nullableToMaybe <$> (js_getFiles self)) -- | getFilesUnsafe :: (MonadIO m, HasCallStack) => HTMLInputElement -> m FileList getFilesUnsafe self = liftIO ((nullableToMaybe <$> (js_getFiles self)) >>= maybe (Prelude.error "Nothing to return") return) -- | getFilesUnchecked :: (MonadIO m) => HTMLInputElement -> m FileList getFilesUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getFiles self)) foreign import javascript unsafe "$1[\"formAction\"] = $2;" js_setFormAction :: HTMLInputElement -> JSString -> IO () -- | setFormAction :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setFormAction self val = liftIO (js_setFormAction self (toJSString val)) foreign import javascript unsafe "$1[\"formAction\"]" js_getFormAction :: HTMLInputElement -> IO JSString -- | getFormAction :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getFormAction self = liftIO (fromJSString <$> (js_getFormAction self)) foreign import javascript unsafe "$1[\"formEnctype\"] = $2;" js_setFormEnctype :: HTMLInputElement -> JSString -> IO () -- | setFormEnctype :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setFormEnctype self val = liftIO (js_setFormEnctype self (toJSString val)) foreign import javascript unsafe "$1[\"formEnctype\"]" js_getFormEnctype :: HTMLInputElement -> IO JSString -- | getFormEnctype :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getFormEnctype self = liftIO (fromJSString <$> (js_getFormEnctype self)) foreign import javascript unsafe "$1[\"formMethod\"] = $2;" js_setFormMethod :: HTMLInputElement -> JSString -> IO () -- | setFormMethod :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setFormMethod self val = liftIO (js_setFormMethod self (toJSString val)) foreign import javascript unsafe "$1[\"formMethod\"]" js_getFormMethod :: HTMLInputElement -> IO JSString -- | getFormMethod :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getFormMethod self = liftIO (fromJSString <$> (js_getFormMethod self)) foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;" js_setFormNoValidate :: HTMLInputElement -> Bool -> IO () -- | setFormNoValidate :: (MonadIO m) => HTMLInputElement -> Bool -> m () setFormNoValidate self val = liftIO (js_setFormNoValidate self val) foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)" js_getFormNoValidate :: HTMLInputElement -> IO Bool -- | getFormNoValidate :: (MonadIO m) => HTMLInputElement -> m Bool getFormNoValidate self = liftIO (js_getFormNoValidate self) foreign import javascript unsafe "$1[\"formTarget\"] = $2;" js_setFormTarget :: HTMLInputElement -> JSString -> IO () -- | setFormTarget :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setFormTarget self val = liftIO (js_setFormTarget self (toJSString val)) foreign import javascript unsafe "$1[\"formTarget\"]" js_getFormTarget :: HTMLInputElement -> IO JSString -- | getFormTarget :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getFormTarget self = liftIO (fromJSString <$> (js_getFormTarget self)) foreign import javascript unsafe "$1[\"height\"] = $2;" js_setHeight :: HTMLInputElement -> Word -> IO () -- | setHeight :: (MonadIO m) => HTMLInputElement -> Word -> m () setHeight self val = liftIO (js_setHeight self val) foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: HTMLInputElement -> IO Word -- | getHeight :: (MonadIO m) => HTMLInputElement -> m Word getHeight self = liftIO (js_getHeight self) foreign import javascript unsafe "$1[\"indeterminate\"] = $2;" js_setIndeterminate :: HTMLInputElement -> Bool -> IO () -- | setIndeterminate :: (MonadIO m) => HTMLInputElement -> Bool -> m () setIndeterminate self val = liftIO (js_setIndeterminate self val) foreign import javascript unsafe "($1[\"indeterminate\"] ? 1 : 0)" js_getIndeterminate :: HTMLInputElement -> IO Bool -- | getIndeterminate :: (MonadIO m) => HTMLInputElement -> m Bool getIndeterminate self = liftIO (js_getIndeterminate self) foreign import javascript unsafe "$1[\"list\"]" js_getList :: HTMLInputElement -> IO HTMLElement -- | getList :: (MonadIO m) => HTMLInputElement -> m HTMLElement getList self = liftIO (js_getList self) foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax :: HTMLInputElement -> JSString -> IO () -- | setMax :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setMax self val = liftIO (js_setMax self (toJSString val)) foreign import javascript unsafe "$1[\"max\"]" js_getMax :: HTMLInputElement -> IO JSString -- | getMax :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getMax self = liftIO (fromJSString <$> (js_getMax self)) foreign import javascript safe "$1[\"minLength\"] = $2;" js_setMinLength :: HTMLInputElement -> Int -> IO () -- | setMinLength :: (MonadIO m) => HTMLInputElement -> Int -> m () setMinLength self val = liftIO (js_setMinLength self val) foreign import javascript unsafe "$1[\"minLength\"]" js_getMinLength :: HTMLInputElement -> IO Int -- | getMinLength :: (MonadIO m) => HTMLInputElement -> m Int getMinLength self = liftIO (js_getMinLength self) foreign import javascript safe "$1[\"maxLength\"] = $2;" js_setMaxLength :: HTMLInputElement -> Int -> IO () -- | setMaxLength :: (MonadIO m) => HTMLInputElement -> Int -> m () setMaxLength self val = liftIO (js_setMaxLength self val) foreign import javascript unsafe "$1[\"maxLength\"]" js_getMaxLength :: HTMLInputElement -> IO Int -- | getMaxLength :: (MonadIO m) => HTMLInputElement -> m Int getMaxLength self = liftIO (js_getMaxLength self) foreign import javascript unsafe "$1[\"min\"] = $2;" js_setMin :: HTMLInputElement -> JSString -> IO () -- | setMin :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setMin self val = liftIO (js_setMin self (toJSString val)) foreign import javascript unsafe "$1[\"min\"]" js_getMin :: HTMLInputElement -> IO JSString -- | getMin :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getMin self = liftIO (fromJSString <$> (js_getMin self)) foreign import javascript unsafe "$1[\"multiple\"] = $2;" js_setMultiple :: HTMLInputElement -> Bool -> IO () -- | setMultiple :: (MonadIO m) => HTMLInputElement -> Bool -> m () setMultiple self val = liftIO (js_setMultiple self val) foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)" js_getMultiple :: HTMLInputElement -> IO Bool -- | getMultiple :: (MonadIO m) => HTMLInputElement -> m Bool getMultiple self = liftIO (js_getMultiple self) foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: HTMLInputElement -> JSString -> IO () -- | setName :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setName self val = liftIO (js_setName self (toJSString val)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: HTMLInputElement -> IO JSString -- | getName :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getName self = liftIO (fromJSString <$> (js_getName self)) foreign import javascript unsafe "$1[\"pattern\"] = $2;" js_setPattern :: HTMLInputElement -> JSString -> IO () -- | setPattern :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setPattern self val = liftIO (js_setPattern self (toJSString val)) foreign import javascript unsafe "$1[\"pattern\"]" js_getPattern :: HTMLInputElement -> IO JSString -- | getPattern :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getPattern self = liftIO (fromJSString <$> (js_getPattern self)) foreign import javascript unsafe "$1[\"placeholder\"] = $2;" js_setPlaceholder :: HTMLInputElement -> JSString -> IO () -- | setPlaceholder :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setPlaceholder self val = liftIO (js_setPlaceholder self (toJSString val)) foreign import javascript unsafe "$1[\"placeholder\"]" js_getPlaceholder :: HTMLInputElement -> IO JSString -- | getPlaceholder :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getPlaceholder self = liftIO (fromJSString <$> (js_getPlaceholder self)) foreign import javascript unsafe "$1[\"readOnly\"] = $2;" js_setReadOnly :: HTMLInputElement -> Bool -> IO () -- | setReadOnly :: (MonadIO m) => HTMLInputElement -> Bool -> m () setReadOnly self val = liftIO (js_setReadOnly self val) foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)" js_getReadOnly :: HTMLInputElement -> IO Bool -- | getReadOnly :: (MonadIO m) => HTMLInputElement -> m Bool getReadOnly self = liftIO (js_getReadOnly self) foreign import javascript unsafe "$1[\"required\"] = $2;" js_setRequired :: HTMLInputElement -> Bool -> IO () -- | setRequired :: (MonadIO m) => HTMLInputElement -> Bool -> m () setRequired self val = liftIO (js_setRequired self val) foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)" js_getRequired :: HTMLInputElement -> IO Bool -- | getRequired :: (MonadIO m) => HTMLInputElement -> m Bool getRequired self = liftIO (js_getRequired self) foreign import javascript safe "$1[\"size\"] = $2;" js_setSize :: HTMLInputElement -> Word -> IO () -- | setSize :: (MonadIO m) => HTMLInputElement -> Word -> m () setSize self val = liftIO (js_setSize self val) foreign import javascript unsafe "$1[\"size\"]" js_getSize :: HTMLInputElement -> IO Word -- | getSize :: (MonadIO m) => HTMLInputElement -> m Word getSize self = liftIO (js_getSize self) foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc :: HTMLInputElement -> JSString -> IO () -- | setSrc :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setSrc self val = liftIO (js_setSrc self (toJSString val)) foreign import javascript unsafe "$1[\"src\"]" js_getSrc :: HTMLInputElement -> IO JSString -- | getSrc :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getSrc self = liftIO (fromJSString <$> (js_getSrc self)) foreign import javascript unsafe "$1[\"step\"] = $2;" js_setStep :: HTMLInputElement -> JSString -> IO () -- | setStep :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setStep self val = liftIO (js_setStep self (toJSString val)) foreign import javascript unsafe "$1[\"step\"]" js_getStep :: HTMLInputElement -> IO JSString -- | getStep :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getStep self = liftIO (fromJSString <$> (js_getStep self)) foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType :: HTMLInputElement -> JSString -> IO () -- | setType :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setType self val = liftIO (js_setType self (toJSString val)) foreign import javascript unsafe "$1[\"type\"]" js_getType :: HTMLInputElement -> IO JSString -- | getType :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getType self = liftIO (fromJSString <$> (js_getType self)) foreign import javascript unsafe "$1[\"defaultValue\"] = $2;" js_setDefaultValue :: HTMLInputElement -> JSString -> IO () -- | setDefaultValue :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setDefaultValue self val = liftIO (js_setDefaultValue self (toJSString val)) foreign import javascript unsafe "$1[\"defaultValue\"]" js_getDefaultValue :: HTMLInputElement -> IO JSString -- | getDefaultValue :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getDefaultValue self = liftIO (fromJSString <$> (js_getDefaultValue self)) foreign import javascript safe "$1[\"value\"] = $2;" js_setValue :: HTMLInputElement -> JSString -> IO () -- | setValue :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setValue self val = liftIO (js_setValue self (toJSString val)) foreign import javascript unsafe "$1[\"value\"]" js_getValue :: HTMLInputElement -> IO JSString -- | getValue :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getValue self = liftIO (fromJSString <$> (js_getValue self)) foreign import javascript safe "$1[\"valueAsDate\"] = $2;" js_setValueAsDate :: HTMLInputElement -> Optional Date -> IO () -- | setValueAsDate :: (MonadIO m, IsDate val) => HTMLInputElement -> Maybe val -> m () setValueAsDate self val = liftIO (js_setValueAsDate self (maybeToOptional (fmap toDate val))) foreign import javascript unsafe "$1[\"valueAsDate\"]" js_getValueAsDate :: HTMLInputElement -> IO (Nullable Date) -- | getValueAsDate :: (MonadIO m) => HTMLInputElement -> m (Maybe Date) getValueAsDate self = liftIO (nullableToMaybe <$> (js_getValueAsDate self)) -- | getValueAsDateUnsafe :: (MonadIO m, HasCallStack) => HTMLInputElement -> m Date getValueAsDateUnsafe self = liftIO ((nullableToMaybe <$> (js_getValueAsDate self)) >>= maybe (Prelude.error "Nothing to return") return) -- | getValueAsDateUnchecked :: (MonadIO m) => HTMLInputElement -> m Date getValueAsDateUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getValueAsDate self)) foreign import javascript safe "$1[\"valueAsNumber\"] = $2;" js_setValueAsNumber :: HTMLInputElement -> Double -> IO () -- | setValueAsNumber :: (MonadIO m) => HTMLInputElement -> Double -> m () setValueAsNumber self val = liftIO (js_setValueAsNumber self val) foreign import javascript unsafe "$1[\"valueAsNumber\"]" js_getValueAsNumber :: HTMLInputElement -> IO Double -- | getValueAsNumber :: (MonadIO m) => HTMLInputElement -> m Double getValueAsNumber self = liftIO (js_getValueAsNumber self) foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth :: HTMLInputElement -> Word -> IO () -- | setWidth :: (MonadIO m) => HTMLInputElement -> Word -> m () setWidth self val = liftIO (js_setWidth self val) foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: HTMLInputElement -> IO Word -- | getWidth :: (MonadIO m) => HTMLInputElement -> m Word getWidth self = liftIO (js_getWidth self) foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" js_getWillValidate :: HTMLInputElement -> IO Bool -- | getWillValidate :: (MonadIO m) => HTMLInputElement -> m Bool getWillValidate self = liftIO (js_getWillValidate self) foreign import javascript unsafe "$1[\"validity\"]" js_getValidity :: HTMLInputElement -> IO ValidityState -- | getValidity :: (MonadIO m) => HTMLInputElement -> m ValidityState getValidity self = liftIO (js_getValidity self) foreign import javascript unsafe "$1[\"validationMessage\"]" js_getValidationMessage :: HTMLInputElement -> IO JSString -- | getValidationMessage :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getValidationMessage self = liftIO (fromJSString <$> (js_getValidationMessage self)) foreign import javascript unsafe "$1[\"labels\"]" js_getLabels :: HTMLInputElement -> IO NodeList -- | getLabels :: (MonadIO m) => HTMLInputElement -> m NodeList getLabels self = liftIO (js_getLabels self) foreign import javascript safe "$1[\"selectionStart\"] = $2;" js_setSelectionStart :: HTMLInputElement -> Int -> IO () -- | setSelectionStart :: (MonadIO m) => HTMLInputElement -> Int -> m () setSelectionStart self val = liftIO (js_setSelectionStart self val) foreign import javascript safe "$1[\"selectionStart\"]" js_getSelectionStart :: HTMLInputElement -> IO Int -- | getSelectionStart :: (MonadIO m) => HTMLInputElement -> m Int getSelectionStart self = liftIO (js_getSelectionStart self) foreign import javascript safe "$1[\"selectionEnd\"] = $2;" js_setSelectionEnd :: HTMLInputElement -> Int -> IO () -- | setSelectionEnd :: (MonadIO m) => HTMLInputElement -> Int -> m () setSelectionEnd self val = liftIO (js_setSelectionEnd self val) foreign import javascript safe "$1[\"selectionEnd\"]" js_getSelectionEnd :: HTMLInputElement -> IO Int -- | getSelectionEnd :: (MonadIO m) => HTMLInputElement -> m Int getSelectionEnd self = liftIO (js_getSelectionEnd self) foreign import javascript safe "$1[\"selectionDirection\"] = $2;" js_setSelectionDirection :: HTMLInputElement -> JSString -> IO () -- | setSelectionDirection :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setSelectionDirection self val = liftIO (js_setSelectionDirection self (toJSString val)) foreign import javascript safe "$1[\"selectionDirection\"]" js_getSelectionDirection :: HTMLInputElement -> IO JSString -- | getSelectionDirection :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getSelectionDirection self = liftIO (fromJSString <$> (js_getSelectionDirection self)) foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign :: HTMLInputElement -> JSString -> IO () -- | setAlign :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setAlign self val = liftIO (js_setAlign self (toJSString val)) foreign import javascript unsafe "$1[\"align\"]" js_getAlign :: HTMLInputElement -> IO JSString -- | getAlign :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getAlign self = liftIO (fromJSString <$> (js_getAlign self)) foreign import javascript unsafe "$1[\"useMap\"] = $2;" js_setUseMap :: HTMLInputElement -> JSString -> IO () -- | setUseMap :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setUseMap self val = liftIO (js_setUseMap self (toJSString val)) foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap :: HTMLInputElement -> IO JSString -- | getUseMap :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getUseMap self = liftIO (fromJSString <$> (js_getUseMap self)) foreign import javascript unsafe "$1[\"incremental\"] = $2;" js_setIncremental :: HTMLInputElement -> Bool -> IO () -- | setIncremental :: (MonadIO m) => HTMLInputElement -> Bool -> m () setIncremental self val = liftIO (js_setIncremental self val) foreign import javascript unsafe "($1[\"incremental\"] ? 1 : 0)" js_getIncremental :: HTMLInputElement -> IO Bool -- | getIncremental :: (MonadIO m) => HTMLInputElement -> m Bool getIncremental self = liftIO (js_getIncremental self) foreign import javascript unsafe "$1[\"capture\"] = $2;" js_setCapture :: HTMLInputElement -> JSString -> IO () -- | setCapture :: (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setCapture self val = liftIO (js_setCapture self (toJSString val)) foreign import javascript unsafe "$1[\"capture\"]" js_getCapture :: HTMLInputElement -> IO JSString -- | getCapture :: (MonadIO m, FromJSString result) => HTMLInputElement -> m result getCapture self = liftIO (fromJSString <$> (js_getCapture self))