ValidityStateFlags.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.ValidityStateFlags
       (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 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://html.spec.whatwg.org/multipage/custom-elements.html#validitystateflags ValidityStateFlags specification>
newValidityStateFlags :: (MonadDOM m) => m ValidityStateFlags
newValidityStateFlags = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

setValueMissing :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setValueMissing self val = liftDOM (void (self ^. jss "valueMissing" (toJSVal val)))

getValueMissing :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getValueMissing self = liftDOM (((self ^. js "valueMissing") >>= fromJSValUnchecked))

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

getValueMissingUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getValueMissingUnchecked self = liftDOM (((self ^. js "valueMissing") >>= valToBool))

setTypeMismatch :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setTypeMismatch self val = liftDOM (void (self ^. jss "typeMismatch" (toJSVal val)))

getTypeMismatch :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getTypeMismatch self = liftDOM (((self ^. js "typeMismatch") >>= fromJSValUnchecked))

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

getTypeMismatchUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getTypeMismatchUnchecked self = liftDOM (((self ^. js "typeMismatch") >>= valToBool))

setPatternMismatch :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setPatternMismatch self val = liftDOM (void (self ^. jss "patternMismatch" (toJSVal val)))

getPatternMismatch :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getPatternMismatch self = liftDOM (((self ^. js "patternMismatch") >>= fromJSValUnchecked))

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

getPatternMismatchUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getPatternMismatchUnchecked self = liftDOM (((self ^. js "patternMismatch") >>= valToBool))

setTooLong :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setTooLong self val = liftDOM (void (self ^. jss "tooLong" (toJSVal val)))

getTooLong :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getTooLong self = liftDOM (((self ^. js "tooLong") >>= fromJSValUnchecked))

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

getTooLongUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getTooLongUnchecked self = liftDOM (((self ^. js "tooLong") >>= valToBool))

setTooShort :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setTooShort self val = liftDOM (void (self ^. jss "tooShort" (toJSVal val)))

getTooShort :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getTooShort self = liftDOM (((self ^. js "tooShort") >>= fromJSValUnchecked))

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

getTooShortUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getTooShortUnchecked self = liftDOM (((self ^. js "tooShort") >>= valToBool))

setRangeUnderflow :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setRangeUnderflow self val = liftDOM (void (self ^. jss "rangeUnderflow" (toJSVal val)))

getRangeUnderflow :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getRangeUnderflow self = liftDOM (((self ^. js "rangeUnderflow") >>= fromJSValUnchecked))

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

getRangeUnderflowUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getRangeUnderflowUnchecked self = liftDOM (((self ^. js "rangeUnderflow") >>= valToBool))

setRangeOverflow :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setRangeOverflow self val = liftDOM (void (self ^. jss "rangeOverflow" (toJSVal val)))

getRangeOverflow :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getRangeOverflow self = liftDOM (((self ^. js "rangeOverflow") >>= fromJSValUnchecked))

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

getRangeOverflowUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getRangeOverflowUnchecked self = liftDOM (((self ^. js "rangeOverflow") >>= valToBool))

setStepMismatch :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setStepMismatch self val = liftDOM (void (self ^. jss "stepMismatch" (toJSVal val)))

getStepMismatch :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getStepMismatch self = liftDOM (((self ^. js "stepMismatch") >>= fromJSValUnchecked))

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

getStepMismatchUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getStepMismatchUnchecked self = liftDOM (((self ^. js "stepMismatch") >>= valToBool))

setBadInput :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setBadInput self val = liftDOM (void (self ^. jss "badInput" (toJSVal val)))

getBadInput :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getBadInput self = liftDOM (((self ^. js "badInput") >>= fromJSValUnchecked))

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

getBadInputUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getBadInputUnchecked self = liftDOM (((self ^. js "badInput") >>= valToBool))

setCustomError :: (MonadDOM m) => ValidityStateFlags -> Bool -> m ()
setCustomError self val = liftDOM (void (self ^. jss "customError" (toJSVal val)))

getCustomError :: (MonadDOM m) => ValidityStateFlags -> m (Maybe Bool)
getCustomError self = liftDOM (((self ^. js "customError") >>= fromJSValUnchecked))

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

getCustomErrorUnchecked :: (MonadDOM m) => ValidityStateFlags -> m Bool
getCustomErrorUnchecked self = liftDOM (((self ^. js "customError") >>= valToBool))