diff options
Diffstat (limited to 'gtfs/GTFS/Realtime/VehiclePosition/VehicleStopStatus.hs')
-rw-r--r-- | gtfs/GTFS/Realtime/VehiclePosition/VehicleStopStatus.hs | 73 |
1 files changed, 0 insertions, 73 deletions
diff --git a/gtfs/GTFS/Realtime/VehiclePosition/VehicleStopStatus.hs b/gtfs/GTFS/Realtime/VehiclePosition/VehicleStopStatus.hs deleted file mode 100644 index 3bc70e5..0000000 --- a/gtfs/GTFS/Realtime/VehiclePosition/VehicleStopStatus.hs +++ /dev/null @@ -1,73 +0,0 @@ -{-# 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
\ No newline at end of file |