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))