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
|
{-# LANGUAGE BangPatterns, DataKinds, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings
#-}
{-# OPTIONS_GHC -w #-}
module GTFS.Realtime.VehiclePosition.VehicleStopStatus (VehicleStopStatus(..)) 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 VehicleStopStatus = INCOMING_AT
| STOPPED_AT
| IN_TRANSIT_TO
deriving (Prelude'.Read, Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data,
Prelude'.Generic)
instance P'.Mergeable VehicleStopStatus
instance Prelude'.Bounded VehicleStopStatus where
minBound = INCOMING_AT
maxBound = IN_TRANSIT_TO
instance P'.Default VehicleStopStatus where
defaultValue = INCOMING_AT
toMaybe'Enum :: Prelude'.Int -> P'.Maybe VehicleStopStatus
toMaybe'Enum 0 = Prelude'.Just INCOMING_AT
toMaybe'Enum 1 = Prelude'.Just STOPPED_AT
toMaybe'Enum 2 = Prelude'.Just IN_TRANSIT_TO
toMaybe'Enum _ = Prelude'.Nothing
instance Prelude'.Enum VehicleStopStatus where
fromEnum INCOMING_AT = 0
fromEnum STOPPED_AT = 1
fromEnum IN_TRANSIT_TO = 2
toEnum
= P'.fromMaybe (Prelude'.error "hprotoc generated code: toEnum failure for type GTFS.Realtime.VehiclePosition.VehicleStopStatus")
. toMaybe'Enum
succ INCOMING_AT = STOPPED_AT
succ STOPPED_AT = IN_TRANSIT_TO
succ _ = Prelude'.error "hprotoc generated code: succ failure for type GTFS.Realtime.VehiclePosition.VehicleStopStatus"
pred STOPPED_AT = INCOMING_AT
pred IN_TRANSIT_TO = STOPPED_AT
pred _ = Prelude'.error "hprotoc generated code: pred failure for type GTFS.Realtime.VehiclePosition.VehicleStopStatus"
instance P'.Wire VehicleStopStatus 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 VehicleStopStatus
instance P'.MessageAPI msg' (msg' -> VehicleStopStatus) VehicleStopStatus where
getVal m' f' = f' m'
instance P'.ReflectEnum VehicleStopStatus where
reflectEnum = [(0, "INCOMING_AT", INCOMING_AT), (1, "STOPPED_AT", STOPPED_AT), (2, "IN_TRANSIT_TO", IN_TRANSIT_TO)]
reflectEnumInfo _
= P'.EnumInfo
(P'.makePNF (P'.pack ".transit_realtime.VehiclePosition.VehicleStopStatus") [] ["GTFS", "Realtime", "VehiclePosition"]
"VehicleStopStatus")
["GTFS", "Realtime", "VehiclePosition", "VehicleStopStatus.hs"]
[(0, "INCOMING_AT"), (1, "STOPPED_AT"), (2, "IN_TRANSIT_TO")]
Prelude'.False
instance P'.TextType VehicleStopStatus where
tellT = P'.tellShow
getT = P'.getRead
|
