protocol-buffers-0.1.0: Text/Hand-DescriptorProtos/FileOptions/OptimizeMode.hs

module Text.DescriptorProtos.FileOptions.OptimizeMode
  (OptimizeMode(..))
 where

import Data.Monoid
import Text.ProtocolBuffers.Header

data OptimizeMode = SPEED | CODE_SIZE
  deriving (Read,Show,Eq,Ord,Typeable)

$( makeMergeableEnum ''OptimizeMode )

err'Name :: String
err'Name = "DescriptorProtos.FileOptions.OptimizeMode"

err' :: String -> b
err' a = error (err'Name ++ " : " ++ show a)

instance Enum OptimizeMode where
  fromEnum SPEED = 1
  fromEnum CODE_SIZE = 2

  toEnum 1 = SPEED
  toEnum 2 = CODE_SIZE
  toEnum x = err' ("toEnum failed on value "++show x)

  succ SPEED = CODE_SIZE
  succ CODE_SIZE = err' ("succ failed on value "++show CODE_SIZE)

  pred SPEED = err' ("pred failed on value "++show SPEED)
  pred CODE_SIZE = SPEED

instance ReflectEnum OptimizeMode where