module JSDOM.Generated.Performance
(webkitGetEntries, webkitGetEntries_, webkitGetEntriesUnchecked,
webkitGetEntriesByType, webkitGetEntriesByType_,
webkitGetEntriesByTypeUnchecked, webkitGetEntriesByName,
webkitGetEntriesByName_, webkitGetEntriesByNameUnchecked,
webkitClearResourceTimings, webkitSetResourceTimingBufferSize,
webkitMark, webkitClearMarks, webkitMeasure, webkitClearMeasures,
now, now_, getNavigation, getNavigationUnchecked, getTiming,
getTimingUnchecked, 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 ^. jsf "webkitGetEntries" ()) >>= fromJSVal)
webkitGetEntries_ :: (MonadDOM m) => Performance -> m ()
webkitGetEntries_ self
= liftDOM (void (self ^. jsf "webkitGetEntries" ()))
webkitGetEntriesUnchecked ::
(MonadDOM m) => Performance -> m PerformanceEntryList
webkitGetEntriesUnchecked self
= liftDOM
((self ^. jsf "webkitGetEntries" ()) >>= fromJSValUnchecked)
webkitGetEntriesByType ::
(MonadDOM m, ToJSString entryType) =>
Performance -> entryType -> m (Maybe PerformanceEntryList)
webkitGetEntriesByType self entryType
= liftDOM
((self ^. jsf "webkitGetEntriesByType" [toJSVal entryType]) >>=
fromJSVal)
webkitGetEntriesByType_ ::
(MonadDOM m, ToJSString entryType) =>
Performance -> entryType -> m ()
webkitGetEntriesByType_ self entryType
= liftDOM
(void (self ^. jsf "webkitGetEntriesByType" [toJSVal entryType]))
webkitGetEntriesByTypeUnchecked ::
(MonadDOM m, ToJSString entryType) =>
Performance -> entryType -> m PerformanceEntryList
webkitGetEntriesByTypeUnchecked self entryType
= liftDOM
((self ^. jsf "webkitGetEntriesByType" [toJSVal entryType]) >>=
fromJSValUnchecked)
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)
webkitGetEntriesByName_ ::
(MonadDOM m, ToJSString name, ToJSString entryType) =>
Performance -> name -> entryType -> m ()
webkitGetEntriesByName_ self name entryType
= liftDOM
(void
(self ^. jsf "webkitGetEntriesByName"
[toJSVal name, toJSVal entryType]))
webkitGetEntriesByNameUnchecked ::
(MonadDOM m, ToJSString name, ToJSString entryType) =>
Performance -> name -> entryType -> m PerformanceEntryList
webkitGetEntriesByNameUnchecked self name entryType
= liftDOM
((self ^. jsf "webkitGetEntriesByName"
[toJSVal name, toJSVal entryType])
>>= fromJSValUnchecked)
webkitClearResourceTimings :: (MonadDOM m) => Performance -> m ()
webkitClearResourceTimings self
= liftDOM (void (self ^. jsf "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 ^. jsf "now" ()) >>= valToNumber)
now_ :: (MonadDOM m) => Performance -> m ()
now_ self = liftDOM (void (self ^. jsf "now" ()))
getNavigation ::
(MonadDOM m) => Performance -> m (Maybe PerformanceNavigation)
getNavigation self
= liftDOM ((self ^. js "navigation") >>= fromJSVal)
getNavigationUnchecked ::
(MonadDOM m) => Performance -> m PerformanceNavigation
getNavigationUnchecked self
= liftDOM ((self ^. js "navigation") >>= fromJSValUnchecked)
getTiming ::
(MonadDOM m) => Performance -> m (Maybe PerformanceTiming)
getTiming self = liftDOM ((self ^. js "timing") >>= fromJSVal)
getTimingUnchecked ::
(MonadDOM m) => Performance -> m PerformanceTiming
getTimingUnchecked self
= liftDOM ((self ^. js "timing") >>= fromJSValUnchecked)
webKitResourceTimingBufferFull :: EventName Performance Event
webKitResourceTimingBufferFull
= unsafeEventName (toJSString "webkitresourcetimingbufferfull")