module JSDOM.Generated.Performance
(webkitGetEntries, webkitGetEntriesByType, webkitGetEntriesByName,
webkitClearResourceTimings, webkitSetResourceTimingBufferSize,
webkitMark, webkitClearMarks, webkitMeasure, webkitClearMeasures,
now, getNavigation, getTiming, webKitResourceTimingBufferFull,
Performance, castToPerformance, gTypePerformance)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
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
webkitGetEntries ::
(MonadDOM m) => Performance -> m (Maybe PerformanceEntryList)
webkitGetEntries self
= liftDOM ((self ^. js "webkitGetEntries") >>= fromJSVal)
webkitGetEntriesByType ::
(MonadDOM m, ToJSString entryType) =>
Performance -> entryType -> m (Maybe PerformanceEntryList)
webkitGetEntriesByType self entryType
= liftDOM
((self ^. jsf "webkitGetEntriesByType" [toJSVal entryType]) >>=
fromJSVal)
webkitGetEntriesByName ::
(MonadDOM m, ToJSString name, ToJSString entryType) =>
Performance -> name -> entryType -> m (Maybe PerformanceEntryList)
webkitGetEntriesByName self name entryType
= liftDOM
((self ^. jsf "webkitGetEntriesByName"
[toJSVal name, toJSVal entryType])
>>= fromJSVal)
webkitClearResourceTimings :: (MonadDOM m) => Performance -> m ()
webkitClearResourceTimings self
= liftDOM (void (self ^. js "webkitClearResourceTimings"))
webkitSetResourceTimingBufferSize ::
(MonadDOM m) => Performance -> Word -> m ()
webkitSetResourceTimingBufferSize self maxSize
= liftDOM
(void
(self ^. jsf "webkitSetResourceTimingBufferSize"
[toJSVal maxSize]))
webkitMark ::
(MonadDOM m, ToJSString markName) =>
Performance -> markName -> m ()
webkitMark self markName
= liftDOM (void (self ^. jsf "webkitMark" [toJSVal markName]))
webkitClearMarks ::
(MonadDOM m, ToJSString markName) =>
Performance -> markName -> m ()
webkitClearMarks self markName
= liftDOM
(void (self ^. jsf "webkitClearMarks" [toJSVal markName]))
webkitMeasure ::
(MonadDOM m, ToJSString measureName, ToJSString startMark,
ToJSString endMark) =>
Performance -> measureName -> startMark -> endMark -> m ()
webkitMeasure self measureName startMark endMark
= liftDOM
(void
(self ^. jsf "webkitMeasure"
[toJSVal measureName, toJSVal startMark, toJSVal endMark]))
webkitClearMeasures ::
(MonadDOM m, ToJSString measureName) =>
Performance -> measureName -> m ()
webkitClearMeasures self measureName
= liftDOM
(void (self ^. jsf "webkitClearMeasures" [toJSVal measureName]))
now :: (MonadDOM m) => Performance -> m Double
now self = liftDOM ((self ^. js "now") >>= valToNumber)
getNavigation ::
(MonadDOM m) => Performance -> m (Maybe PerformanceNavigation)
getNavigation self
= liftDOM ((self ^. js "navigation") >>= fromJSVal)
getTiming ::
(MonadDOM m) => Performance -> m (Maybe PerformanceTiming)
getTiming self = liftDOM ((self ^. js "timing") >>= fromJSVal)
webKitResourceTimingBufferFull :: EventName Performance Event
webKitResourceTimingBufferFull
= unsafeEventName (toJSString "webkitresourcetimingbufferfull")