gRPC-haskell/core/src/Network/GRPC/Unsafe/Constants.hsc

47 lines
1.4 KiB
Plaintext
Raw Normal View History

{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Network.GRPC.Unsafe.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"
#include "grpc/impl/codegen/compression_types.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
maxCompletionQueuePluckers :: Int
maxCompletionQueuePluckers = #const GRPC_MAX_COMPLETION_QUEUE_PLUCKERS
2016-04-21 01:02:53 +02:00
newtype PropagationMask = PropagationMask {unPropagationMask :: Int}
deriving (Show, Eq, Ord, Integral, Enum, Real, Num)
2016-04-21 01:02:53 +02:00
propagateDeadline :: PropagationMask
propagateDeadline = PropagationMask $ #const GRPC_PROPAGATE_DEADLINE
2016-04-21 01:02:53 +02:00
propagateCensusStatsContext :: PropagationMask
propagateCensusStatsContext =
PropagationMask $ #const GRPC_PROPAGATE_CENSUS_STATS_CONTEXT
2016-04-21 01:02:53 +02:00
propagateCensusTracingContext :: PropagationMask
propagateCensusTracingContext =
PropagationMask $ #const GRPC_PROPAGATE_CENSUS_TRACING_CONTEXT
2016-04-21 01:02:53 +02:00
propagateCancellation :: PropagationMask
propagateCancellation =
PropagationMask $ #const GRPC_PROPAGATE_CANCELLATION
propagateDefaults :: PropagationMask
propagateDefaults = PropagationMask $ #const GRPC_PROPAGATE_DEFAULTS