{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost (js_clearConsoleMessages, clearConsoleMessages, js_copyText, copyText, js_inspect, inspect, js_inspectedObject, inspectedObject, inspectedObject_, js_getEventListeners, getEventListeners, getEventListeners_, getEventListenersUnsafe, getEventListenersUnchecked, js_databaseId, databaseId, databaseId_, js_storageId, storageId, storageId_, CommandLineAPIHost(..), gTypeCommandLineAPIHost) 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 "$1[\"clearConsoleMessages\"]()" js_clearConsoleMessages :: CommandLineAPIHost -> IO () -- | clearConsoleMessages :: (MonadIO m) => CommandLineAPIHost -> m () clearConsoleMessages self = liftIO (js_clearConsoleMessages (self)) foreign import javascript unsafe "$1[\"copyText\"]($2)" js_copyText :: CommandLineAPIHost -> JSString -> IO () -- | copyText :: (MonadIO m, ToJSString text) => CommandLineAPIHost -> text -> m () copyText self text = liftIO (js_copyText (self) (toJSString text)) foreign import javascript unsafe "$1[\"inspect\"]($2, $3)" js_inspect :: CommandLineAPIHost -> JSVal -> JSVal -> IO () -- | inspect :: (MonadIO m) => CommandLineAPIHost -> JSVal -> JSVal -> m () inspect self objectId hints = liftIO (js_inspect (self) objectId hints) foreign import javascript unsafe "$1[\"inspectedObject\"]($2)" js_inspectedObject :: CommandLineAPIHost -> Int -> IO JSVal -- | inspectedObject :: (MonadIO m) => CommandLineAPIHost -> Int -> m JSVal inspectedObject self num = liftIO (js_inspectedObject (self) num) -- | inspectedObject_ :: (MonadIO m) => CommandLineAPIHost -> Int -> m () inspectedObject_ self num = liftIO (void (js_inspectedObject (self) num)) foreign import javascript unsafe "$1[\"getEventListeners\"]($2)" js_getEventListeners :: CommandLineAPIHost -> Nullable Node -> IO (Nullable Array) -- | getEventListeners :: (MonadIO m, IsNode node) => CommandLineAPIHost -> Maybe node -> m (Maybe Array) getEventListeners self node = liftIO (nullableToMaybe <$> (js_getEventListeners (self) (maybeToNullable (fmap toNode node)))) -- | getEventListeners_ :: (MonadIO m, IsNode node) => CommandLineAPIHost -> Maybe node -> m () getEventListeners_ self node = liftIO (void (js_getEventListeners (self) (maybeToNullable (fmap toNode node)))) -- | getEventListenersUnsafe :: (MonadIO m, IsNode node, HasCallStack) => CommandLineAPIHost -> Maybe node -> m Array getEventListenersUnsafe self node = liftIO ((nullableToMaybe <$> (js_getEventListeners (self) (maybeToNullable (fmap toNode node)))) >>= maybe (Prelude.error "Nothing to return") return) -- | getEventListenersUnchecked :: (MonadIO m, IsNode node) => CommandLineAPIHost -> Maybe node -> m Array getEventListenersUnchecked self node = liftIO (fromJust . nullableToMaybe <$> (js_getEventListeners (self) (maybeToNullable (fmap toNode node)))) foreign import javascript unsafe "$1[\"databaseId\"]($2)" js_databaseId :: CommandLineAPIHost -> JSVal -> IO JSString -- | databaseId :: (MonadIO m, FromJSString result) => CommandLineAPIHost -> JSVal -> m result databaseId self database = liftIO (fromJSString <$> (js_databaseId (self) database)) -- | databaseId_ :: (MonadIO m) => CommandLineAPIHost -> JSVal -> m () databaseId_ self database = liftIO (void (js_databaseId (self) database)) foreign import javascript unsafe "$1[\"storageId\"]($2)" js_storageId :: CommandLineAPIHost -> JSVal -> IO JSString -- | storageId :: (MonadIO m, FromJSString result) => CommandLineAPIHost -> JSVal -> m result storageId self storage = liftIO (fromJSString <$> (js_storageId (self) storage)) -- | storageId_ :: (MonadIO m) => CommandLineAPIHost -> JSVal -> m () storageId_ self storage = liftIO (void (js_storageId (self) storage))