thrift-compiler-0.1.0.1: test/fixtures/gen-hs2/Thrift/Types.hs
-----------------------------------------------------------------
-- Autogenerated by Thrift
--
-- DO NOT EDIT UNLESS YOU ARE SURE THAT YOU KNOW WHAT YOU ARE DOING
-- @generated
-----------------------------------------------------------------
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE BangPatterns #-}
{-# OPTIONS_GHC -fno-warn-unused-imports#-}
{-# OPTIONS_GHC -fno-warn-overlapping-patterns#-}
{-# OPTIONS_GHC -fno-warn-incomplete-patterns#-}
{-# OPTIONS_GHC -fno-warn-incomplete-uni-patterns#-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
module Thrift.Types
(Experimental(Experimental),
ReserveIds(ReserveIds, reserveIds_ids, reserveIds_id_ranges),
RequiresBackwardCompatibility(RequiresBackwardCompatibility,
requiresBackwardCompatibility_field_name),
TerseWrite(TerseWrite), Box(Box), Mixin(Mixin),
SerializeInFieldIdOrder(SerializeInFieldIdOrder),
BitmaskEnum(BitmaskEnum), ExceptionMessage(ExceptionMessage),
GenerateRuntimeSchema(GenerateRuntimeSchema,
generateRuntimeSchema_name),
InternBox(InternBox), Serial(Serial), Uri(Uri, uri_value),
Priority(Priority, priority_level),
RpcPriority(RpcPriority_HIGH_IMPORTANT, RpcPriority_HIGH,
RpcPriority_IMPORTANT, RpcPriority_NORMAL, RpcPriority_BEST_EFFORT,
RpcPriority__UNKNOWN),
DeprecatedUnvalidatedAnnotations(DeprecatedUnvalidatedAnnotations,
deprecatedUnvalidatedAnnotations_items))
where
import qualified Control.DeepSeq as DeepSeq
import qualified Control.Exception as Exception
import qualified Control.Monad as Monad
import qualified Control.Monad.ST.Trans as ST
import qualified Control.Monad.Trans.Class as Trans
import qualified Data.Aeson as Aeson
import qualified Data.Aeson.Types as Aeson
import qualified Data.Default as Default
import qualified Data.Function as Function
import qualified Data.HashMap.Strict as HashMap
import qualified Data.Hashable as Hashable
import qualified Data.Int as Int
import qualified Data.List as List
import qualified Data.Map.Strict as Map
import qualified Data.Ord as Ord
import qualified Data.Text as Text
import qualified Data.Text.Encoding as Text
import qualified GHC.Magic as GHC
import qualified Prelude as Prelude
import qualified Scope.Types as Scope
import qualified Thrift.Binary.Parser as Parser
import qualified Thrift.CodegenTypesOnly as Thrift
import Control.Applicative ((<|>), (*>), (<*))
import Data.Aeson ((.:), (.:?), (.=), (.!=))
import Data.Monoid ((<>))
import Prelude ((.), (++), (>), (==))
import Prelude ((.), (<$>), (<*>), (>>=), (==), (/=), (<), (++))
data Experimental = Experimental{}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON Experimental where
toJSON Experimental = Aeson.object Prelude.mempty
instance Thrift.ThriftStruct Experimental where
buildStruct _proxy Experimental = Thrift.genStruct _proxy []
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do Prelude.pure (Experimental)
_idMap = HashMap.fromList []
_parse 0)
instance DeepSeq.NFData Experimental where
rnf Experimental = ()
instance Default.Default Experimental where
def = Experimental
instance Hashable.Hashable Experimental where
hashWithSalt __salt Experimental = __salt
data ReserveIds = ReserveIds{reserveIds_ids :: [Int.Int32],
reserveIds_id_ranges :: Map.Map Int.Int32 Int.Int32}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON ReserveIds where
toJSON (ReserveIds __field__ids __field__id_ranges)
= Aeson.object
("ids" .= __field__ids :
"id_ranges" .= Map.mapKeys Thrift.keyToStr __field__id_ranges :
Prelude.mempty)
instance Thrift.ThriftStruct ReserveIds where
buildStruct _proxy (ReserveIds __field__ids __field__id_ranges)
= Thrift.genStruct _proxy
(Thrift.genField _proxy "ids" (Thrift.getListType _proxy) 1 0
(Thrift.genListPrim _proxy (Thrift.getI32Type _proxy)
(Thrift.genI32Prim _proxy)
__field__ids)
:
Thrift.genField _proxy "id_ranges" (Thrift.getMapType _proxy) 2 1
((Thrift.genMapPrim _proxy (Thrift.getI32Type _proxy)
(Thrift.getI32Type _proxy)
Prelude.False
(Thrift.genI32Prim _proxy)
(Thrift.genI32Prim _proxy)
. Map.toList)
__field__id_ranges)
: [])
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
__field__ids <- ST.newSTRef Default.def
__field__id_ranges <- ST.newSTRef Default.def
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
1 | _type ==
Thrift.getListType _proxy
->
do !_val <- Trans.lift
(Prelude.snd <$>
Thrift.parseList
_proxy
(Thrift.parseI32
_proxy))
ST.writeSTRef __field__ids
_val
2 | _type ==
Thrift.getMapType _proxy
->
do !_val <- Trans.lift
(Map.fromList <$>
Thrift.parseMap
_proxy
(Thrift.parseI32
_proxy)
(Thrift.parseI32
_proxy)
Prelude.False)
ST.writeSTRef
__field__id_ranges
_val
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do !__val__ids <- ST.readSTRef __field__ids
!__val__id_ranges <- ST.readSTRef __field__id_ranges
Prelude.pure (ReserveIds __val__ids __val__id_ranges)
_idMap = HashMap.fromList [("ids", 1), ("id_ranges", 2)]
_parse 0)
instance DeepSeq.NFData ReserveIds where
rnf (ReserveIds __field__ids __field__id_ranges)
= DeepSeq.rnf __field__ids `Prelude.seq`
DeepSeq.rnf __field__id_ranges `Prelude.seq` ()
instance Default.Default ReserveIds where
def = ReserveIds Default.def Default.def
instance Hashable.Hashable ReserveIds where
hashWithSalt __salt (ReserveIds _ids _id_ranges)
= Hashable.hashWithSalt (Hashable.hashWithSalt __salt _ids)
((Prelude.map (\ (_k, _v) -> (_k, _v)) . Map.toAscList) _id_ranges)
instance Thrift.HasField "ids" ReserveIds ([Int.Int32]) where
getField = reserveIds_ids
instance Thrift.HasField "id_ranges" ReserveIds
(Map.Map Int.Int32 Int.Int32)
where
getField = reserveIds_id_ranges
newtype RequiresBackwardCompatibility = RequiresBackwardCompatibility{requiresBackwardCompatibility_field_name
:: Prelude.Bool}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON RequiresBackwardCompatibility where
toJSON (RequiresBackwardCompatibility __field__field_name)
= Aeson.object
("field_name" .= __field__field_name : Prelude.mempty)
instance Thrift.ThriftStruct RequiresBackwardCompatibility where
buildStruct _proxy
(RequiresBackwardCompatibility __field__field_name)
= Thrift.genStruct _proxy
(Thrift.genFieldBool _proxy "field_name" 1 0 __field__field_name :
[])
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
__field__field_name <- ST.newSTRef Prelude.False
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
1 | _type ==
Thrift.getBoolType _proxy
->
do !_val <- Trans.lift
(Thrift.parseBoolF
_proxy
_bool)
ST.writeSTRef
__field__field_name
_val
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do !__val__field_name <- ST.readSTRef
__field__field_name
Prelude.pure
(RequiresBackwardCompatibility __val__field_name)
_idMap = HashMap.fromList [("field_name", 1)]
_parse 0)
instance DeepSeq.NFData RequiresBackwardCompatibility where
rnf (RequiresBackwardCompatibility __field__field_name)
= DeepSeq.rnf __field__field_name `Prelude.seq` ()
instance Default.Default RequiresBackwardCompatibility where
def = RequiresBackwardCompatibility Prelude.False
instance Hashable.Hashable RequiresBackwardCompatibility where
hashWithSalt __salt (RequiresBackwardCompatibility _field_name)
= Hashable.hashWithSalt __salt _field_name
instance Thrift.HasField "field_name" RequiresBackwardCompatibility
(Prelude.Bool)
where
getField = requiresBackwardCompatibility_field_name
data TerseWrite = TerseWrite{}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON TerseWrite where
toJSON TerseWrite = Aeson.object Prelude.mempty
instance Thrift.ThriftStruct TerseWrite where
buildStruct _proxy TerseWrite = Thrift.genStruct _proxy []
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do Prelude.pure (TerseWrite)
_idMap = HashMap.fromList []
_parse 0)
instance DeepSeq.NFData TerseWrite where
rnf TerseWrite = ()
instance Default.Default TerseWrite where
def = TerseWrite
instance Hashable.Hashable TerseWrite where
hashWithSalt __salt TerseWrite = __salt
data Box = Box{}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON Box where
toJSON Box = Aeson.object Prelude.mempty
instance Thrift.ThriftStruct Box where
buildStruct _proxy Box = Thrift.genStruct _proxy []
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do Prelude.pure (Box)
_idMap = HashMap.fromList []
_parse 0)
instance DeepSeq.NFData Box where
rnf Box = ()
instance Default.Default Box where
def = Box
instance Hashable.Hashable Box where
hashWithSalt __salt Box = __salt
data Mixin = Mixin{}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON Mixin where
toJSON Mixin = Aeson.object Prelude.mempty
instance Thrift.ThriftStruct Mixin where
buildStruct _proxy Mixin = Thrift.genStruct _proxy []
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do Prelude.pure (Mixin)
_idMap = HashMap.fromList []
_parse 0)
instance DeepSeq.NFData Mixin where
rnf Mixin = ()
instance Default.Default Mixin where
def = Mixin
instance Hashable.Hashable Mixin where
hashWithSalt __salt Mixin = __salt
data SerializeInFieldIdOrder = SerializeInFieldIdOrder{}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON SerializeInFieldIdOrder where
toJSON SerializeInFieldIdOrder = Aeson.object Prelude.mempty
instance Thrift.ThriftStruct SerializeInFieldIdOrder where
buildStruct _proxy SerializeInFieldIdOrder
= Thrift.genStruct _proxy []
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do Prelude.pure (SerializeInFieldIdOrder)
_idMap = HashMap.fromList []
_parse 0)
instance DeepSeq.NFData SerializeInFieldIdOrder where
rnf SerializeInFieldIdOrder = ()
instance Default.Default SerializeInFieldIdOrder where
def = SerializeInFieldIdOrder
instance Hashable.Hashable SerializeInFieldIdOrder where
hashWithSalt __salt SerializeInFieldIdOrder = __salt
data BitmaskEnum = BitmaskEnum{}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON BitmaskEnum where
toJSON BitmaskEnum = Aeson.object Prelude.mempty
instance Thrift.ThriftStruct BitmaskEnum where
buildStruct _proxy BitmaskEnum = Thrift.genStruct _proxy []
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do Prelude.pure (BitmaskEnum)
_idMap = HashMap.fromList []
_parse 0)
instance DeepSeq.NFData BitmaskEnum where
rnf BitmaskEnum = ()
instance Default.Default BitmaskEnum where
def = BitmaskEnum
instance Hashable.Hashable BitmaskEnum where
hashWithSalt __salt BitmaskEnum = __salt
data ExceptionMessage = ExceptionMessage{}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON ExceptionMessage where
toJSON ExceptionMessage = Aeson.object Prelude.mempty
instance Thrift.ThriftStruct ExceptionMessage where
buildStruct _proxy ExceptionMessage = Thrift.genStruct _proxy []
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do Prelude.pure (ExceptionMessage)
_idMap = HashMap.fromList []
_parse 0)
instance DeepSeq.NFData ExceptionMessage where
rnf ExceptionMessage = ()
instance Default.Default ExceptionMessage where
def = ExceptionMessage
instance Hashable.Hashable ExceptionMessage where
hashWithSalt __salt ExceptionMessage = __salt
newtype GenerateRuntimeSchema = GenerateRuntimeSchema{generateRuntimeSchema_name
:: Text.Text}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON GenerateRuntimeSchema where
toJSON (GenerateRuntimeSchema __field__name)
= Aeson.object ("name" .= __field__name : Prelude.mempty)
instance Thrift.ThriftStruct GenerateRuntimeSchema where
buildStruct _proxy (GenerateRuntimeSchema __field__name)
= Thrift.genStruct _proxy
(Thrift.genField _proxy "name" (Thrift.getStringType _proxy) 1 0
(Thrift.genText _proxy __field__name)
: [])
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
__field__name <- ST.newSTRef ""
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
1 | _type ==
Thrift.getStringType _proxy
->
do !_val <- Trans.lift
(Thrift.parseText
_proxy)
ST.writeSTRef __field__name
_val
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do !__val__name <- ST.readSTRef __field__name
Prelude.pure (GenerateRuntimeSchema __val__name)
_idMap = HashMap.fromList [("name", 1)]
_parse 0)
instance DeepSeq.NFData GenerateRuntimeSchema where
rnf (GenerateRuntimeSchema __field__name)
= DeepSeq.rnf __field__name `Prelude.seq` ()
instance Default.Default GenerateRuntimeSchema where
def = GenerateRuntimeSchema ""
instance Hashable.Hashable GenerateRuntimeSchema where
hashWithSalt __salt (GenerateRuntimeSchema _name)
= Hashable.hashWithSalt __salt _name
instance Thrift.HasField "name" GenerateRuntimeSchema (Text.Text)
where
getField = generateRuntimeSchema_name
data InternBox = InternBox{}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON InternBox where
toJSON InternBox = Aeson.object Prelude.mempty
instance Thrift.ThriftStruct InternBox where
buildStruct _proxy InternBox = Thrift.genStruct _proxy []
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do Prelude.pure (InternBox)
_idMap = HashMap.fromList []
_parse 0)
instance DeepSeq.NFData InternBox where
rnf InternBox = ()
instance Default.Default InternBox where
def = InternBox
instance Hashable.Hashable InternBox where
hashWithSalt __salt InternBox = __salt
data Serial = Serial{}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON Serial where
toJSON Serial = Aeson.object Prelude.mempty
instance Thrift.ThriftStruct Serial where
buildStruct _proxy Serial = Thrift.genStruct _proxy []
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do Prelude.pure (Serial)
_idMap = HashMap.fromList []
_parse 0)
instance DeepSeq.NFData Serial where
rnf Serial = ()
instance Default.Default Serial where
def = Serial
instance Hashable.Hashable Serial where
hashWithSalt __salt Serial = __salt
newtype Uri = Uri{uri_value :: Text.Text}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON Uri where
toJSON (Uri __field__value)
= Aeson.object ("value" .= __field__value : Prelude.mempty)
instance Thrift.ThriftStruct Uri where
buildStruct _proxy (Uri __field__value)
= Thrift.genStruct _proxy
(Thrift.genField _proxy "value" (Thrift.getStringType _proxy) 1 0
(Thrift.genText _proxy __field__value)
: [])
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
__field__value <- ST.newSTRef ""
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
1 | _type ==
Thrift.getStringType _proxy
->
do !_val <- Trans.lift
(Thrift.parseText
_proxy)
ST.writeSTRef __field__value
_val
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do !__val__value <- ST.readSTRef __field__value
Prelude.pure (Uri __val__value)
_idMap = HashMap.fromList [("value", 1)]
_parse 0)
instance DeepSeq.NFData Uri where
rnf (Uri __field__value)
= DeepSeq.rnf __field__value `Prelude.seq` ()
instance Default.Default Uri where
def = Uri ""
instance Hashable.Hashable Uri where
hashWithSalt __salt (Uri _value)
= Hashable.hashWithSalt __salt _value
instance Thrift.HasField "value" Uri (Text.Text) where
getField = uri_value
newtype Priority = Priority{priority_level :: RpcPriority}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON Priority where
toJSON (Priority __field__level)
= Aeson.object ("level" .= __field__level : Prelude.mempty)
instance Thrift.ThriftStruct Priority where
buildStruct _proxy (Priority __field__level)
= Thrift.genStruct _proxy
(Thrift.genField _proxy "level" (Thrift.getI32Type _proxy) 1 0
((Thrift.genI32 _proxy . Prelude.fromIntegral .
Thrift.fromThriftEnum)
__field__level)
: [])
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
__field__level <- ST.newSTRef Default.def
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
1 | _type ==
Thrift.getI32Type _proxy
->
do !_val <- Trans.lift
(Thrift.parseEnum
_proxy
"RpcPriority")
ST.writeSTRef __field__level
_val
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do !__val__level <- ST.readSTRef __field__level
Prelude.pure (Priority __val__level)
_idMap = HashMap.fromList [("level", 1)]
_parse 0)
instance DeepSeq.NFData Priority where
rnf (Priority __field__level)
= DeepSeq.rnf __field__level `Prelude.seq` ()
instance Default.Default Priority where
def = Priority Default.def
instance Hashable.Hashable Priority where
hashWithSalt __salt (Priority _level)
= Hashable.hashWithSalt __salt _level
instance Thrift.HasField "level" Priority (RpcPriority) where
getField = priority_level
data RpcPriority = RpcPriority_HIGH_IMPORTANT
| RpcPriority_HIGH
| RpcPriority_IMPORTANT
| RpcPriority_NORMAL
| RpcPriority_BEST_EFFORT
| RpcPriority__UNKNOWN Prelude.Int
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON RpcPriority where
toJSON = Aeson.toJSON . Thrift.fromThriftEnum
instance DeepSeq.NFData RpcPriority where
rnf __RpcPriority = Prelude.seq __RpcPriority ()
instance Default.Default RpcPriority where
def = RpcPriority_HIGH_IMPORTANT
instance Hashable.Hashable RpcPriority where
hashWithSalt _salt _val
= Hashable.hashWithSalt _salt (Thrift.fromThriftEnum _val)
instance Thrift.ThriftEnum RpcPriority where
toThriftEnum 0 = RpcPriority_HIGH_IMPORTANT
toThriftEnum 1 = RpcPriority_HIGH
toThriftEnum 2 = RpcPriority_IMPORTANT
toThriftEnum 3 = RpcPriority_NORMAL
toThriftEnum 4 = RpcPriority_BEST_EFFORT
toThriftEnum val = RpcPriority__UNKNOWN val
fromThriftEnum RpcPriority_HIGH_IMPORTANT = 0
fromThriftEnum RpcPriority_HIGH = 1
fromThriftEnum RpcPriority_IMPORTANT = 2
fromThriftEnum RpcPriority_NORMAL = 3
fromThriftEnum RpcPriority_BEST_EFFORT = 4
fromThriftEnum (RpcPriority__UNKNOWN val) = val
allThriftEnumValues
= [RpcPriority_HIGH_IMPORTANT, RpcPriority_HIGH,
RpcPriority_IMPORTANT, RpcPriority_NORMAL, RpcPriority_BEST_EFFORT]
toThriftEnumEither 0 = Prelude.Right RpcPriority_HIGH_IMPORTANT
toThriftEnumEither 1 = Prelude.Right RpcPriority_HIGH
toThriftEnumEither 2 = Prelude.Right RpcPriority_IMPORTANT
toThriftEnumEither 3 = Prelude.Right RpcPriority_NORMAL
toThriftEnumEither 4 = Prelude.Right RpcPriority_BEST_EFFORT
toThriftEnumEither val
= Prelude.Left
("toThriftEnumEither: not a valid identifier for enum RpcPriority: "
++ Prelude.show val)
newtype DeprecatedUnvalidatedAnnotations = DeprecatedUnvalidatedAnnotations{deprecatedUnvalidatedAnnotations_items
::
Map.Map Text.Text
Text.Text}
deriving (Prelude.Eq, Prelude.Show, Prelude.Ord)
instance Aeson.ToJSON DeprecatedUnvalidatedAnnotations where
toJSON (DeprecatedUnvalidatedAnnotations __field__items)
= Aeson.object ("items" .= __field__items : Prelude.mempty)
instance Thrift.ThriftStruct DeprecatedUnvalidatedAnnotations where
buildStruct _proxy
(DeprecatedUnvalidatedAnnotations __field__items)
= Thrift.genStruct _proxy
(Thrift.genField _proxy "items" (Thrift.getMapType _proxy) 1 0
((Thrift.genMap _proxy (Thrift.getStringType _proxy)
(Thrift.getStringType _proxy)
Prelude.True
(Thrift.genText _proxy)
(Thrift.genText _proxy)
. Map.toList)
__field__items)
: [])
parseStruct _proxy
= ST.runSTT
(do Prelude.return ()
__field__items <- ST.newSTRef Default.def
let
_parse _lastId
= do _fieldBegin <- Trans.lift
(Thrift.parseFieldBegin _proxy _lastId _idMap)
case _fieldBegin of
Thrift.FieldBegin _type _id _bool -> do case _id of
1 | _type ==
Thrift.getMapType _proxy
->
do !_val <- Trans.lift
(Map.fromList <$>
Thrift.parseMap
_proxy
(Thrift.parseText
_proxy)
(Thrift.parseText
_proxy)
Prelude.True)
ST.writeSTRef __field__items
_val
_ -> Trans.lift
(Thrift.parseSkip _proxy
_type
(Prelude.Just _bool))
_parse _id
Thrift.FieldEnd -> do !__val__items <- ST.readSTRef __field__items
Prelude.pure
(DeprecatedUnvalidatedAnnotations __val__items)
_idMap = HashMap.fromList [("items", 1)]
_parse 0)
instance DeepSeq.NFData DeprecatedUnvalidatedAnnotations where
rnf (DeprecatedUnvalidatedAnnotations __field__items)
= DeepSeq.rnf __field__items `Prelude.seq` ()
instance Default.Default DeprecatedUnvalidatedAnnotations where
def = DeprecatedUnvalidatedAnnotations Default.def
instance Hashable.Hashable DeprecatedUnvalidatedAnnotations where
hashWithSalt __salt (DeprecatedUnvalidatedAnnotations _items)
= Hashable.hashWithSalt __salt
((Prelude.map (\ (_k, _v) -> (_k, _v)) . Map.toAscList) _items)
instance Thrift.HasField "items" DeprecatedUnvalidatedAnnotations
(Map.Map Text.Text Text.Text)
where
getField = deprecatedUnvalidatedAnnotations_items