{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLOutputElement (checkValidity, checkValidity_, reportValidity, reportValidity_, setCustomValidity, getHtmlFor, getForm, setName, getName, getType, setDefaultValue, getDefaultValue, setValue, getValue, getWillValidate, getValidity, getValidationMessage, getLabels, HTMLOutputElement(..), gTypeHTMLOutputElement) 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 -- | checkValidity :: (MonadDOM m) => HTMLOutputElement -> m Bool checkValidity self = liftDOM ((self ^. jsf "checkValidity" ()) >>= valToBool) -- | checkValidity_ :: (MonadDOM m) => HTMLOutputElement -> m () checkValidity_ self = liftDOM (void (self ^. jsf "checkValidity" ())) -- | reportValidity :: (MonadDOM m) => HTMLOutputElement -> m Bool reportValidity self = liftDOM ((self ^. jsf "reportValidity" ()) >>= valToBool) -- | reportValidity_ :: (MonadDOM m) => HTMLOutputElement -> m () reportValidity_ self = liftDOM (void (self ^. jsf "reportValidity" ())) -- | setCustomValidity :: (MonadDOM m, ToJSString error) => HTMLOutputElement -> error -> m () setCustomValidity self error = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error])) -- | getHtmlFor :: (MonadDOM m) => HTMLOutputElement -> m DOMTokenList getHtmlFor self = liftDOM ((self ^. js "htmlFor") >>= fromJSValUnchecked) -- | getForm :: (MonadDOM m) => HTMLOutputElement -> m HTMLFormElement getForm self = liftDOM ((self ^. js "form") >>= fromJSValUnchecked) -- | setName :: (MonadDOM m, ToJSString val) => HTMLOutputElement -> val -> m () setName self val = liftDOM (self ^. jss "name" (toJSVal val)) -- | getName :: (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked) -- | getType :: (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked) -- | setDefaultValue :: (MonadDOM m, ToJSString val) => HTMLOutputElement -> val -> m () setDefaultValue self val = liftDOM (self ^. jss "defaultValue" (toJSVal val)) -- | getDefaultValue :: (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result getDefaultValue self = liftDOM ((self ^. js "defaultValue") >>= fromJSValUnchecked) -- | setValue :: (MonadDOM m, ToJSString val) => HTMLOutputElement -> val -> m () setValue self val = liftDOM (self ^. jss "value" (toJSVal val)) -- | getValue :: (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result getValue self = liftDOM ((self ^. js "value") >>= fromJSValUnchecked) -- | getWillValidate :: (MonadDOM m) => HTMLOutputElement -> m Bool getWillValidate self = liftDOM ((self ^. js "willValidate") >>= valToBool) -- | getValidity :: (MonadDOM m) => HTMLOutputElement -> m ValidityState getValidity self = liftDOM ((self ^. js "validity") >>= fromJSValUnchecked) -- | getValidationMessage :: (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result getValidationMessage self = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked) -- | getLabels :: (MonadDOM m) => HTMLOutputElement -> m NodeList getLabels self = liftDOM ((self ^. js "labels") >>= fromJSValUnchecked)