Label.hs

{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-}
{-# OPTIONS_GHC  -w #-}
module Text.DescriptorProtos.FieldDescriptorProto.Label (Label(..)) where
import Prelude ((+), (/), (.))
import qualified Prelude as Prelude'
import qualified Data.List as Prelude'
import qualified Data.Typeable as Prelude'
import qualified GHC.Generics as Prelude'
import qualified Data.Data as Prelude'
import qualified Text.ProtocolBuffers.Header as P'

data Label = LABEL_OPTIONAL
           | LABEL_REQUIRED
           | LABEL_REPEATED
             deriving (Prelude'.Read, Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic)

instance P'.Mergeable Label

instance Prelude'.Bounded Label where
  minBound = LABEL_OPTIONAL
  maxBound = LABEL_REPEATED

instance P'.Default Label where
  defaultValue = LABEL_OPTIONAL

toMaybe'Enum :: Prelude'.Int -> P'.Maybe Label
toMaybe'Enum 1 = Prelude'.Just LABEL_OPTIONAL
toMaybe'Enum 2 = Prelude'.Just LABEL_REQUIRED
toMaybe'Enum 3 = Prelude'.Just LABEL_REPEATED
toMaybe'Enum _ = Prelude'.Nothing

instance Prelude'.Enum Label where
  fromEnum LABEL_OPTIONAL = 1
  fromEnum LABEL_REQUIRED = 2
  fromEnum LABEL_REPEATED = 3
  toEnum
   = P'.fromMaybe
      (Prelude'.error "hprotoc generated code: toEnum failure for type Text.DescriptorProtos.FieldDescriptorProto.Label")
      . toMaybe'Enum
  succ LABEL_OPTIONAL = LABEL_REQUIRED
  succ LABEL_REQUIRED = LABEL_REPEATED
  succ _ = Prelude'.error "hprotoc generated code: succ failure for type Text.DescriptorProtos.FieldDescriptorProto.Label"
  pred LABEL_REQUIRED = LABEL_OPTIONAL
  pred LABEL_REPEATED = LABEL_REQUIRED
  pred _ = Prelude'.error "hprotoc generated code: pred failure for type Text.DescriptorProtos.FieldDescriptorProto.Label"

instance P'.Wire Label where
  wireSize ft' enum = P'.wireSize ft' (Prelude'.fromEnum enum)
  wirePut ft' enum = P'.wirePut ft' (Prelude'.fromEnum enum)
  wireGet 14 = P'.wireGetEnum toMaybe'Enum
  wireGet ft' = P'.wireGetErr ft'
  wireGetPacked 14 = P'.wireGetPackedEnum toMaybe'Enum
  wireGetPacked ft' = P'.wireGetErr ft'

instance P'.GPB Label

instance P'.MessageAPI msg' (msg' -> Label) Label where
  getVal m' f' = f' m'

instance P'.ReflectEnum Label where
  reflectEnum
   = [(1, "LABEL_OPTIONAL", LABEL_OPTIONAL), (2, "LABEL_REQUIRED", LABEL_REQUIRED), (3, "LABEL_REPEATED", LABEL_REPEATED)]
  reflectEnumInfo _
   = P'.EnumInfo
      (P'.makePNF (P'.pack ".google.protobuf.FieldDescriptorProto.Label") ["Text"] ["DescriptorProtos", "FieldDescriptorProto"]
        "Label")
      ["Text", "DescriptorProtos", "FieldDescriptorProto", "Label.hs"]
      [(1, "LABEL_OPTIONAL"), (2, "LABEL_REQUIRED"), (3, "LABEL_REPEATED")]
      Prelude'.False

instance P'.TextType Label where
  tellT = P'.tellShow
  getT = P'.getRead