HTMLLabelElement.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.HTMLLabelElement
       (getForm, getFormUnsafe, getFormUnchecked, setHtmlFor, getHtmlFor, getControl, getControlUnsafe, getControlUnchecked, HTMLLabelElement(..), gTypeHTMLLabelElement)
       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/HTMLLabelElement/form MDN HTMLLabelElement.form documentation>
getForm :: (MonadDOM m) => HTMLLabelElement -> m (Maybe HTMLFormElement)
getForm self = liftDOM (((self ^. js "form") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLLabelElement/form MDN HTMLLabelElement.form documentation>
getFormUnsafe :: (MonadDOM m, HasCallStack) => HTMLLabelElement -> 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/HTMLLabelElement/form MDN HTMLLabelElement.form documentation>
getFormUnchecked :: (MonadDOM m) => HTMLLabelElement -> m HTMLFormElement
getFormUnchecked self = liftDOM (((self ^. js "form") >>= fromJSValUnchecked))

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

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

-- | <https://developer.mozilla.org/docs/Web/API/HTMLLabelElement/control MDN HTMLLabelElement.control documentation>
getControl :: (MonadDOM m) => HTMLLabelElement -> m (Maybe HTMLElement)
getControl self = liftDOM (((self ^. js "control") >>= fromJSValUnchecked))

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

-- | <https://developer.mozilla.org/docs/Web/API/HTMLLabelElement/control MDN HTMLLabelElement.control documentation>
getControlUnchecked :: (MonadDOM m) => HTMLLabelElement -> m HTMLElement
getControlUnchecked self = liftDOM (((self ^. js "control") >>= fromJSValUnchecked))