ProgressEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from xhr (webref). Do not edit.
module JSDOM.Generated.ProgressEventInit
       (newProgressEventInit, setLengthComputable, getLengthComputable, getLengthComputableUnsafe, getLengthComputableUnchecked, setLoaded, getLoaded, getLoadedUnsafe, getLoadedUnchecked, setTotal, getTotal, getTotalUnsafe, getTotalUnchecked, ProgressEventInit(..), gTypeProgressEventInit)
       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://xhr.spec.whatwg.org/#progresseventinit ProgressEventInit specification>
newProgressEventInit :: (MonadDOM m) => m ProgressEventInit
newProgressEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://xhr.spec.whatwg.org/#dom-progresseventinit-lengthcomputable ProgressEventInit.lengthComputable specification>
setLengthComputable :: (MonadDOM m) => ProgressEventInit -> Bool -> m ()
setLengthComputable self val = liftDOM (void (self ^. jss "lengthComputable" (toJSVal val)))

-- | <https://xhr.spec.whatwg.org/#dom-progresseventinit-lengthcomputable ProgressEventInit.lengthComputable specification>
getLengthComputable :: (MonadDOM m) => ProgressEventInit -> m (Maybe Bool)
getLengthComputable self = liftDOM (((self ^. js "lengthComputable") >>= fromJSValUnchecked))

-- | <https://xhr.spec.whatwg.org/#dom-progresseventinit-lengthcomputable ProgressEventInit.lengthComputable specification>
getLengthComputableUnsafe :: (MonadDOM m, HasCallStack) => ProgressEventInit -> m Bool
getLengthComputableUnsafe self = liftDOM ((((self ^. js "lengthComputable") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://xhr.spec.whatwg.org/#dom-progresseventinit-lengthcomputable ProgressEventInit.lengthComputable specification>
getLengthComputableUnchecked :: (MonadDOM m) => ProgressEventInit -> m Bool
getLengthComputableUnchecked self = liftDOM (((self ^. js "lengthComputable") >>= valToBool))

-- | <https://xhr.spec.whatwg.org/#dom-progresseventinit-loaded ProgressEventInit.loaded specification>
setLoaded :: (MonadDOM m) => ProgressEventInit -> Double -> m ()
setLoaded self val = liftDOM (void (self ^. jss "loaded" (toJSVal val)))

-- | <https://xhr.spec.whatwg.org/#dom-progresseventinit-loaded ProgressEventInit.loaded specification>
getLoaded :: (MonadDOM m) => ProgressEventInit -> m (Maybe Double)
getLoaded self = liftDOM (((self ^. js "loaded") >>= fromJSValUnchecked))

-- | <https://xhr.spec.whatwg.org/#dom-progresseventinit-loaded ProgressEventInit.loaded specification>
getLoadedUnsafe :: (MonadDOM m, HasCallStack) => ProgressEventInit -> m Double
getLoadedUnsafe self = liftDOM ((((self ^. js "loaded") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://xhr.spec.whatwg.org/#dom-progresseventinit-loaded ProgressEventInit.loaded specification>
getLoadedUnchecked :: (MonadDOM m) => ProgressEventInit -> m Double
getLoadedUnchecked self = liftDOM (((self ^. js "loaded") >>= valToNumber))

-- | <https://xhr.spec.whatwg.org/#dom-progresseventinit-total ProgressEventInit.total specification>
setTotal :: (MonadDOM m) => ProgressEventInit -> Double -> m ()
setTotal self val = liftDOM (void (self ^. jss "total" (toJSVal val)))

-- | <https://xhr.spec.whatwg.org/#dom-progresseventinit-total ProgressEventInit.total specification>
getTotal :: (MonadDOM m) => ProgressEventInit -> m (Maybe Double)
getTotal self = liftDOM (((self ^. js "total") >>= fromJSValUnchecked))

-- | <https://xhr.spec.whatwg.org/#dom-progresseventinit-total ProgressEventInit.total specification>
getTotalUnsafe :: (MonadDOM m, HasCallStack) => ProgressEventInit -> m Double
getTotalUnsafe self = liftDOM ((((self ^. js "total") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://xhr.spec.whatwg.org/#dom-progresseventinit-total ProgressEventInit.total specification>
getTotalUnchecked :: (MonadDOM m) => ProgressEventInit -> m Double
getTotalUnchecked self = liftDOM (((self ^. js "total") >>= valToNumber))