{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLOutputElement (js_checkValidity, checkValidity, checkValidity_, js_reportValidity, reportValidity, reportValidity_, js_setCustomValidity, setCustomValidity, js_getHtmlFor, getHtmlFor, js_getForm, getForm, js_setName, setName, js_getName, getName, js_getType, getType, js_setDefaultValue, setDefaultValue, js_getDefaultValue, getDefaultValue, js_setValue, setValue, js_getValue, getValue, js_getWillValidate, getWillValidate, js_getValidity, getValidity, js_getValidationMessage, getValidationMessage, js_getLabels, getLabels, HTMLOutputElement(..), gTypeHTMLOutputElement) 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 unsafe "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: HTMLOutputElement -> IO Bool -- | checkValidity :: (MonadIO m) => HTMLOutputElement -> m Bool checkValidity self = liftIO (js_checkValidity self) -- | checkValidity_ :: (MonadIO m) => HTMLOutputElement -> m () checkValidity_ self = liftIO (void (js_checkValidity self)) foreign import javascript unsafe "($1[\"reportValidity\"]() ? 1 : 0)" js_reportValidity :: HTMLOutputElement -> IO Bool -- | reportValidity :: (MonadIO m) => HTMLOutputElement -> m Bool reportValidity self = liftIO (js_reportValidity self) -- | reportValidity_ :: (MonadIO m) => HTMLOutputElement -> m () reportValidity_ self = liftIO (void (js_reportValidity self)) foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)" js_setCustomValidity :: HTMLOutputElement -> JSString -> IO () -- | setCustomValidity :: (MonadIO m, ToJSString error) => HTMLOutputElement -> error -> m () setCustomValidity self error = liftIO (js_setCustomValidity self (toJSString error)) foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor :: HTMLOutputElement -> IO DOMTokenList -- | getHtmlFor :: (MonadIO m) => HTMLOutputElement -> m DOMTokenList getHtmlFor self = liftIO (js_getHtmlFor self) foreign import javascript unsafe "$1[\"form\"]" js_getForm :: HTMLOutputElement -> IO HTMLFormElement -- | getForm :: (MonadIO m) => HTMLOutputElement -> m HTMLFormElement getForm self = liftIO (js_getForm self) foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: HTMLOutputElement -> JSString -> IO () -- | setName :: (MonadIO m, ToJSString val) => HTMLOutputElement -> val -> m () setName self val = liftIO (js_setName self (toJSString val)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: HTMLOutputElement -> IO JSString -- | getName :: (MonadIO m, FromJSString result) => HTMLOutputElement -> m result getName self = liftIO (fromJSString <$> (js_getName self)) foreign import javascript unsafe "$1[\"type\"]" js_getType :: HTMLOutputElement -> IO JSString -- | getType :: (MonadIO m, FromJSString result) => HTMLOutputElement -> m result getType self = liftIO (fromJSString <$> (js_getType self)) foreign import javascript unsafe "$1[\"defaultValue\"] = $2;" js_setDefaultValue :: HTMLOutputElement -> JSString -> IO () -- | setDefaultValue :: (MonadIO m, ToJSString val) => HTMLOutputElement -> val -> m () setDefaultValue self val = liftIO (js_setDefaultValue self (toJSString val)) foreign import javascript unsafe "$1[\"defaultValue\"]" js_getDefaultValue :: HTMLOutputElement -> IO JSString -- | getDefaultValue :: (MonadIO m, FromJSString result) => HTMLOutputElement -> m result getDefaultValue self = liftIO (fromJSString <$> (js_getDefaultValue self)) foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue :: HTMLOutputElement -> JSString -> IO () -- | setValue :: (MonadIO m, ToJSString val) => HTMLOutputElement -> val -> m () setValue self val = liftIO (js_setValue self (toJSString val)) foreign import javascript unsafe "$1[\"value\"]" js_getValue :: HTMLOutputElement -> IO JSString -- | getValue :: (MonadIO m, FromJSString result) => HTMLOutputElement -> m result getValue self = liftIO (fromJSString <$> (js_getValue self)) foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)" js_getWillValidate :: HTMLOutputElement -> IO Bool -- | getWillValidate :: (MonadIO m) => HTMLOutputElement -> m Bool getWillValidate self = liftIO (js_getWillValidate self) foreign import javascript unsafe "$1[\"validity\"]" js_getValidity :: HTMLOutputElement -> IO ValidityState -- | getValidity :: (MonadIO m) => HTMLOutputElement -> m ValidityState getValidity self = liftIO (js_getValidity self) foreign import javascript unsafe "$1[\"validationMessage\"]" js_getValidationMessage :: HTMLOutputElement -> IO JSString -- | getValidationMessage :: (MonadIO m, FromJSString result) => HTMLOutputElement -> m result getValidationMessage self = liftIO (fromJSString <$> (js_getValidationMessage self)) foreign import javascript unsafe "$1[\"labels\"]" js_getLabels :: HTMLOutputElement -> IO NodeList -- | getLabels :: (MonadIO m) => HTMLOutputElement -> m NodeList getLabels self = liftIO (js_getLabels self)