HTMLFieldSetElement.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.HTMLFieldSetElement
       (checkValidity, checkValidity_, reportValidity, reportValidity_, setCustomValidity, setDisabled, getDisabled, getForm, getFormUnsafe, getFormUnchecked, setName, getName, getType, getElements, getWillValidate, getValidity, getValidationMessage, HTMLFieldSetElement(..), gTypeHTMLFieldSetElement)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/checkValidity MDN HTMLFieldSetElement.checkValidity documentation>
checkValidity :: (MonadDOM m) => HTMLFieldSetElement -> m Bool
checkValidity self = liftDOM (((self ^. jsf "checkValidity" ()) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/checkValidity MDN HTMLFieldSetElement.checkValidity documentation>
checkValidity_ :: (MonadDOM m) => HTMLFieldSetElement -> m ()
checkValidity_ self = liftDOM (void (self ^. jsf "checkValidity" ()))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/reportValidity MDN HTMLFieldSetElement.reportValidity documentation>
reportValidity :: (MonadDOM m) => HTMLFieldSetElement -> m Bool
reportValidity self = liftDOM (((self ^. jsf "reportValidity" ()) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/reportValidity MDN HTMLFieldSetElement.reportValidity documentation>
reportValidity_ :: (MonadDOM m) => HTMLFieldSetElement -> m ()
reportValidity_ self = liftDOM (void (self ^. jsf "reportValidity" ()))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/setCustomValidity MDN HTMLFieldSetElement.setCustomValidity documentation>
setCustomValidity :: (MonadDOM m, ToJSString error) => HTMLFieldSetElement -> error -> m ()
setCustomValidity self error = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/disabled MDN HTMLFieldSetElement.disabled documentation>
setDisabled :: (MonadDOM m) => HTMLFieldSetElement -> Bool -> m ()
setDisabled self val = liftDOM (void (self ^. jss "disabled" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/disabled MDN HTMLFieldSetElement.disabled documentation>
getDisabled :: (MonadDOM m) => HTMLFieldSetElement -> m Bool
getDisabled self = liftDOM (((self ^. js "disabled") >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/form MDN HTMLFieldSetElement.form documentation>
getForm :: (MonadDOM m) => HTMLFieldSetElement -> m (Maybe HTMLFormElement)
getForm self = liftDOM (((self ^. js "form") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/form MDN HTMLFieldSetElement.form documentation>
getFormUnsafe :: (MonadDOM m, HasCallStack) => HTMLFieldSetElement -> m HTMLFormElement
getFormUnsafe self = liftDOM ((((self ^. js "form") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/form MDN HTMLFieldSetElement.form documentation>
getFormUnchecked :: (MonadDOM m) => HTMLFieldSetElement -> m HTMLFormElement
getFormUnchecked self = liftDOM (((self ^. js "form") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/name MDN HTMLFieldSetElement.name documentation>
setName :: (MonadDOM m, ToJSString val) => HTMLFieldSetElement -> val -> m ()
setName self val = liftDOM (void (self ^. jss "name" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/name MDN HTMLFieldSetElement.name documentation>
getName :: (MonadDOM m, FromJSString result) => HTMLFieldSetElement -> m result
getName self = liftDOM (((self ^. js "name") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/type MDN HTMLFieldSetElement.type documentation>
getType :: (MonadDOM m, FromJSString result) => HTMLFieldSetElement -> m result
getType self = liftDOM (((self ^. js "type") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/elements MDN HTMLFieldSetElement.elements documentation>
getElements :: (MonadDOM m) => HTMLFieldSetElement -> m HTMLCollection
getElements self = liftDOM (((self ^. js "elements") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/willValidate MDN HTMLFieldSetElement.willValidate documentation>
getWillValidate :: (MonadDOM m) => HTMLFieldSetElement -> m Bool
getWillValidate self = liftDOM (((self ^. js "willValidate") >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/validity MDN HTMLFieldSetElement.validity documentation>
getValidity :: (MonadDOM m) => HTMLFieldSetElement -> m ValidityState
getValidity self = liftDOM (((self ^. js "validity") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLFieldSetElement/validationMessage MDN HTMLFieldSetElement.validationMessage documentation>
getValidationMessage :: (MonadDOM m, FromJSString result) => HTMLFieldSetElement -> m result
getValidationMessage self = liftDOM (((self ^. js "validationMessage") >>= fromJSValUnchecked))