module JSDOM.Generated.CSSImportRule
(getHref, getHrefUnsafe, getHrefUnchecked, getMedia,
getMediaUnsafe, getMediaUnchecked, getStyleSheet,
getStyleSheetUnsafe, getStyleSheetUnchecked, CSSImportRule(..),
gTypeCSSImportRule)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
getHref ::
(MonadDOM m, FromJSString result) =>
CSSImportRule -> m (Maybe result)
getHref self = liftDOM ((self ^. js "href") >>= fromMaybeJSString)
getHrefUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
CSSImportRule -> m result
getHrefUnsafe self
= liftDOM
(((self ^. js "href") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getHrefUnchecked ::
(MonadDOM m, FromJSString result) => CSSImportRule -> m result
getHrefUnchecked self
= liftDOM ((self ^. js "href") >>= fromJSValUnchecked)
getMedia :: (MonadDOM m) => CSSImportRule -> m (Maybe MediaList)
getMedia self = liftDOM ((self ^. js "media") >>= fromJSVal)
getMediaUnsafe ::
(MonadDOM m, HasCallStack) => CSSImportRule -> m MediaList
getMediaUnsafe self
= liftDOM
(((self ^. js "media") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getMediaUnchecked :: (MonadDOM m) => CSSImportRule -> m MediaList
getMediaUnchecked self
= liftDOM ((self ^. js "media") >>= fromJSValUnchecked)
getStyleSheet ::
(MonadDOM m) => CSSImportRule -> m (Maybe CSSStyleSheet)
getStyleSheet self
= liftDOM ((self ^. js "styleSheet") >>= fromJSVal)
getStyleSheetUnsafe ::
(MonadDOM m, HasCallStack) => CSSImportRule -> m CSSStyleSheet
getStyleSheetUnsafe self
= liftDOM
(((self ^. js "styleSheet") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getStyleSheetUnchecked ::
(MonadDOM m) => CSSImportRule -> m CSSStyleSheet
getStyleSheetUnchecked self
= liftDOM ((self ^. js "styleSheet") >>= fromJSValUnchecked)