ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/ValidityStateFlags.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.ValidityStateFlags
       (js_newValidityStateFlags, js_setValueMissing, js_getValueMissing, js_setTypeMismatch, js_getTypeMismatch, js_setPatternMismatch, js_getPatternMismatch, js_setTooLong, js_getTooLong, js_setTooShort, js_getTooShort, js_setRangeUnderflow, js_getRangeUnderflow, js_setRangeOverflow, js_getRangeOverflow, js_setStepMismatch, js_getStepMismatch, js_setBadInput, js_getBadInput, js_setCustomError, js_getCustomError, newValidityStateFlags, setValueMissing, getValueMissing, getValueMissingUnsafe, getValueMissingUnchecked, setTypeMismatch, getTypeMismatch, getTypeMismatchUnsafe, getTypeMismatchUnchecked, setPatternMismatch, getPatternMismatch, getPatternMismatchUnsafe, getPatternMismatchUnchecked, setTooLong, getTooLong, getTooLongUnsafe, getTooLongUnchecked, setTooShort, getTooShort, getTooShortUnsafe, getTooShortUnchecked, setRangeUnderflow, getRangeUnderflow, getRangeUnderflowUnsafe, getRangeUnderflowUnchecked, setRangeOverflow, getRangeOverflow, getRangeOverflowUnsafe, getRangeOverflowUnchecked, setStepMismatch, getStepMismatch, getStepMismatchUnsafe, getStepMismatchUnchecked, setBadInput, getBadInput, getBadInputUnsafe, getBadInputUnchecked, setCustomError, getCustomError, getCustomErrorUnsafe, getCustomErrorUnchecked, ValidityStateFlags(..), gTypeValidityStateFlags)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(() => { return ({}); })"
        js_newValidityStateFlags :: IO ValidityStateFlags
-- | <https://html.spec.whatwg.org/multipage/custom-elements.html#validitystateflags ValidityStateFlags specification>
newValidityStateFlags :: (MonadDOM m) => m ValidityStateFlags
newValidityStateFlags = liftDOM ((js_newValidityStateFlags))

foreign import javascript safe "(($1, $2) => { $1[\"valueMissing\"] = $2; })"
        js_setValueMissing :: ValidityStateFlags -> Bool -> IO ()
