module JSDOM.Generated.CommandLineAPIHost
(clearConsoleMessages, copyText, inspect, inspectedObject,
inspectedObject_, getEventListeners, getEventListeners_,
getEventListenersUnsafe, getEventListenersUnchecked, databaseId,
databaseId_, storageId, storageId_, CommandLineAPIHost(..),
gTypeCommandLineAPIHost)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
clearConsoleMessages :: (MonadDOM m) => CommandLineAPIHost -> m ()
clearConsoleMessages self
= liftDOM (void (self ^. jsf "clearConsoleMessages" ()))
copyText ::
(MonadDOM m, ToJSString text) => CommandLineAPIHost -> text -> m ()
copyText self text
= liftDOM (void (self ^. jsf "copyText" [toJSVal text]))
inspect ::
(MonadDOM m) => CommandLineAPIHost -> JSVal -> JSVal -> m ()
inspect self objectId hints
= liftDOM
(void (self ^. jsf "inspect" [toJSVal objectId, toJSVal hints]))
inspectedObject ::
(MonadDOM m) => CommandLineAPIHost -> Int -> m JSVal
inspectedObject self num
= liftDOM
((self ^. jsf "inspectedObject" [toJSVal num]) >>= toJSVal)
inspectedObject_ ::
(MonadDOM m) => CommandLineAPIHost -> Int -> m ()
inspectedObject_ self num
= liftDOM (void (self ^. jsf "inspectedObject" [toJSVal num]))
getEventListeners ::
(MonadDOM m, IsNode node) =>
CommandLineAPIHost -> Maybe node -> m (Maybe Array)
getEventListeners self node
= liftDOM
((self ^. jsf "getEventListeners" [toJSVal node]) >>= fromJSVal)
getEventListeners_ ::
(MonadDOM m, IsNode node) =>
CommandLineAPIHost -> Maybe node -> m ()
getEventListeners_ self node
= liftDOM (void (self ^. jsf "getEventListeners" [toJSVal node]))
getEventListenersUnsafe ::
(MonadDOM m, IsNode node, HasCallStack) =>
CommandLineAPIHost -> Maybe node -> m Array
getEventListenersUnsafe self node
= liftDOM
(((self ^. jsf "getEventListeners" [toJSVal node]) >>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getEventListenersUnchecked ::
(MonadDOM m, IsNode node) =>
CommandLineAPIHost -> Maybe node -> m Array
getEventListenersUnchecked self node
= liftDOM
((self ^. jsf "getEventListeners" [toJSVal node]) >>=
fromJSValUnchecked)
databaseId ::
(MonadDOM m, FromJSString result) =>
CommandLineAPIHost -> JSVal -> m result
databaseId self database
= liftDOM
((self ^. jsf "databaseId" [toJSVal database]) >>=
fromJSValUnchecked)
databaseId_ :: (MonadDOM m) => CommandLineAPIHost -> JSVal -> m ()
databaseId_ self database
= liftDOM (void (self ^. jsf "databaseId" [toJSVal database]))
storageId ::
(MonadDOM m, FromJSString result) =>
CommandLineAPIHost -> JSVal -> m result
storageId self storage
= liftDOM
((self ^. jsf "storageId" [toJSVal storage]) >>=
fromJSValUnchecked)
storageId_ :: (MonadDOM m) => CommandLineAPIHost -> JSVal -> m ()
storageId_ self storage
= liftDOM (void (self ^. jsf "storageId" [toJSVal storage]))