module DescriptorProtos.DescriptorProto
  (DescriptorProto(..))
 where

import ProtocolBuffers.Header
import qualified DescriptorProtos.FileOptions as DescriptorProtos(FileOptions)
import qualified DescriptorProtos.EnumDescriptorProto as DescriptorProtos(EnumDescriptorProto) 
import qualified DescriptorProtos.FieldDescriptorProto as DescriptorProtos(FieldDescriptorProto) 
import qualified DescriptorProtos.MessageOptions as DescriptorProtos(MessageOptions)
import qualified DescriptorProtos.DescriptorProto.ExtensionRange as DescriptorProtos.DescriptorProto(ExtensionRange)

data DescriptorProto = DescriptorProto
    { name :: Optional ByteString
    , field :: Seq DescriptorProtos.FieldDescriptorProto
    , extension :: Seq DescriptorProtos.FieldDescriptorProto
    , nested_type :: Seq DescriptorProto
    , enum_type :: Seq DescriptorProtos.EnumDescriptorProto
    , extension_range :: Seq DescriptorProtos.DescriptorProto.ExtensionRange
    , options :: Optional DescriptorProtos.MessageOptions
    }
  deriving (Show,Eq,Ord,Typeable)

$( derive makeMonoid ''DescriptorProto )

instance OptionFlag a => Monoid (Option a DescriptorProto) where mempty = Absent; mappend = op'Merge

instance Default DescriptorProto where