{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSImportRule (js_getHref, getHref, js_getMedia, getMedia, js_getStyleSheet, getStyleSheet, CSSImportRule, castToCSSImportRule, gTypeCSSImportRule) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"href\"]" js_getHref :: JSRef CSSImportRule -> IO (JSRef (Maybe JSString)) -- | getHref :: (MonadIO m, FromJSString result) => CSSImportRule -> m (Maybe result) getHref self = liftIO (fromMaybeJSString <$> (js_getHref (unCSSImportRule self))) foreign import javascript unsafe "$1[\"media\"]" js_getMedia :: JSRef CSSImportRule -> IO (JSRef MediaList) -- | getMedia :: (MonadIO m) => CSSImportRule -> m (Maybe MediaList) getMedia self = liftIO ((js_getMedia (unCSSImportRule self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"styleSheet\"]" js_getStyleSheet :: JSRef CSSImportRule -> IO (JSRef CSSStyleSheet) -- | getStyleSheet :: (MonadIO m) => CSSImportRule -> m (Maybe CSSStyleSheet) getStyleSheet self = liftIO ((js_getStyleSheet (unCSSImportRule self)) >>= fromJSRef)