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