{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.ValidityState (js_getValueMissing, getValueMissing, js_getTypeMismatch, getTypeMismatch, js_getPatternMismatch, getPatternMismatch, js_getTooLong, getTooLong, js_getRangeUnderflow, getRangeUnderflow, js_getRangeOverflow, getRangeOverflow, js_getStepMismatch, getStepMismatch, js_getBadInput, getBadInput, js_getCustomError, getCustomError, js_getValid, getValid, ValidityState, castToValidityState, gTypeValidityState) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "($1[\"valueMissing\"] ? 1 : 0)" js_getValueMissing :: ValidityState -> IO Bool -- | getValueMissing :: (MonadIO m) => ValidityState -> m Bool getValueMissing self = liftIO (js_getValueMissing (self)) foreign import javascript unsafe "($1[\"typeMismatch\"] ? 1 : 0)" js_getTypeMismatch :: ValidityState -> IO Bool -- | getTypeMismatch :: (MonadIO m) => ValidityState -> m Bool getTypeMismatch self = liftIO (js_getTypeMismatch (self)) foreign import javascript unsafe "($1[\"patternMismatch\"] ? 1 : 0)" js_getPatternMismatch :: ValidityState -> IO Bool -- | getPatternMismatch :: (MonadIO m) => ValidityState -> m Bool getPatternMismatch self = liftIO (js_getPatternMismatch (self)) foreign import javascript unsafe "($1[\"tooLong\"] ? 1 : 0)" js_getTooLong :: ValidityState -> IO Bool -- | getTooLong :: (MonadIO m) => ValidityState -> m Bool getTooLong self = liftIO (js_getTooLong (self)) foreign import javascript unsafe "($1[\"rangeUnderflow\"] ? 1 : 0)" js_getRangeUnderflow :: ValidityState -> IO Bool -- | getRangeUnderflow :: (MonadIO m) => ValidityState -> m Bool getRangeUnderflow self = liftIO (js_getRangeUnderflow (self)) foreign import javascript unsafe "($1[\"rangeOverflow\"] ? 1 : 0)" js_getRangeOverflow :: ValidityState -> IO Bool -- | getRangeOverflow :: (MonadIO m) => ValidityState -> m Bool getRangeOverflow self = liftIO (js_getRangeOverflow (self)) foreign import javascript unsafe "($1[\"stepMismatch\"] ? 1 : 0)" js_getStepMismatch :: ValidityState -> IO Bool -- | getStepMismatch :: (MonadIO m) => ValidityState -> m Bool getStepMismatch self = liftIO (js_getStepMismatch (self)) foreign import javascript unsafe "($1[\"badInput\"] ? 1 : 0)" js_getBadInput :: ValidityState -> IO Bool -- | getBadInput :: (MonadIO m) => ValidityState -> m Bool getBadInput self = liftIO (js_getBadInput (self)) foreign import javascript unsafe "($1[\"customError\"] ? 1 : 0)" js_getCustomError :: ValidityState -> IO Bool -- | getCustomError :: (MonadIO m) => ValidityState -> m Bool getCustomError self = liftIO (js_getCustomError (self)) foreign import javascript unsafe "($1[\"valid\"] ? 1 : 0)" js_getValid :: ValidityState -> IO Bool -- | getValid :: (MonadIO m) => ValidityState -> m Bool getValid self = liftIO (js_getValid (self))