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