CSSImportRule.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from cssom-1 (webref). Do not edit.
module JSDOM.Generated.CSSImportRule
       (getHref, getMedia, getStyleSheet, getStyleSheetUnsafe, getStyleSheetUnchecked, getLayerName, getLayerNameUnsafe, getLayerNameUnchecked, getSupportsText, getSupportsTextUnsafe, getSupportsTextUnchecked, CSSImportRule(..), gTypeCSSImportRule)
       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://developer.mozilla.org/docs/Web/API/CSSImportRule/href MDN CSSImportRule.href documentation>
getHref :: (MonadDOM m, FromJSString result) => CSSImportRule -> m result
getHref self = liftDOM (((self ^. js "href") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/media MDN CSSImportRule.media documentation>
getMedia :: (MonadDOM m) => CSSImportRule -> m MediaList
getMedia self = liftDOM (((self ^. js "media") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/styleSheet MDN CSSImportRule.styleSheet documentation>
getStyleSheet :: (MonadDOM m) => CSSImportRule -> m (Maybe CSSStyleSheet)
getStyleSheet self = liftDOM (((self ^. js "styleSheet") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/styleSheet MDN CSSImportRule.styleSheet documentation>
getStyleSheetUnsafe :: (MonadDOM m, HasCallStack) => CSSImportRule -> m CSSStyleSheet
getStyleSheetUnsafe self = liftDOM ((((self ^. js "styleSheet") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/styleSheet MDN CSSImportRule.styleSheet documentation>
getStyleSheetUnchecked :: (MonadDOM m) => CSSImportRule -> m CSSStyleSheet
getStyleSheetUnchecked self = liftDOM (((self ^. js "styleSheet") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/layerName MDN CSSImportRule.layerName documentation>
getLayerName :: (MonadDOM m, FromJSString result) => CSSImportRule -> m (Maybe result)
getLayerName self = liftDOM (((self ^. js "layerName") >>= fromMaybeJSString))

-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/layerName MDN CSSImportRule.layerName documentation>
getLayerNameUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSImportRule -> m result
getLayerNameUnsafe self = liftDOM ((((self ^. js "layerName") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/layerName MDN CSSImportRule.layerName documentation>
getLayerNameUnchecked :: (MonadDOM m, FromJSString result) => CSSImportRule -> m result
getLayerNameUnchecked self = liftDOM (((self ^. js "layerName") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/supportsText MDN CSSImportRule.supportsText documentation>
getSupportsText :: (MonadDOM m, FromJSString result) => CSSImportRule -> m (Maybe result)
getSupportsText self = liftDOM (((self ^. js "supportsText") >>= fromMaybeJSString))

-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/supportsText MDN CSSImportRule.supportsText documentation>
getSupportsTextUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => CSSImportRule -> m result
getSupportsTextUnsafe self = liftDOM ((((self ^. js "supportsText") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/CSSImportRule/supportsText MDN CSSImportRule.supportsText documentation>
getSupportsTextUnchecked :: (MonadDOM m, FromJSString result) => CSSImportRule -> m result
getSupportsTextUnchecked self = liftDOM (((self ^. js "supportsText") >>= fromJSValUnchecked))