{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DocumentFragment (js_newDocumentFragment, newDocumentFragment, js_querySelector, querySelector, querySelector_, querySelectorUnsafe, querySelectorUnchecked, js_querySelectorAll, querySelectorAll, querySelectorAll_, querySelectorAllUnsafe, querySelectorAllUnchecked, DocumentFragment(..), gTypeDocumentFragment) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "new window[\"DocumentFragment\"]()" js_newDocumentFragment :: IO DocumentFragment -- | newDocumentFragment :: (MonadIO m) => m DocumentFragment newDocumentFragment = liftIO (js_newDocumentFragment) foreign import javascript unsafe "$1[\"querySelector\"]($2)" js_querySelector :: DocumentFragment -> JSString -> IO (Nullable Element) -- | querySelector :: (MonadIO m, ToJSString selectors) => DocumentFragment -> selectors -> m (Maybe Element) querySelector self selectors = liftIO (nullableToMaybe <$> (js_querySelector (self) (toJSString selectors))) -- | querySelector_ :: (MonadIO m, ToJSString selectors) => DocumentFragment -> selectors -> m () querySelector_ self selectors = liftIO (void (js_querySelector (self) (toJSString selectors))) -- | querySelectorUnsafe :: (MonadIO m, ToJSString selectors, HasCallStack) => DocumentFragment -> selectors -> m Element querySelectorUnsafe self selectors = liftIO ((nullableToMaybe <$> (js_querySelector (self) (toJSString selectors))) >>= maybe (Prelude.error "Nothing to return") return) -- | querySelectorUnchecked :: (MonadIO m, ToJSString selectors) => DocumentFragment -> selectors -> m Element querySelectorUnchecked self selectors = liftIO (fromJust . nullableToMaybe <$> (js_querySelector (self) (toJSString selectors))) foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)" js_querySelectorAll :: DocumentFragment -> JSString -> IO (Nullable NodeList) -- | querySelectorAll :: (MonadIO m, ToJSString selectors) => DocumentFragment -> selectors -> m (Maybe NodeList) querySelectorAll self selectors = liftIO (nullableToMaybe <$> (js_querySelectorAll (self) (toJSString selectors))) -- | querySelectorAll_ :: (MonadIO m, ToJSString selectors) => DocumentFragment -> selectors -> m () querySelectorAll_ self selectors = liftIO (void (js_querySelectorAll (self) (toJSString selectors))) -- | querySelectorAllUnsafe :: (MonadIO m, ToJSString selectors, HasCallStack) => DocumentFragment -> selectors -> m NodeList querySelectorAllUnsafe self selectors = liftIO ((nullableToMaybe <$> (js_querySelectorAll (self) (toJSString selectors))) >>= maybe (Prelude.error "Nothing to return") return) -- | querySelectorAllUnchecked :: (MonadIO m, ToJSString selectors) => DocumentFragment -> selectors -> m NodeList querySelectorAllUnchecked self selectors = liftIO (fromJust . nullableToMaybe <$> (js_querySelectorAll (self) (toJSString selectors)))