-- *Text.ProtocolBuffers.Gen Numeric> putStrLn . prettyPrint . descriptorModule "Text" $ genFieldOptions module Text.DescriptorProtos.FieldOptions (FieldOptions(..)) where import Prelude ((+), (++)) import qualified Prelude as P' import qualified Text.ProtocolBuffers.Header as P' import qualified Text.DescriptorProtos.FieldOptions.CType as DescriptorProtos.FieldOptions (CType) data FieldOptions = FieldOptions{ctype :: P'.Maybe DescriptorProtos.FieldOptions.CType, experimental_map_key :: P'.Maybe P'.ByteString} deriving (P'.Show, P'.Read, P'.Eq, P'.Ord, P'.Data, P'.Typeable) instance P'.Mergeable FieldOptions where mergeEmpty = FieldOptions P'.mergeEmpty P'.mergeEmpty mergeAppend (FieldOptions x'1 x'2) (FieldOptions y'1 y'2) = FieldOptions (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) instance P'.Default FieldOptions where defaultValue = FieldOptions (P'.Just P'.defaultValue) (P'.Just P'.defaultValue) instance P'.Wire FieldOptions where wireSize 11 (FieldOptions x'1 x'2) = P'.lenSize (P'.wireSizeOpt 1 14 x'1 + P'.wireSizeOpt 1 9 x'2) wirePut 11 self'@(FieldOptions x'1 x'2) = do P'.putSize (P'.wireSize 11 self') P'.wirePutOpt 8 14 x'1 P'.wirePutOpt 74 9 x'2 wireGet 11 = P'.getMessage update'Self where update'Self field'Number old'Self = case field'Number of 1 -> P'.fmap (\new'Field -> old'Self { ctype = P'.Just new'Field }) (P'.wireGet 14) 9 -> P'.fmap (\new'Field -> old'Self { experimental_map_key = P'.Just new'Field }) (P'.wireGet 9) _ -> P'.unknownField field'Number --P'.fail ("Impossible? Message asked to parse an unknown field number on wire: "++P'.show field'Number) instance P'.ReflectDescriptor FieldOptions where reflectDescriptorInfo _ = P'.read "DescriptorInfo {descName = ProtoName {haskellPrefix = \"Text\", parentModule = \"DescriptorProtos\", baseName = \"FieldOptions\"}, fields = fromList [FieldInfo {fieldName = \"ctype\", fieldNumber = FieldId {getFieldID = 1}, wireTag = WireTag {getWireTag = 8}, wireTagLength = 1, isRequired = False, canRepeat = False, typeCode = FieldType {getFieldType = 14}, typeName = Just \"DescriptorProtos.FieldOptions.CType\", hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = \"experimental_map_key\", fieldNumber = FieldId {getFieldID = 9}, wireTag = WireTag {getWireTag = 74}, wireTagLength = 1, isRequired = False, canRepeat = False, typeCode = FieldType {getFieldType = 9}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}]}" {- module Text.DescriptorProtos.FieldOptions (FieldOptions(..)) where import Prelude((+),(>>),(>>=),(++)) import qualified Prelude as P' import qualified Text.ProtocolBuffers.Header as P' import qualified Text.DescriptorProtos.FieldOptions.CType as DescriptorProtos.FieldOptions (CType) data FieldOptions = FieldOptions{ctype :: P'.Maybe DescriptorProtos.FieldOptions.CType, experimental_map_key :: P'.Maybe P'.ByteString} deriving (P'.Show, P'.Read, P'.Eq, P'.Ord, P'.Data, P'.Typeable) instance P'.Mergeable FieldOptions where mergeEmpty = FieldOptions P'.mergeEmpty P'.mergeEmpty mergeAppend (FieldOptions x'1 x'2) (FieldOptions y'1 y'2) = FieldOptions (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) instance P'.Default FieldOptions where defaultValue = FieldOptions (P'.Just P'.defaultValue) (P'.Just P'.defaultValue) -- Hand written, then I'll create the Gen.hs code instance P'.Wire FieldOptions where wireSize 11 (FieldOptions x'1 x'2) = P'.lenSize (P'.wireSizeOpt 14 x'1 + P'.wireSizeOpt 9 x'2) wirePut 11 self'@(FieldOptions x'1 x'2) = do P'.putSize (P'.wireSize 11 self') P'.wirePutOpt 8 14 x'1 P'.wirePutOpt 74 9 x'2 {- wireSize 11 (FieldOptions x'1 x'2) = P'.lenSize (P'.wireSizeOpt 11 x'1 + P'.wireSizeOpt 9 x'2) wirePut 11 self'@(FieldOptions x'1 x'2) = do P'.putSize (P'.wireSize 11 self') P'.wirePutOpt 10 11 x'1 P'.wirePutOpt 74 9 x'2 -} wireGet 11 = P'.getMessage update'Self where -- updater :: P'.Updater FieldOptions update'Self field'Number old'Self = case field'Number of 1 -> P'.fmap (\new'Field -> old'Self { ctype = P'.Just new'Field }) (P'.wireGet 11) 9 -> P'.fmap (\new'Field -> old'Self { experimental_map_key = P'.Just new'Field }) (P'.wireGet 9) -- 10 -> P'.fmap (\new'Field -> old'Self { requiredField = new'Field }) (P'.wireGet 4) -- 11 -> P'.fmap (\new'Field -> old'Self { repeatedField = P'.append (repeatedField old'Self) new'Field }) (P'.wireGet 5) _ -> P'.fail ("Impossible? Message asked to parse an unknown field number on wire: "++P'.show field'Number) instance P'.ReflectDescriptor FieldOptions where reflectDescriptorInfo _ = P'.read "DescriptorInfo {descName = ProtoName {haskellPrefix = \"Text\", parentModule = \"DescriptorProtos\", baseName = \"FieldOptions\"}, fields = fromList [FieldInfo {fieldName = \"ctype\", fieldNumber = FieldId {getFieldID = 1}, wireTag = WireTag {getWireTag = 8}, isRequired = False, canRepeat = False, typeCode = FieldType {getFieldType = 14}, typeName = Just \"DescriptorProtos.FieldOptions.CType\", hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = \"experimental_map_key\", fieldNumber = FieldId {getFieldID = 9}, wireTag = WireTag {getWireTag = 74}, isRequired = False, canRepeat = False, typeCode = FieldType {getFieldType = 9}, typeName = Nothing, hsRawDefault = Nothing, hsDefault = Nothing}]}" {-module Text.DescriptorProtos.FieldOptions (FieldOptions(..)) where import Text.ProtocolBuffers.Header import qualified Text.DescriptorProtos.FieldOptions.CType as DescriptorProtos.FieldOptions(CType) data FieldOptions = FieldOptions { ctype :: Maybe DescriptorProtos.FieldOptions.CType , experimental_map_key :: Maybe ByteString } deriving (Show,Eq,Ord,Typeable) $( makeMergeable ''FieldOptions ) instance Default FieldOptions where -}-}