2016-04-25 23:04:32 +02:00
|
|
|
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
|
|
|
|
2015-03-05 19:02:25 +01:00
|
|
|
module Network.GRPC.Core.Constants where
|
2015-03-03 09:30:11 +01:00
|
|
|
|
|
|
|
#include "grpc/grpc.h"
|
2016-04-21 01:02:53 +02:00
|
|
|
#include "grpc/impl/codegen/propagation_bits.h"
|
2015-03-03 09:30:11 +01:00
|
|
|
|
2015-03-03 14:42:09 +01:00
|
|
|
argEnableCensus :: Int
|
2015-03-03 09:30:11 +01:00
|
|
|
argEnableCensus = #const GRPC_ARG_ENABLE_CENSUS
|
2015-03-03 14:42:09 +01:00
|
|
|
|
|
|
|
argMaxConcurrentStreams :: Int
|
2015-03-03 09:30:11 +01:00
|
|
|
argMaxConcurrentStreams = #const GRPC_ARG_MAX_CONCURRENT_STREAMS
|
2015-03-03 14:42:09 +01:00
|
|
|
|
|
|
|
argMaxMessageLength :: Int
|
2015-03-03 09:30:11 +01:00
|
|
|
argMaxMessageLength = #const GRPC_ARG_MAX_MESSAGE_LENGTH
|
|
|
|
|
|
|
|
writeBufferHint :: Int
|
|
|
|
writeBufferHint = #const GRPC_WRITE_BUFFER_HINT
|
|
|
|
|
|
|
|
writeNoCompress :: Int
|
|
|
|
writeNoCompress = #const GRPC_WRITE_NO_COMPRESS
|
2016-04-21 01:02:53 +02:00
|
|
|
|
|
|
|
newtype PropagationMask = PropagationMask {unPropagationMask :: Int}
|
2016-04-25 23:04:32 +02:00
|
|
|
deriving (Show, Eq, Ord, Integral, Enum, Real, Num)
|
2016-04-21 01:02:53 +02:00
|
|
|
|
2016-04-25 23:04:32 +02:00
|
|
|
propagateDeadline :: PropagationMask
|
|
|
|
propagateDeadline = PropagationMask $ #const GRPC_PROPAGATE_DEADLINE
|
2016-04-21 01:02:53 +02:00
|
|
|
|
2016-04-25 23:04:32 +02:00
|
|
|
propagateCensusStatsContext :: PropagationMask
|
|
|
|
propagateCensusStatsContext =
|
|
|
|
PropagationMask $ #const GRPC_PROPAGATE_CENSUS_STATS_CONTEXT
|
2016-04-21 01:02:53 +02:00
|
|
|
|
2016-04-25 23:04:32 +02:00
|
|
|
propagateCensusTracingContext :: PropagationMask
|
|
|
|
propagateCensusTracingContext =
|
|
|
|
PropagationMask $ #const GRPC_PROPAGATE_CENSUS_TRACING_CONTEXT
|
2016-04-21 01:02:53 +02:00
|
|
|
|
2016-04-25 23:04:32 +02:00
|
|
|
propagateCancellation :: PropagationMask
|
|
|
|
propagateCancellation =
|
|
|
|
PropagationMask $ #const GRPC_PROPAGATE_CANCELLATION
|