{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Performance (js_webkitGetEntries, webkitGetEntries, js_webkitGetEntriesByType, webkitGetEntriesByType, js_webkitGetEntriesByName, webkitGetEntriesByName, js_webkitClearResourceTimings, webkitClearResourceTimings, js_webkitSetResourceTimingBufferSize, webkitSetResourceTimingBufferSize, js_webkitMark, webkitMark, js_webkitClearMarks, webkitClearMarks, js_webkitMeasure, webkitMeasure, js_webkitClearMeasures, webkitClearMeasures, js_now, now, js_getNavigation, getNavigation, js_getTiming, getTiming, webKitResourceTimingBufferFull, Performance, castToPerformance, gTypePerformance) 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[\"webkitGetEntries\"]()" js_webkitGetEntries :: JSRef Performance -> IO (JSRef PerformanceEntryList) -- | webkitGetEntries :: (MonadIO m) => Performance -> m (Maybe PerformanceEntryList) webkitGetEntries self = liftIO ((js_webkitGetEntries (unPerformance self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"webkitGetEntriesByType\"]($2)" js_webkitGetEntriesByType :: JSRef Performance -> JSString -> IO (JSRef PerformanceEntryList) -- | webkitGetEntriesByType :: (MonadIO m, ToJSString entryType) => Performance -> entryType -> m (Maybe PerformanceEntryList) webkitGetEntriesByType self entryType = liftIO ((js_webkitGetEntriesByType (unPerformance self) (toJSString entryType)) >>= fromJSRef) foreign import javascript unsafe "$1[\"webkitGetEntriesByName\"]($2,\n$3)" js_webkitGetEntriesByName :: JSRef Performance -> JSString -> JSString -> IO (JSRef PerformanceEntryList) -- | webkitGetEntriesByName :: (MonadIO m, ToJSString name, ToJSString entryType) => Performance -> name -> entryType -> m (Maybe PerformanceEntryList) webkitGetEntriesByName self name entryType = liftIO ((js_webkitGetEntriesByName (unPerformance self) (toJSString name) (toJSString entryType)) >>= fromJSRef) foreign import javascript unsafe "$1[\"webkitClearResourceTimings\"]()" js_webkitClearResourceTimings :: JSRef Performance -> IO () -- | webkitClearResourceTimings :: (MonadIO m) => Performance -> m () webkitClearResourceTimings self = liftIO (js_webkitClearResourceTimings (unPerformance self)) foreign import javascript unsafe "$1[\"webkitSetResourceTimingBufferSize\"]($2)" js_webkitSetResourceTimingBufferSize :: JSRef Performance -> Word -> IO () -- | webkitSetResourceTimingBufferSize :: (MonadIO m) => Performance -> Word -> m () webkitSetResourceTimingBufferSize self maxSize = liftIO (js_webkitSetResourceTimingBufferSize (unPerformance self) maxSize) foreign import javascript unsafe "$1[\"webkitMark\"]($2)" js_webkitMark :: JSRef Performance -> JSString -> IO () -- | webkitMark :: (MonadIO m, ToJSString markName) => Performance -> markName -> m () webkitMark self markName = liftIO (js_webkitMark (unPerformance self) (toJSString markName)) foreign import javascript unsafe "$1[\"webkitClearMarks\"]($2)" js_webkitClearMarks :: JSRef Performance -> JSString -> IO () -- | webkitClearMarks :: (MonadIO m, ToJSString markName) => Performance -> markName -> m () webkitClearMarks self markName = liftIO (js_webkitClearMarks (unPerformance self) (toJSString markName)) foreign import javascript unsafe "$1[\"webkitMeasure\"]($2, $3, $4)" js_webkitMeasure :: JSRef Performance -> JSString -> JSString -> JSString -> IO () -- | webkitMeasure :: (MonadIO m, ToJSString measureName, ToJSString startMark, ToJSString endMark) => Performance -> measureName -> startMark -> endMark -> m () webkitMeasure self measureName startMark endMark = liftIO (js_webkitMeasure (unPerformance self) (toJSString measureName) (toJSString startMark) (toJSString endMark)) foreign import javascript unsafe "$1[\"webkitClearMeasures\"]($2)" js_webkitClearMeasures :: JSRef Performance -> JSString -> IO () -- | webkitClearMeasures :: (MonadIO m, ToJSString measureName) => Performance -> measureName -> m () webkitClearMeasures self measureName = liftIO (js_webkitClearMeasures (unPerformance self) (toJSString measureName)) foreign import javascript unsafe "$1[\"now\"]()" js_now :: JSRef Performance -> IO Double -- | now :: (MonadIO m) => Performance -> m Double now self = liftIO (js_now (unPerformance self)) foreign import javascript unsafe "$1[\"navigation\"]" js_getNavigation :: JSRef Performance -> IO (JSRef PerformanceNavigation) -- | getNavigation :: (MonadIO m) => Performance -> m (Maybe PerformanceNavigation) getNavigation self = liftIO ((js_getNavigation (unPerformance self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"timing\"]" js_getTiming :: JSRef Performance -> IO (JSRef PerformanceTiming) -- | getTiming :: (MonadIO m) => Performance -> m (Maybe PerformanceTiming) getTiming self = liftIO ((js_getTiming (unPerformance self)) >>= fromJSRef) -- | webKitResourceTimingBufferFull :: EventName Performance Event webKitResourceTimingBufferFull = unsafeEventName (toJSString "webkitresourcetimingbufferfull")