{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost (js_clearConsoleMessages, clearConsoleMessages, js_copyText, copyText, js_inspect, inspect, js_inspectedObject, inspectedObject, js_getEventListeners, getEventListeners, js_databaseId, databaseId, js_storageId, storageId, CommandLineAPIHost, castToCommandLineAPIHost, gTypeCommandLineAPIHost) 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[\"clearConsoleMessages\"]()" js_clearConsoleMessages :: JSRef CommandLineAPIHost -> IO () -- | clearConsoleMessages :: (MonadIO m) => CommandLineAPIHost -> m () clearConsoleMessages self = liftIO (js_clearConsoleMessages (unCommandLineAPIHost self)) foreign import javascript unsafe "$1[\"copyText\"]($2)" js_copyText :: JSRef CommandLineAPIHost -> JSString -> IO () -- | copyText :: (MonadIO m, ToJSString text) => CommandLineAPIHost -> text -> m () copyText self text = liftIO (js_copyText (unCommandLineAPIHost self) (toJSString text)) foreign import javascript unsafe "$1[\"inspect\"]($2, $3)" js_inspect :: JSRef CommandLineAPIHost -> JSRef a -> JSRef a -> IO () -- | inspect :: (MonadIO m) => CommandLineAPIHost -> JSRef a -> JSRef a -> m () inspect self objectId hints = liftIO (js_inspect (unCommandLineAPIHost self) objectId hints) foreign import javascript unsafe "$1[\"inspectedObject\"]($2)" js_inspectedObject :: JSRef CommandLineAPIHost -> Int -> IO (JSRef a) -- | inspectedObject :: (MonadIO m) => CommandLineAPIHost -> Int -> m (JSRef a) inspectedObject self num = liftIO (js_inspectedObject (unCommandLineAPIHost self) num) foreign import javascript unsafe "$1[\"getEventListeners\"]($2)" js_getEventListeners :: JSRef CommandLineAPIHost -> JSRef Node -> IO (JSRef Array) -- | getEventListeners :: (MonadIO m, IsNode node) => CommandLineAPIHost -> Maybe node -> m (Maybe Array) getEventListeners self node = liftIO ((js_getEventListeners (unCommandLineAPIHost self) (maybe jsNull (unNode . toNode) node)) >>= fromJSRef) foreign import javascript unsafe "$1[\"databaseId\"]($2)" js_databaseId :: JSRef CommandLineAPIHost -> JSRef a -> IO JSString -- | databaseId :: (MonadIO m, FromJSString result) => CommandLineAPIHost -> JSRef a -> m result databaseId self database = liftIO (fromJSString <$> (js_databaseId (unCommandLineAPIHost self) database)) foreign import javascript unsafe "$1[\"storageId\"]($2)" js_storageId :: JSRef CommandLineAPIHost -> JSRef a -> IO JSString -- | storageId :: (MonadIO m, FromJSString result) => CommandLineAPIHost -> JSRef a -> m result storageId self storage = liftIO (fromJSString <$> (js_storageId (unCommandLineAPIHost self) storage))