1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
{-# LANGUAGE BangPatterns, DataKinds, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings
#-}
{-# OPTIONS_GHC -w #-}
module GTFS.Realtime.FeedHeader.Incrementality (Incrementality(..)) 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 Incrementality = FULL_DATASET
| DIFFERENTIAL
deriving (Prelude'.Read, Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data,
Prelude'.Generic)
instance P'.Mergeable Incrementality
instance Prelude'.Bounded Incrementality where
minBound = FULL_DATASET
maxBound = DIFFERENTIAL
instance P'.Default Incrementality where
defaultValue = FULL_DATASET
toMaybe'Enum :: Prelude'.Int -> P'.Maybe Incrementality
toMaybe'Enum 0 = Prelude'.Just FULL_DATASET
toMaybe'Enum 1 = Prelude'.Just DIFFERENTIAL
toMaybe'Enum _ = Prelude'.Nothing
instance Prelude'.Enum Incrementality where
fromEnum FULL_DATASET = 0
fromEnum DIFFERENTIAL = 1
toEnum
= P'.fromMaybe (Prelude'.error "hprotoc generated code: toEnum failure for type GTFS.Realtime.FeedHeader.Incrementality") .
toMaybe'Enum
succ FULL_DATASET = DIFFERENTIAL
succ _ = Prelude'.error "hprotoc generated code: succ failure for type GTFS.Realtime.FeedHeader.Incrementality"
pred DIFFERENTIAL = FULL_DATASET
pred _ = Prelude'.error "hprotoc generated code: pred failure for type GTFS.Realtime.FeedHeader.Incrementality"
instance P'.Wire Incrementality 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 Incrementality
instance P'.MessageAPI msg' (msg' -> Incrementality) Incrementality where
getVal m' f' = f' m'
instance P'.ReflectEnum Incrementality where
reflectEnum = [(0, "FULL_DATASET", FULL_DATASET), (1, "DIFFERENTIAL", DIFFERENTIAL)]
reflectEnumInfo _
= P'.EnumInfo
(P'.makePNF (P'.pack ".transit_realtime.FeedHeader.Incrementality") [] ["GTFS", "Realtime", "FeedHeader"] "Incrementality")
["GTFS", "Realtime", "FeedHeader", "Incrementality.hs"]
[(0, "FULL_DATASET"), (1, "DIFFERENTIAL")]
Prelude'.False
instance P'.TextType Incrementality where
tellT = P'.tellShow
getT = P'.getRead
|
