{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Soup.Structs.MessageMetrics
(
MessageMetrics(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveMessageMetricsMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
MessageMetricsCopyMethodInfo ,
#endif
messageMetricsCopy ,
#if defined(ENABLE_OVERLOADING)
MessageMetricsFreeMethodInfo ,
#endif
messageMetricsFree ,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetConnectEndMethodInfo ,
#endif
messageMetricsGetConnectEnd ,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetConnectStartMethodInfo ,
#endif
messageMetricsGetConnectStart ,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetDnsEndMethodInfo ,
#endif
messageMetricsGetDnsEnd ,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetDnsStartMethodInfo ,
#endif
messageMetricsGetDnsStart ,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetFetchStartMethodInfo ,
#endif
messageMetricsGetFetchStart ,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetRequestBodyBytesSentMethodInfo,
#endif
messageMetricsGetRequestBodyBytesSent ,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetRequestBodySizeMethodInfo,
#endif
messageMetricsGetRequestBodySize ,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetRequestHeaderBytesSentMethodInfo,
#endif
messageMetricsGetRequestHeaderBytesSent ,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetRequestStartMethodInfo ,
#endif
messageMetricsGetRequestStart ,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetResponseBodyBytesReceivedMethodInfo,
#endif
messageMetricsGetResponseBodyBytesReceived,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetResponseBodySizeMethodInfo,
#endif
messageMetricsGetResponseBodySize ,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetResponseEndMethodInfo ,
#endif
messageMetricsGetResponseEnd ,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetResponseHeaderBytesReceivedMethodInfo,
#endif
messageMetricsGetResponseHeaderBytesReceived,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetResponseStartMethodInfo,
#endif
messageMetricsGetResponseStart ,
#if defined(ENABLE_OVERLOADING)
MessageMetricsGetTlsStartMethodInfo ,
#endif
messageMetricsGetTlsStart ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
newtype MessageMetrics = MessageMetrics (SP.ManagedPtr MessageMetrics)
deriving (MessageMetrics -> MessageMetrics -> Bool
(MessageMetrics -> MessageMetrics -> Bool)
-> (MessageMetrics -> MessageMetrics -> Bool) -> Eq MessageMetrics
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MessageMetrics -> MessageMetrics -> Bool
== :: MessageMetrics -> MessageMetrics -> Bool
$c/= :: MessageMetrics -> MessageMetrics -> Bool
/= :: MessageMetrics -> MessageMetrics -> Bool
Eq)
instance SP.ManagedPtrNewtype MessageMetrics where
toManagedPtr :: MessageMetrics -> ManagedPtr MessageMetrics
toManagedPtr (MessageMetrics ManagedPtr MessageMetrics
p) = ManagedPtr MessageMetrics
p
foreign import ccall "soup_message_metrics_get_type" c_soup_message_metrics_get_type ::
IO GType
type instance O.ParentTypes MessageMetrics = '[]
instance O.HasParentTypes MessageMetrics
instance B.Types.TypedObject MessageMetrics where
glibType :: IO GType
glibType = IO GType
c_soup_message_metrics_get_type
instance B.Types.GBoxed MessageMetrics
instance B.GValue.IsGValue (Maybe MessageMetrics) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_soup_message_metrics_get_type
gvalueSet_ :: Ptr GValue -> Maybe MessageMetrics -> IO ()
gvalueSet_ Ptr GValue
gv Maybe MessageMetrics
P.Nothing = Ptr GValue -> Ptr MessageMetrics -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr MessageMetrics
forall a. Ptr a
FP.nullPtr :: FP.Ptr MessageMetrics)
gvalueSet_ Ptr GValue
gv (P.Just MessageMetrics
obj) = MessageMetrics -> (Ptr MessageMetrics -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr MessageMetrics
obj (Ptr GValue -> Ptr MessageMetrics -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe MessageMetrics)
gvalueGet_ Ptr GValue
gv = do
Ptr MessageMetrics
ptr <- Ptr GValue -> IO (Ptr MessageMetrics)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr MessageMetrics)
if Ptr MessageMetrics
ptr Ptr MessageMetrics -> Ptr MessageMetrics -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr MessageMetrics
forall a. Ptr a
FP.nullPtr
then MessageMetrics -> Maybe MessageMetrics
forall a. a -> Maybe a
P.Just (MessageMetrics -> Maybe MessageMetrics)
-> IO MessageMetrics -> IO (Maybe MessageMetrics)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr MessageMetrics -> MessageMetrics)
-> Ptr MessageMetrics -> IO MessageMetrics
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr MessageMetrics -> MessageMetrics
MessageMetrics Ptr MessageMetrics
ptr
else Maybe MessageMetrics -> IO (Maybe MessageMetrics)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MessageMetrics
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList MessageMetrics
type instance O.AttributeList MessageMetrics = MessageMetricsAttributeList
type MessageMetricsAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "soup_message_metrics_copy" soup_message_metrics_copy ::
Ptr MessageMetrics ->
IO (Ptr MessageMetrics)
messageMetricsCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m MessageMetrics
messageMetricsCopy :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m MessageMetrics
messageMetricsCopy MessageMetrics
metrics = IO MessageMetrics -> m MessageMetrics
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MessageMetrics -> m MessageMetrics)
-> IO MessageMetrics -> m MessageMetrics
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Ptr MessageMetrics
result <- Ptr MessageMetrics -> IO (Ptr MessageMetrics)
soup_message_metrics_copy Ptr MessageMetrics
metrics'
Text -> Ptr MessageMetrics -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"messageMetricsCopy" Ptr MessageMetrics
result
MessageMetrics
result' <- ((ManagedPtr MessageMetrics -> MessageMetrics)
-> Ptr MessageMetrics -> IO MessageMetrics
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr MessageMetrics -> MessageMetrics
MessageMetrics) Ptr MessageMetrics
result
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
MessageMetrics -> IO MessageMetrics
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MessageMetrics
result'
#if defined(ENABLE_OVERLOADING)
data MessageMetricsCopyMethodInfo
instance (signature ~ (m MessageMetrics), MonadIO m) => O.OverloadedMethod MessageMetricsCopyMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsCopy
instance O.OverloadedMethodInfo MessageMetricsCopyMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsCopy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsCopy"
})
#endif
foreign import ccall "soup_message_metrics_free" soup_message_metrics_free ::
Ptr MessageMetrics ->
IO ()
messageMetricsFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m ()
messageMetricsFree :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m ()
messageMetricsFree MessageMetrics
metrics = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Ptr MessageMetrics -> IO ()
soup_message_metrics_free Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MessageMetricsFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod MessageMetricsFreeMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsFree
instance O.OverloadedMethodInfo MessageMetricsFreeMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsFree",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsFree"
})
#endif
foreign import ccall "soup_message_metrics_get_connect_end" soup_message_metrics_get_connect_end ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetConnectEnd ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
messageMetricsGetConnectEnd :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m Word64
messageMetricsGetConnectEnd MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_connect_end Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetConnectEndMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetConnectEndMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetConnectEnd
instance O.OverloadedMethodInfo MessageMetricsGetConnectEndMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetConnectEnd",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetConnectEnd"
})
#endif
foreign import ccall "soup_message_metrics_get_connect_start" soup_message_metrics_get_connect_start ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetConnectStart ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
messageMetricsGetConnectStart :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m Word64
messageMetricsGetConnectStart MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_connect_start Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetConnectStartMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetConnectStartMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetConnectStart
instance O.OverloadedMethodInfo MessageMetricsGetConnectStartMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetConnectStart",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetConnectStart"
})
#endif
foreign import ccall "soup_message_metrics_get_dns_end" soup_message_metrics_get_dns_end ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetDnsEnd ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
messageMetricsGetDnsEnd :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m Word64
messageMetricsGetDnsEnd MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_dns_end Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetDnsEndMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetDnsEndMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetDnsEnd
instance O.OverloadedMethodInfo MessageMetricsGetDnsEndMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetDnsEnd",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetDnsEnd"
})
#endif
foreign import ccall "soup_message_metrics_get_dns_start" soup_message_metrics_get_dns_start ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetDnsStart ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
messageMetricsGetDnsStart :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m Word64
messageMetricsGetDnsStart MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_dns_start Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetDnsStartMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetDnsStartMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetDnsStart
instance O.OverloadedMethodInfo MessageMetricsGetDnsStartMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetDnsStart",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetDnsStart"
})
#endif
foreign import ccall "soup_message_metrics_get_fetch_start" soup_message_metrics_get_fetch_start ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetFetchStart ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
messageMetricsGetFetchStart :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m Word64
messageMetricsGetFetchStart MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_fetch_start Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetFetchStartMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetFetchStartMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetFetchStart
instance O.OverloadedMethodInfo MessageMetricsGetFetchStartMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetFetchStart",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetFetchStart"
})
#endif
foreign import ccall "soup_message_metrics_get_request_body_bytes_sent" soup_message_metrics_get_request_body_bytes_sent ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetRequestBodyBytesSent ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
messageMetricsGetRequestBodyBytesSent :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m Word64
messageMetricsGetRequestBodyBytesSent MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_request_body_bytes_sent Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetRequestBodyBytesSentMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetRequestBodyBytesSentMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetRequestBodyBytesSent
instance O.OverloadedMethodInfo MessageMetricsGetRequestBodyBytesSentMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetRequestBodyBytesSent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetRequestBodyBytesSent"
})
#endif
foreign import ccall "soup_message_metrics_get_request_body_size" soup_message_metrics_get_request_body_size ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetRequestBodySize ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
messageMetricsGetRequestBodySize :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m Word64
messageMetricsGetRequestBodySize MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_request_body_size Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetRequestBodySizeMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetRequestBodySizeMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetRequestBodySize
instance O.OverloadedMethodInfo MessageMetricsGetRequestBodySizeMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetRequestBodySize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetRequestBodySize"
})
#endif
foreign import ccall "soup_message_metrics_get_request_header_bytes_sent" ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetRequestHeaderBytesSent ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_request_header_bytes_sent Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetRequestHeaderBytesSentMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetRequestHeaderBytesSentMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetRequestHeaderBytesSent
instance O.OverloadedMethodInfo MessageMetricsGetRequestHeaderBytesSentMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetRequestHeaderBytesSent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetRequestHeaderBytesSent"
})
#endif
foreign import ccall "soup_message_metrics_get_request_start" soup_message_metrics_get_request_start ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetRequestStart ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
messageMetricsGetRequestStart :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m Word64
messageMetricsGetRequestStart MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_request_start Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetRequestStartMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetRequestStartMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetRequestStart
instance O.OverloadedMethodInfo MessageMetricsGetRequestStartMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetRequestStart",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetRequestStart"
})
#endif
foreign import ccall "soup_message_metrics_get_response_body_bytes_received" soup_message_metrics_get_response_body_bytes_received ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetResponseBodyBytesReceived ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
messageMetricsGetResponseBodyBytesReceived :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m Word64
messageMetricsGetResponseBodyBytesReceived MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_response_body_bytes_received Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetResponseBodyBytesReceivedMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetResponseBodyBytesReceivedMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetResponseBodyBytesReceived
instance O.OverloadedMethodInfo MessageMetricsGetResponseBodyBytesReceivedMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetResponseBodyBytesReceived",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetResponseBodyBytesReceived"
})
#endif
foreign import ccall "soup_message_metrics_get_response_body_size" soup_message_metrics_get_response_body_size ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetResponseBodySize ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
messageMetricsGetResponseBodySize :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m Word64
messageMetricsGetResponseBodySize MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_response_body_size Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetResponseBodySizeMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetResponseBodySizeMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetResponseBodySize
instance O.OverloadedMethodInfo MessageMetricsGetResponseBodySizeMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetResponseBodySize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetResponseBodySize"
})
#endif
foreign import ccall "soup_message_metrics_get_response_end" soup_message_metrics_get_response_end ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetResponseEnd ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
messageMetricsGetResponseEnd :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m Word64
messageMetricsGetResponseEnd MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_response_end Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetResponseEndMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetResponseEndMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetResponseEnd
instance O.OverloadedMethodInfo MessageMetricsGetResponseEndMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetResponseEnd",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetResponseEnd"
})
#endif
foreign import ccall "soup_message_metrics_get_response_header_bytes_received" ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetResponseHeaderBytesReceived ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_response_header_bytes_received Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetResponseHeaderBytesReceivedMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetResponseHeaderBytesReceivedMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetResponseHeaderBytesReceived
instance O.OverloadedMethodInfo MessageMetricsGetResponseHeaderBytesReceivedMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetResponseHeaderBytesReceived",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetResponseHeaderBytesReceived"
})
#endif
foreign import ccall "soup_message_metrics_get_response_start" soup_message_metrics_get_response_start ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetResponseStart ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
messageMetricsGetResponseStart :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m Word64
messageMetricsGetResponseStart MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_response_start Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetResponseStartMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetResponseStartMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetResponseStart
instance O.OverloadedMethodInfo MessageMetricsGetResponseStartMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetResponseStart",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetResponseStart"
})
#endif
foreign import ccall "soup_message_metrics_get_tls_start" soup_message_metrics_get_tls_start ::
Ptr MessageMetrics ->
IO Word64
messageMetricsGetTlsStart ::
(B.CallStack.HasCallStack, MonadIO m) =>
MessageMetrics
-> m Word64
messageMetricsGetTlsStart :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MessageMetrics -> m Word64
messageMetricsGetTlsStart MessageMetrics
metrics = IO Word64 -> m Word64
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word64 -> m Word64) -> IO Word64 -> m Word64
forall a b. (a -> b) -> a -> b
$ do
Ptr MessageMetrics
metrics' <- MessageMetrics -> IO (Ptr MessageMetrics)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MessageMetrics
metrics
Word64
result <- Ptr MessageMetrics -> IO Word64
soup_message_metrics_get_tls_start Ptr MessageMetrics
metrics'
MessageMetrics -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageMetrics
metrics
Word64 -> IO Word64
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word64
result
#if defined(ENABLE_OVERLOADING)
data MessageMetricsGetTlsStartMethodInfo
instance (signature ~ (m Word64), MonadIO m) => O.OverloadedMethod MessageMetricsGetTlsStartMethodInfo MessageMetrics signature where
overloadedMethod = messageMetricsGetTlsStart
instance O.OverloadedMethodInfo MessageMetricsGetTlsStartMethodInfo MessageMetrics where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.MessageMetrics.messageMetricsGetTlsStart",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-3.0.2/docs/GI-Soup-Structs-MessageMetrics.html#v:messageMetricsGetTlsStart"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveMessageMetricsMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveMessageMetricsMethod "copy" o = MessageMetricsCopyMethodInfo
ResolveMessageMetricsMethod "free" o = MessageMetricsFreeMethodInfo
ResolveMessageMetricsMethod "getConnectEnd" o = MessageMetricsGetConnectEndMethodInfo
ResolveMessageMetricsMethod "getConnectStart" o = MessageMetricsGetConnectStartMethodInfo
ResolveMessageMetricsMethod "getDnsEnd" o = MessageMetricsGetDnsEndMethodInfo
ResolveMessageMetricsMethod "getDnsStart" o = MessageMetricsGetDnsStartMethodInfo
ResolveMessageMetricsMethod "getFetchStart" o = MessageMetricsGetFetchStartMethodInfo
ResolveMessageMetricsMethod "getRequestBodyBytesSent" o = MessageMetricsGetRequestBodyBytesSentMethodInfo
ResolveMessageMetricsMethod "getRequestBodySize" o = MessageMetricsGetRequestBodySizeMethodInfo
ResolveMessageMetricsMethod "getRequestHeaderBytesSent" o = MessageMetricsGetRequestHeaderBytesSentMethodInfo
ResolveMessageMetricsMethod "getRequestStart" o = MessageMetricsGetRequestStartMethodInfo
ResolveMessageMetricsMethod "getResponseBodyBytesReceived" o = MessageMetricsGetResponseBodyBytesReceivedMethodInfo
ResolveMessageMetricsMethod "getResponseBodySize" o = MessageMetricsGetResponseBodySizeMethodInfo
ResolveMessageMetricsMethod "getResponseEnd" o = MessageMetricsGetResponseEndMethodInfo
ResolveMessageMetricsMethod "getResponseHeaderBytesReceived" o = MessageMetricsGetResponseHeaderBytesReceivedMethodInfo
ResolveMessageMetricsMethod "getResponseStart" o = MessageMetricsGetResponseStartMethodInfo
ResolveMessageMetricsMethod "getTlsStart" o = MessageMetricsGetTlsStartMethodInfo
ResolveMessageMetricsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMessageMetricsMethod t MessageMetrics, O.OverloadedMethod info MessageMetrics p) => OL.IsLabel t (MessageMetrics -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveMessageMetricsMethod t MessageMetrics, O.OverloadedMethod info MessageMetrics p, R.HasField t MessageMetrics p) => R.HasField t MessageMetrics p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveMessageMetricsMethod t MessageMetrics, O.OverloadedMethodInfo info MessageMetrics) => OL.IsLabel t (O.MethodProxy info MessageMetrics) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif