{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.PerformanceResourceTiming
(getInitiatorType, getNextHopProtocol, getWorkerStart,
getRedirectStart, getRedirectEnd, getFetchStart,
getDomainLookupStart, getDomainLookupEnd, getConnectStart,
getConnectEnd, getSecureConnectionStart, getRequestStart,
getResponseStart, getResponseEnd, PerformanceResourceTiming(..),
gTypePerformanceResourceTiming)
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 Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
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, unsafeEventNameAsync)
import JSDOM.Enums
getInitiatorType ::
(MonadDOM m, FromJSString result) =>
PerformanceResourceTiming -> m result
getInitiatorType :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
PerformanceResourceTiming -> m result
getInitiatorType PerformanceResourceTiming
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PerformanceResourceTiming
self PerformanceResourceTiming
-> Getting (JSM JSVal) PerformanceResourceTiming (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter PerformanceResourceTiming (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"initiatorType") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getNextHopProtocol ::
(MonadDOM m, FromJSString result) =>
PerformanceResourceTiming -> m result
getNextHopProtocol :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
PerformanceResourceTiming -> m result
getNextHopProtocol PerformanceResourceTiming
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PerformanceResourceTiming
self PerformanceResourceTiming
-> Getting (JSM JSVal) PerformanceResourceTiming (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter PerformanceResourceTiming (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"nextHopProtocol") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getWorkerStart ::
(MonadDOM m) => PerformanceResourceTiming -> m DOMHighResTimeStamp
getWorkerStart :: forall (m :: * -> *).
MonadDOM m =>
PerformanceResourceTiming -> m DOMHighResTimeStamp
getWorkerStart PerformanceResourceTiming
self
= DOM DOMHighResTimeStamp -> m DOMHighResTimeStamp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PerformanceResourceTiming
self PerformanceResourceTiming
-> Getting (JSM JSVal) PerformanceResourceTiming (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter PerformanceResourceTiming (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"workerStart") JSM JSVal
-> (JSVal -> DOM DOMHighResTimeStamp) -> DOM DOMHighResTimeStamp
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DOMHighResTimeStamp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getRedirectStart ::
(MonadDOM m) => PerformanceResourceTiming -> m DOMHighResTimeStamp
getRedirectStart :: forall (m :: * -> *).
MonadDOM m =>
PerformanceResourceTiming -> m DOMHighResTimeStamp
getRedirectStart PerformanceResourceTiming
self
= DOM DOMHighResTimeStamp -> m DOMHighResTimeStamp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PerformanceResourceTiming
self PerformanceResourceTiming
-> Getting (JSM JSVal) PerformanceResourceTiming (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter PerformanceResourceTiming (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"redirectStart") JSM JSVal
-> (JSVal -> DOM DOMHighResTimeStamp) -> DOM DOMHighResTimeStamp
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DOMHighResTimeStamp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getRedirectEnd ::
(MonadDOM m) => PerformanceResourceTiming -> m DOMHighResTimeStamp
getRedirectEnd :: forall (m :: * -> *).
MonadDOM m =>
PerformanceResourceTiming -> m DOMHighResTimeStamp
getRedirectEnd PerformanceResourceTiming
self
= DOM DOMHighResTimeStamp -> m DOMHighResTimeStamp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PerformanceResourceTiming
self PerformanceResourceTiming
-> Getting (JSM JSVal) PerformanceResourceTiming (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter PerformanceResourceTiming (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"redirectEnd") JSM JSVal
-> (JSVal -> DOM DOMHighResTimeStamp) -> DOM DOMHighResTimeStamp
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DOMHighResTimeStamp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getFetchStart ::
(MonadDOM m) => PerformanceResourceTiming -> m DOMHighResTimeStamp
getFetchStart :: forall (m :: * -> *).
MonadDOM m =>
PerformanceResourceTiming -> m DOMHighResTimeStamp
getFetchStart PerformanceResourceTiming
self
= DOM DOMHighResTimeStamp -> m DOMHighResTimeStamp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PerformanceResourceTiming
self PerformanceResourceTiming
-> Getting (JSM JSVal) PerformanceResourceTiming (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter PerformanceResourceTiming (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"fetchStart") JSM JSVal
-> (JSVal -> DOM DOMHighResTimeStamp) -> DOM DOMHighResTimeStamp
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DOMHighResTimeStamp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getDomainLookupStart ::
(MonadDOM m) => PerformanceResourceTiming -> m DOMHighResTimeStamp
getDomainLookupStart :: forall (m :: * -> *).
MonadDOM m =>
PerformanceResourceTiming -> m DOMHighResTimeStamp
getDomainLookupStart PerformanceResourceTiming
self
= DOM DOMHighResTimeStamp -> m DOMHighResTimeStamp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PerformanceResourceTiming
self PerformanceResourceTiming
-> Getting (JSM JSVal) PerformanceResourceTiming (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter PerformanceResourceTiming (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"domainLookupStart") JSM JSVal
-> (JSVal -> DOM DOMHighResTimeStamp) -> DOM DOMHighResTimeStamp
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DOMHighResTimeStamp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getDomainLookupEnd ::
(MonadDOM m) => PerformanceResourceTiming -> m DOMHighResTimeStamp
getDomainLookupEnd :: forall (m :: * -> *).
MonadDOM m =>
PerformanceResourceTiming -> m DOMHighResTimeStamp
getDomainLookupEnd PerformanceResourceTiming
self
= DOM DOMHighResTimeStamp -> m DOMHighResTimeStamp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PerformanceResourceTiming
self PerformanceResourceTiming
-> Getting (JSM JSVal) PerformanceResourceTiming (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter PerformanceResourceTiming (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"domainLookupEnd") JSM JSVal
-> (JSVal -> DOM DOMHighResTimeStamp) -> DOM DOMHighResTimeStamp
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DOMHighResTimeStamp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getConnectStart ::
(MonadDOM m) => PerformanceResourceTiming -> m DOMHighResTimeStamp
getConnectStart :: forall (m :: * -> *).
MonadDOM m =>
PerformanceResourceTiming -> m DOMHighResTimeStamp
getConnectStart PerformanceResourceTiming
self
= DOM DOMHighResTimeStamp -> m DOMHighResTimeStamp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PerformanceResourceTiming
self PerformanceResourceTiming
-> Getting (JSM JSVal) PerformanceResourceTiming (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter PerformanceResourceTiming (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"connectStart") JSM JSVal
-> (JSVal -> DOM DOMHighResTimeStamp) -> DOM DOMHighResTimeStamp
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DOMHighResTimeStamp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getConnectEnd ::
(MonadDOM m) => PerformanceResourceTiming -> m DOMHighResTimeStamp
getConnectEnd :: forall (m :: * -> *).
MonadDOM m =>
PerformanceResourceTiming -> m DOMHighResTimeStamp
getConnectEnd PerformanceResourceTiming
self
= DOM DOMHighResTimeStamp -> m DOMHighResTimeStamp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PerformanceResourceTiming
self PerformanceResourceTiming
-> Getting (JSM JSVal) PerformanceResourceTiming (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter PerformanceResourceTiming (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"connectEnd") JSM JSVal
-> (JSVal -> DOM DOMHighResTimeStamp) -> DOM DOMHighResTimeStamp
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DOMHighResTimeStamp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getSecureConnectionStart ::
(MonadDOM m) => PerformanceResourceTiming -> m DOMHighResTimeStamp
getSecureConnectionStart :: forall (m :: * -> *).
MonadDOM m =>
PerformanceResourceTiming -> m DOMHighResTimeStamp
getSecureConnectionStart PerformanceResourceTiming
self
= DOM DOMHighResTimeStamp -> m DOMHighResTimeStamp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((PerformanceResourceTiming
self PerformanceResourceTiming
-> Getting (JSM JSVal) PerformanceResourceTiming (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter PerformanceResourceTiming (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"secureConnectionStart") JSM JSVal
-> (JSVal -> DOM DOMHighResTimeStamp) -> DOM DOMHighResTimeStamp
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DOMHighResTimeStamp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getRequestStart ::
(MonadDOM m) => PerformanceResourceTiming -> m DOMHighResTimeStamp
getRequestStart :: forall (m :: * -> *).
MonadDOM m =>
PerformanceResourceTiming -> m DOMHighResTimeStamp
getRequestStart PerformanceResourceTiming
self
= DOM DOMHighResTimeStamp -> m DOMHighResTimeStamp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PerformanceResourceTiming
self PerformanceResourceTiming
-> Getting (JSM JSVal) PerformanceResourceTiming (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter PerformanceResourceTiming (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"requestStart") JSM JSVal
-> (JSVal -> DOM DOMHighResTimeStamp) -> DOM DOMHighResTimeStamp
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DOMHighResTimeStamp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getResponseStart ::
(MonadDOM m) => PerformanceResourceTiming -> m DOMHighResTimeStamp
getResponseStart :: forall (m :: * -> *).
MonadDOM m =>
PerformanceResourceTiming -> m DOMHighResTimeStamp
getResponseStart PerformanceResourceTiming
self
= DOM DOMHighResTimeStamp -> m DOMHighResTimeStamp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PerformanceResourceTiming
self PerformanceResourceTiming
-> Getting (JSM JSVal) PerformanceResourceTiming (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter PerformanceResourceTiming (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"responseStart") JSM JSVal
-> (JSVal -> DOM DOMHighResTimeStamp) -> DOM DOMHighResTimeStamp
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DOMHighResTimeStamp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getResponseEnd ::
(MonadDOM m) => PerformanceResourceTiming -> m DOMHighResTimeStamp
getResponseEnd :: forall (m :: * -> *).
MonadDOM m =>
PerformanceResourceTiming -> m DOMHighResTimeStamp
getResponseEnd PerformanceResourceTiming
self
= DOM DOMHighResTimeStamp -> m DOMHighResTimeStamp
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((PerformanceResourceTiming
self PerformanceResourceTiming
-> Getting (JSM JSVal) PerformanceResourceTiming (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String
-> IndexPreservingGetter PerformanceResourceTiming (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"responseEnd") JSM JSVal
-> (JSVal -> DOM DOMHighResTimeStamp) -> DOM DOMHighResTimeStamp
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DOMHighResTimeStamp
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)