setValueMissing :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setValueMissing self val = liftDOM (void ((js_setValueMissing (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"valueMissing\"]; })"
        js_getValueMissing :: ValidityStateFlags -> IO JSVal
getValueMissing :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getValueMissing self = liftDOM (((js_getValueMissing (self)) >>= fromJSValUnchecked))

getValueMissingUnsafe :: (MonadDOM m, HasCallStack) => ValidityStateFlags -> m Bool
getValueMissingUnsafe self = liftDOM ((((js_getValueMissing (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getValueMissingUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getValueMissingUnchecked self = liftDOM ((pFromJSVal <$> (js_getValueMissing (self))))

foreign import javascript safe "(($1, $2) => { $1[\"typeMismatch\"] = $2; })"
        js_setTypeMismatch :: ValidityStateFlags -> Bool -> IO ()
setTypeMismatch :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setTypeMismatch self val = liftDOM (void ((js_setTypeMismatch (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"typeMismatch\"]; })"
        js_getTypeMismatch :: ValidityStateFlags -> IO JSVal
getTypeMismatch :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getTypeMismatch self = liftDOM (((js_getTypeMismatch (self)) >>= fromJSValUnchecked))

getTypeMismatchUnsafe :: (MonadDOM m, HasCallStack) => ValidityStateFlags -> m Bool
getTypeMismatchUnsafe self = liftDOM ((((js_getTypeMismatch (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getTypeMismatchUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getTypeMismatchUnchecked self = liftDOM ((pFromJSVal <$> (js_getTypeMismatch (self))))

foreign import javascript safe "(($1, $2) => { $1[\"patternMismatch\"] = $2; })"
        js_setPatternMismatch :: ValidityStateFlags -> Bool -> IO ()
setPatternMismatch :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setPatternMismatch self val = liftDOM (void ((js_setPatternMismatch (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"patternMismatch\"]; })"
        js_getPatternMismatch :: ValidityStateFlags -> IO JSVal
getPatternMismatch :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getPatternMismatch self = liftDOM (((js_getPatternMismatch (self)) >>= fromJSValUnchecked))

getPatternMismatchUnsafe :: (MonadDOM m, HasCallStack) => ValidityStateFlags -> m Bool
getPatternMismatchUnsafe self = liftDOM ((((js_getPatternMismatch (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getPatternMismatchUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getPatternMismatchUnchecked self = liftDOM ((pFromJSVal <$> (js_getPatternMismatch (self))))

foreign import javascript safe "(($1, $2) => { $1[\"tooLong\"] = $2; })"
        js_setTooLong :: ValidityStateFlags -> Bool -> IO ()
setTooLong :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setTooLong self val = liftDOM (void ((js_setTooLong (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"tooLong\"]; })"
        js_getTooLong :: ValidityStateFlags -> IO JSVal
getTooLong :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getTooLong self = liftDOM (((js_getTooLong (self)) >>= fromJSValUnchecked))

getTooLongUnsafe :: (MonadDOM m, HasCallStack) => ValidityStateFlags -> m Bool
getTooLongUnsafe self = liftDOM ((((js_getTooLong (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getTooLongUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getTooLongUnchecked self = liftDOM ((pFromJSVal <$> (js_getTooLong (self))))

foreign import javascript safe "(($1, $2) => { $1[\"tooShort\"] = $2; })"
        js_setTooShort :: ValidityStateFlags -> Bool -> IO ()
setTooShort :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setTooShort self val = liftDOM (void ((js_setTooShort (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"tooShort\"]; })"
        js_getTooShort :: ValidityStateFlags -> IO JSVal
getTooShort :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getTooShort self = liftDOM (((js_getTooShort (self)) >>= fromJSValUnchecked))

getTooShortUnsafe :: (MonadDOM m, HasCallStack) => ValidityStateFlags -> m Bool
getTooShortUnsafe self = liftDOM ((((js_getTooShort (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getTooShortUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getTooShortUnchecked self = liftDOM ((pFromJSVal <$> (js_getTooShort (self))))

foreign import javascript safe "(($1, $2) => { $1[\"rangeUnderflow\"] = $2; })"
        js_setRangeUnderflow :: ValidityStateFlags -> Bool -> IO ()
setRangeUnderflow :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setRangeUnderflow self val = liftDOM (void ((js_setRangeUnderflow (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"rangeUnderflow\"]; })"
        js_getRangeUnderflow :: ValidityStateFlags -> IO JSVal
getRangeUnderflow :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getRangeUnderflow self = liftDOM (((js_getRangeUnderflow (self)) >>= fromJSValUnchecked))

getRangeUnderflowUnsafe :: (MonadDOM m, HasCallStack) => ValidityStateFlags -> m Bool
getRangeUnderflowUnsafe self = liftDOM ((((js_getRangeUnderflow (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getRangeUnderflowUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getRangeUnderflowUnchecked self = liftDOM ((pFromJSVal <$> (js_getRangeUnderflow (self))))

foreign import javascript safe "(($1, $2) => { $1[\"rangeOverflow\"] = $2; })"
        js_setRangeOverflow :: ValidityStateFlags -> Bool -> IO ()
setRangeOverflow :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setRangeOverflow self val = liftDOM (void ((js_setRangeOverflow (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"rangeOverflow\"]; })"
        js_getRangeOverflow :: ValidityStateFlags -> IO JSVal
getRangeOverflow :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getRangeOverflow self = liftDOM (((js_getRangeOverflow (self)) >>= fromJSValUnchecked))

getRangeOverflowUnsafe :: (MonadDOM m, HasCallStack) => ValidityStateFlags -> m Bool
getRangeOverflowUnsafe self = liftDOM ((((js_getRangeOverflow (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getRangeOverflowUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getRangeOverflowUnchecked self = liftDOM ((pFromJSVal <$> (js_getRangeOverflow (self))))

foreign import javascript safe "(($1, $2) => { $1[\"stepMismatch\"] = $2; })"
        js_setStepMismatch :: ValidityStateFlags -> Bool -> IO ()
setStepMismatch :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setStepMismatch self val = liftDOM (void ((js_setStepMismatch (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"stepMismatch\"]; })"
        js_getStepMismatch :: ValidityStateFlags -> IO JSVal
getStepMismatch :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getStepMismatch self = liftDOM (((js_getStepMismatch (self)) >>= fromJSValUnchecked))

getStepMismatchUnsafe :: (MonadDOM m, HasCallStack) => ValidityStateFlags -> m Bool
getStepMismatchUnsafe self = liftDOM ((((js_getStepMismatch (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getStepMismatchUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getStepMismatchUnchecked self = liftDOM ((pFromJSVal <$> (js_getStepMismatch (self))))

foreign import javascript safe "(($1, $2) => { $1[\"badInput\"] = $2; })"
        js_setBadInput :: ValidityStateFlags -> Bool -> IO ()
setBadInput :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setBadInput self val = liftDOM (void ((js_setBadInput (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"badInput\"]; })"
        js_getBadInput :: ValidityStateFlags -> IO JSVal
getBadInput :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getBadInput self = liftDOM (((js_getBadInput (self)) >>= fromJSValUnchecked))

getBadInputUnsafe :: (MonadDOM m, HasCallStack) => ValidityStateFlags -> m Bool
getBadInputUnsafe self = liftDOM ((((js_getBadInput (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getBadInputUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getBadInputUnchecked self = liftDOM ((pFromJSVal <$> (js_getBadInput (self))))

foreign import javascript safe "(($1, $2) => { $1[\"customError\"] = $2; })"
        js_setCustomError :: ValidityStateFlags -> Bool -> IO ()
setCustomError :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setCustomError self val = liftDOM (void ((js_setCustomError (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"customError\"]; })"
        js_getCustomError :: ValidityStateFlags -> IO JSVal
getCustomError :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getCustomError self = liftDOM (((js_getCustomError (self)) >>= fromJSValUnchecked))

getCustomErrorUnsafe :: (MonadDOM m, HasCallStack) => ValidityStateFlags -> m Bool
getCustomErrorUnsafe self = liftDOM ((((js_getCustomError (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getCustomErrorUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getCustomErrorUnchecked self = liftDOM ((pFromJSVal <$> (js_getCustomError (self))))