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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
{-# LANGUAGE BangPatterns, DataKinds, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings
#-}
{-# OPTIONS_GHC -w #-}
module GTFS.Realtime.VehiclePosition.CongestionLevel (CongestionLevel(..)) 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 CongestionLevel = UNKNOWN_CONGESTION_LEVEL
| RUNNING_SMOOTHLY
| STOP_AND_GO
| CONGESTION
| SEVERE_CONGESTION
deriving (Prelude'.Read, Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data,
Prelude'.Generic)
instance P'.Mergeable CongestionLevel
instance Prelude'.Bounded CongestionLevel where
minBound = UNKNOWN_CONGESTION_LEVEL
maxBound = SEVERE_CONGESTION
instance P'.Default CongestionLevel where
defaultValue = UNKNOWN_CONGESTION_LEVEL
toMaybe'Enum :: Prelude'.Int -> P'.Maybe CongestionLevel
toMaybe'Enum 0 = Prelude'.Just UNKNOWN_CONGESTION_LEVEL
toMaybe'Enum 1 = Prelude'.Just RUNNING_SMOOTHLY
toMaybe'Enum 2 = Prelude'.Just STOP_AND_GO
toMaybe'Enum 3 = Prelude'.Just CONGESTION
toMaybe'Enum 4 = Prelude'.Just SEVERE_CONGESTION
toMaybe'Enum _ = Prelude'.Nothing
instance Prelude'.Enum CongestionLevel where
fromEnum UNKNOWN_CONGESTION_LEVEL = 0
fromEnum RUNNING_SMOOTHLY = 1
fromEnum STOP_AND_GO = 2
fromEnum CONGESTION = 3
fromEnum SEVERE_CONGESTION = 4
toEnum
= P'.fromMaybe (Prelude'.error "hprotoc generated code: toEnum failure for type GTFS.Realtime.VehiclePosition.CongestionLevel") .
toMaybe'Enum
succ UNKNOWN_CONGESTION_LEVEL = RUNNING_SMOOTHLY
succ RUNNING_SMOOTHLY = STOP_AND_GO
succ STOP_AND_GO = CONGESTION
succ CONGESTION = SEVERE_CONGESTION
succ _ = Prelude'.error "hprotoc generated code: succ failure for type GTFS.Realtime.VehiclePosition.CongestionLevel"
pred RUNNING_SMOOTHLY = UNKNOWN_CONGESTION_LEVEL
pred STOP_AND_GO = RUNNING_SMOOTHLY
pred CONGESTION = STOP_AND_GO
pred SEVERE_CONGESTION = CONGESTION
pred _ = Prelude'.error "hprotoc generated code: pred failure for type GTFS.Realtime.VehiclePosition.CongestionLevel"
instance P'.Wire CongestionLevel 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 CongestionLevel
instance P'.MessageAPI msg' (msg' -> CongestionLevel) CongestionLevel where
getVal m' f' = f' m'
instance P'.ReflectEnum CongestionLevel where
reflectEnum
= [(0, "UNKNOWN_CONGESTION_LEVEL", UNKNOWN_CONGESTION_LEVEL), (1, "RUNNING_SMOOTHLY", RUNNING_SMOOTHLY),
(2, "STOP_AND_GO", STOP_AND_GO), (3, "CONGESTION", CONGESTION), (4, "SEVERE_CONGESTION", SEVERE_CONGESTION)]
reflectEnumInfo _
= P'.EnumInfo
(P'.makePNF (P'.pack ".transit_realtime.VehiclePosition.CongestionLevel") [] ["GTFS", "Realtime", "VehiclePosition"]
"CongestionLevel")
["GTFS", "Realtime", "VehiclePosition", "CongestionLevel.hs"]
[(0, "UNKNOWN_CONGESTION_LEVEL"), (1, "RUNNING_SMOOTHLY"), (2, "STOP_AND_GO"), (3, "CONGESTION"), (4, "SEVERE_CONGESTION")]
Prelude'.False
instance P'.TextType CongestionLevel where
tellT = P'.tellShow
getT = P'.getRead
|
