mirror of
https://github.com/unclechu/gRPC-haskell.git
synced 2024-06-18 10:38:36 +02:00
47 lines
1.4 KiB
Haskell
47 lines
1.4 KiB
Haskell
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
|
|
|
module Network.GRPC.Unsafe.Constants where
|
|
|
|
#include "grpc/grpc.h"
|
|
#include "grpc/impl/codegen/propagation_bits.h"
|
|
#include "grpc/impl/codegen/compression_types.h"
|
|
|
|
argEnableCensus :: Int
|
|
argEnableCensus = #const GRPC_ARG_ENABLE_CENSUS
|
|
|
|
argMaxConcurrentStreams :: Int
|
|
argMaxConcurrentStreams = #const GRPC_ARG_MAX_CONCURRENT_STREAMS
|
|
|
|
argMaxMessageLength :: Int
|
|
argMaxMessageLength = #const GRPC_ARG_MAX_MESSAGE_LENGTH
|
|
|
|
writeBufferHint :: Int
|
|
writeBufferHint = #const GRPC_WRITE_BUFFER_HINT
|
|
|
|
writeNoCompress :: Int
|
|
writeNoCompress = #const GRPC_WRITE_NO_COMPRESS
|
|
|
|
maxCompletionQueuePluckers :: Int
|
|
maxCompletionQueuePluckers = #const GRPC_MAX_COMPLETION_QUEUE_PLUCKERS
|
|
|
|
newtype PropagationMask = PropagationMask {unPropagationMask :: Int}
|
|
deriving (Show, Eq, Ord, Integral, Enum, Real, Num)
|
|
|
|
propagateDeadline :: PropagationMask
|
|
propagateDeadline = PropagationMask $ #const GRPC_PROPAGATE_DEADLINE
|
|
|
|
propagateCensusStatsContext :: PropagationMask
|
|
propagateCensusStatsContext =
|
|
PropagationMask $ #const GRPC_PROPAGATE_CENSUS_STATS_CONTEXT
|
|
|
|
propagateCensusTracingContext :: PropagationMask
|
|
propagateCensusTracingContext =
|
|
PropagationMask $ #const GRPC_PROPAGATE_CENSUS_TRACING_CONTEXT
|
|
|
|
propagateCancellation :: PropagationMask
|
|
propagateCancellation =
|
|
PropagationMask $ #const GRPC_PROPAGATE_CANCELLATION
|
|
|
|
propagateDefaults :: PropagationMask
|
|
propagateDefaults = PropagationMask $ #const GRPC_PROPAGATE_DEFAULTS
|