diff options
Diffstat (limited to 'gtfs/GTFS/Realtime/Alert/Cause.hs')
| -rw-r--r-- | gtfs/GTFS/Realtime/Alert/Cause.hs | 118 |
1 files changed, 0 insertions, 118 deletions
diff --git a/gtfs/GTFS/Realtime/Alert/Cause.hs b/gtfs/GTFS/Realtime/Alert/Cause.hs deleted file mode 100644 index 9f71db7..0000000 --- a/gtfs/GTFS/Realtime/Alert/Cause.hs +++ /dev/null @@ -1,118 +0,0 @@ -{-# LANGUAGE BangPatterns, DataKinds, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings - #-} -{-# OPTIONS_GHC -w #-} -module GTFS.Realtime.Alert.Cause (Cause(..)) 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 Cause = UNKNOWN_CAUSE - | OTHER_CAUSE - | TECHNICAL_PROBLEM - | STRIKE - | DEMONSTRATION - | ACCIDENT - | HOLIDAY - | WEATHER - | MAINTENANCE - | CONSTRUCTION - | POLICE_ACTIVITY - | MEDICAL_EMERGENCY - deriving (Prelude'.Read, Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic) - -instance P'.Mergeable Cause - -instance Prelude'.Bounded Cause where - minBound = UNKNOWN_CAUSE - maxBound = MEDICAL_EMERGENCY - -instance P'.Default Cause where - defaultValue = UNKNOWN_CAUSE - -toMaybe'Enum :: Prelude'.Int -> P'.Maybe Cause -toMaybe'Enum 1 = Prelude'.Just UNKNOWN_CAUSE -toMaybe'Enum 2 = Prelude'.Just OTHER_CAUSE -toMaybe'Enum 3 = Prelude'.Just TECHNICAL_PROBLEM -toMaybe'Enum 4 = Prelude'.Just STRIKE -toMaybe'Enum 5 = Prelude'.Just DEMONSTRATION -toMaybe'Enum 6 = Prelude'.Just ACCIDENT -toMaybe'Enum 7 = Prelude'.Just HOLIDAY -toMaybe'Enum 8 = Prelude'.Just WEATHER -toMaybe'Enum 9 = Prelude'.Just MAINTENANCE -toMaybe'Enum 10 = Prelude'.Just CONSTRUCTION -toMaybe'Enum 11 = Prelude'.Just POLICE_ACTIVITY -toMaybe'Enum 12 = Prelude'.Just MEDICAL_EMERGENCY -toMaybe'Enum _ = Prelude'.Nothing - -instance Prelude'.Enum Cause where - fromEnum UNKNOWN_CAUSE = 1 - fromEnum OTHER_CAUSE = 2 - fromEnum TECHNICAL_PROBLEM = 3 - fromEnum STRIKE = 4 - fromEnum DEMONSTRATION = 5 - fromEnum ACCIDENT = 6 - fromEnum HOLIDAY = 7 - fromEnum WEATHER = 8 - fromEnum MAINTENANCE = 9 - fromEnum CONSTRUCTION = 10 - fromEnum POLICE_ACTIVITY = 11 - fromEnum MEDICAL_EMERGENCY = 12 - toEnum = P'.fromMaybe (Prelude'.error "hprotoc generated code: toEnum failure for type GTFS.Realtime.Alert.Cause") . toMaybe'Enum - succ UNKNOWN_CAUSE = OTHER_CAUSE - succ OTHER_CAUSE = TECHNICAL_PROBLEM - succ TECHNICAL_PROBLEM = STRIKE - succ STRIKE = DEMONSTRATION - succ DEMONSTRATION = ACCIDENT - succ ACCIDENT = HOLIDAY - succ HOLIDAY = WEATHER - succ WEATHER = MAINTENANCE - succ MAINTENANCE = CONSTRUCTION - succ CONSTRUCTION = POLICE_ACTIVITY - succ POLICE_ACTIVITY = MEDICAL_EMERGENCY - succ _ = Prelude'.error "hprotoc generated code: succ failure for type GTFS.Realtime.Alert.Cause" - pred OTHER_CAUSE = UNKNOWN_CAUSE - pred TECHNICAL_PROBLEM = OTHER_CAUSE - pred STRIKE = TECHNICAL_PROBLEM - pred DEMONSTRATION = STRIKE - pred ACCIDENT = DEMONSTRATION - pred HOLIDAY = ACCIDENT - pred WEATHER = HOLIDAY - pred MAINTENANCE = WEATHER - pred CONSTRUCTION = MAINTENANCE - pred POLICE_ACTIVITY = CONSTRUCTION - pred MEDICAL_EMERGENCY = POLICE_ACTIVITY - pred _ = Prelude'.error "hprotoc generated code: pred failure for type GTFS.Realtime.Alert.Cause" - -instance P'.Wire Cause 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 Cause - -instance P'.MessageAPI msg' (msg' -> Cause) Cause where - getVal m' f' = f' m' - -instance P'.ReflectEnum Cause where - reflectEnum - = [(1, "UNKNOWN_CAUSE", UNKNOWN_CAUSE), (2, "OTHER_CAUSE", OTHER_CAUSE), (3, "TECHNICAL_PROBLEM", TECHNICAL_PROBLEM), - (4, "STRIKE", STRIKE), (5, "DEMONSTRATION", DEMONSTRATION), (6, "ACCIDENT", ACCIDENT), (7, "HOLIDAY", HOLIDAY), - (8, "WEATHER", WEATHER), (9, "MAINTENANCE", MAINTENANCE), (10, "CONSTRUCTION", CONSTRUCTION), - (11, "POLICE_ACTIVITY", POLICE_ACTIVITY), (12, "MEDICAL_EMERGENCY", MEDICAL_EMERGENCY)] - reflectEnumInfo _ - = P'.EnumInfo (P'.makePNF (P'.pack ".transit_realtime.Alert.Cause") [] ["GTFS", "Realtime", "Alert"] "Cause") - ["GTFS", "Realtime", "Alert", "Cause.hs"] - [(1, "UNKNOWN_CAUSE"), (2, "OTHER_CAUSE"), (3, "TECHNICAL_PROBLEM"), (4, "STRIKE"), (5, "DEMONSTRATION"), (6, "ACCIDENT"), - (7, "HOLIDAY"), (8, "WEATHER"), (9, "MAINTENANCE"), (10, "CONSTRUCTION"), (11, "POLICE_ACTIVITY"), (12, "MEDICAL_EMERGENCY")] - Prelude'.False - -instance P'.TextType Cause where - tellT = P'.tellShow - getT = P'.getRead
\ No newline at end of file |