{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLOutputElement (checkValidity, checkValidity_, setCustomValidity, getHtmlFor, getHtmlForUnsafe, getHtmlForUnchecked, getForm, getFormUnsafe, getFormUnchecked, setName, getName, getType, setDefaultValue, getDefaultValue, getDefaultValueUnsafe, getDefaultValueUnchecked, setValue, getValue, getValueUnsafe, getValueUnchecked, getWillValidate, getValidity, getValidityUnsafe, getValidityUnchecked, getValidationMessage, getLabels, getLabelsUnsafe, getLabelsUnchecked, 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 Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) 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) 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" ())) -- | setCustomValidity :: (MonadDOM m, ToJSString error) => HTMLOutputElement -> Maybe error -> m () setCustomValidity self error = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error])) -- | getHtmlFor :: (MonadDOM m) => HTMLOutputElement -> m (Maybe DOMSettableTokenList) getHtmlFor self = liftDOM ((self ^. js "htmlFor") >>= fromJSVal) -- | getHtmlForUnsafe :: (MonadDOM m, HasCallStack) => HTMLOutputElement -> m DOMSettableTokenList getHtmlForUnsafe self = liftDOM (((self ^. js "htmlFor") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getHtmlForUnchecked :: (MonadDOM m) => HTMLOutputElement -> m DOMSettableTokenList getHtmlForUnchecked self = liftDOM ((self ^. js "htmlFor") >>= fromJSValUnchecked) -- | getForm :: (MonadDOM m) => HTMLOutputElement -> m (Maybe HTMLFormElement) getForm self = liftDOM ((self ^. js "form") >>= fromJSVal) -- | getFormUnsafe :: (MonadDOM m, HasCallStack) => HTMLOutputElement -> m HTMLFormElement getFormUnsafe self = liftDOM (((self ^. js "form") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getFormUnchecked :: (MonadDOM m) => HTMLOutputElement -> m HTMLFormElement getFormUnchecked 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 -> Maybe val -> m () setDefaultValue self val = liftDOM (self ^. jss "defaultValue" (toJSVal val)) -- | getDefaultValue :: (MonadDOM m, FromJSString result) => HTMLOutputElement -> m (Maybe result) getDefaultValue self = liftDOM ((self ^. js "defaultValue") >>= fromMaybeJSString) -- | getDefaultValueUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => HTMLOutputElement -> m result getDefaultValueUnsafe self = liftDOM (((self ^. js "defaultValue") >>= fromMaybeJSString) >>= maybe (Prelude.error "Nothing to return") return) -- | getDefaultValueUnchecked :: (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result getDefaultValueUnchecked self = liftDOM ((self ^. js "defaultValue") >>= fromJSValUnchecked) -- | setValue :: (MonadDOM m, ToJSString val) => HTMLOutputElement -> Maybe val -> m () setValue self val = liftDOM (self ^. jss "value" (toJSVal val)) -- | getValue :: (MonadDOM m, FromJSString result) => HTMLOutputElement -> m (Maybe result) getValue self = liftDOM ((self ^. js "value") >>= fromMaybeJSString) -- | getValueUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => HTMLOutputElement -> m result getValueUnsafe self = liftDOM (((self ^. js "value") >>= fromMaybeJSString) >>= maybe (Prelude.error "Nothing to return") return) -- | getValueUnchecked :: (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result getValueUnchecked self = liftDOM ((self ^. js "value") >>= fromJSValUnchecked) -- | getWillValidate :: (MonadDOM m) => HTMLOutputElement -> m Bool getWillValidate self = liftDOM ((self ^. js "willValidate") >>= valToBool) -- | getValidity :: (MonadDOM m) => HTMLOutputElement -> m (Maybe ValidityState) getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal) -- | getValidityUnsafe :: (MonadDOM m, HasCallStack) => HTMLOutputElement -> m ValidityState getValidityUnsafe self = liftDOM (((self ^. js "validity") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getValidityUnchecked :: (MonadDOM m) => HTMLOutputElement -> m ValidityState getValidityUnchecked 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 (Maybe NodeList) getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal) -- | getLabelsUnsafe :: (MonadDOM m, HasCallStack) => HTMLOutputElement -> m NodeList getLabelsUnsafe self = liftDOM (((self ^. js "labels") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getLabelsUnchecked :: (MonadDOM m) => HTMLOutputElement -> m NodeList getLabelsUnchecked self = liftDOM ((self ^. js "labels") >>= fromJSValUnchecked)