gtfs-realtime-0.2.0.0: src/GTFS/RealTime/Protobuf/Alert.hs
{-# LANGUAGE BangPatterns, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module GTFS.RealTime.Protobuf.Alert (Alert(..)) where
import Prelude ((+), (/), (++), (.), (==), (<=), (&&))
import qualified Prelude 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'
import qualified GTFS.RealTime.Protobuf.Alert.Cause as GTFS.RealTime.Protobuf.Alert (Cause)
import qualified GTFS.RealTime.Protobuf.Alert.Effect as GTFS.RealTime.Protobuf.Alert (Effect)
import qualified GTFS.RealTime.Protobuf.EntitySelector as GTFS.RealTime.Protobuf (EntitySelector)
import qualified GTFS.RealTime.Protobuf.TimeRange as GTFS.RealTime.Protobuf (TimeRange)
import qualified GTFS.RealTime.Protobuf.TranslatedString as GTFS.RealTime.Protobuf (TranslatedString)
data Alert = Alert{active_period :: !(P'.Seq GTFS.RealTime.Protobuf.TimeRange),
informed_entity :: !(P'.Seq GTFS.RealTime.Protobuf.EntitySelector),
cause :: !(P'.Maybe GTFS.RealTime.Protobuf.Alert.Cause),
effect :: !(P'.Maybe GTFS.RealTime.Protobuf.Alert.Effect),
url :: !(P'.Maybe GTFS.RealTime.Protobuf.TranslatedString),
header_text :: !(P'.Maybe GTFS.RealTime.Protobuf.TranslatedString),
description_text :: !(P'.Maybe GTFS.RealTime.Protobuf.TranslatedString), ext'field :: !(P'.ExtField)}
deriving (Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, Prelude'.Generic)
instance P'.ExtendMessage Alert where
getExtField = ext'field
putExtField e'f msg = msg{ext'field = e'f}
validExtRanges msg = P'.extRanges (P'.reflectDescriptorInfo msg)
instance P'.ToJSON Alert where
toJSON msg
= P'.objectNoEmpty
([("active_period", P'.toJSON (Prelude'.fmap P'.toJSON (active_period msg))),
("informed_entity", P'.toJSON (Prelude'.fmap P'.toJSON (informed_entity msg))),
("cause", P'.toJSON (Prelude'.fmap P'.toJSON (cause msg))), ("effect", P'.toJSON (Prelude'.fmap P'.toJSON (effect msg))),
("url", P'.toJSON (Prelude'.fmap P'.toJSON (url msg))),
("header_text", P'.toJSON (Prelude'.fmap P'.toJSON (header_text msg))),
("description_text", P'.toJSON (Prelude'.fmap P'.toJSON (description_text msg)))]
++ Prelude'.concat [])
instance P'.FromJSON Alert where
parseJSON
= P'.withObject "Alert"
(\ o ->
do
active_period <- Prelude'.fmap (Prelude'.maybe Prelude'.mempty Prelude'.id)
(P'.explicitParseFieldMaybe (Prelude'.mapM P'.parseJSON P'.<=< P'.parseJSON) o "active_period")
informed_entity <- Prelude'.fmap (Prelude'.maybe Prelude'.mempty Prelude'.id)
(P'.explicitParseFieldMaybe (Prelude'.mapM P'.parseJSON P'.<=< P'.parseJSON) o "informed_entity")
cause <- do
tmp <- P'.explicitParseFieldMaybe P'.parseJSON o "cause"
Prelude'.return (Prelude'.maybe (Prelude'.Just ((Prelude'.read "UNKNOWN_CAUSE"))) Prelude'.Just tmp)
effect <- do
tmp <- P'.explicitParseFieldMaybe P'.parseJSON o "effect"
Prelude'.return (Prelude'.maybe (Prelude'.Just ((Prelude'.read "UNKNOWN_EFFECT"))) Prelude'.Just tmp)
url <- P'.explicitParseFieldMaybe P'.parseJSON o "url"
header_text <- P'.explicitParseFieldMaybe P'.parseJSON o "header_text"
description_text <- P'.explicitParseFieldMaybe P'.parseJSON o "description_text"
Prelude'.return
P'.defaultValue{active_period = active_period, informed_entity = informed_entity, cause = cause, effect = effect,
url = url, header_text = header_text, description_text = description_text})
instance P'.Mergeable Alert where
mergeAppend (Alert x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8) (Alert y'1 y'2 y'3 y'4 y'5 y'6 y'7 y'8)
= Alert (P'.mergeAppend x'1 y'1) (P'.mergeAppend x'2 y'2) (P'.mergeAppend x'3 y'3) (P'.mergeAppend x'4 y'4)
(P'.mergeAppend x'5 y'5)
(P'.mergeAppend x'6 y'6)
(P'.mergeAppend x'7 y'7)
(P'.mergeAppend x'8 y'8)
instance P'.Default Alert where
defaultValue
= Alert P'.defaultValue P'.defaultValue (Prelude'.Just (Prelude'.read "UNKNOWN_CAUSE"))
(Prelude'.Just (Prelude'.read "UNKNOWN_EFFECT"))
P'.defaultValue
P'.defaultValue
P'.defaultValue
P'.defaultValue
instance P'.Wire Alert where
wireSize ft' self'@(Alert x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8)
= case ft' of
10 -> calc'Size
11 -> P'.prependMessageSize calc'Size
_ -> P'.wireSizeErr ft' self'
where
calc'Size
= (P'.wireSizeRep 1 11 x'1 + P'.wireSizeRep 1 11 x'2 + P'.wireSizeOpt 1 14 x'3 + P'.wireSizeOpt 1 14 x'4 +
P'.wireSizeOpt 1 11 x'5
+ P'.wireSizeOpt 1 11 x'6
+ P'.wireSizeOpt 1 11 x'7
+ P'.wireSizeExtField x'8)
wirePutWithSize ft' self'@(Alert x'1 x'2 x'3 x'4 x'5 x'6 x'7 x'8)
= case ft' of
10 -> put'Fields
11 -> put'FieldsSized
_ -> P'.wirePutErr ft' self'
where
put'Fields
= P'.sequencePutWithSize
[P'.wirePutRepWithSize 10 11 x'1, P'.wirePutRepWithSize 42 11 x'2, P'.wirePutOptWithSize 48 14 x'3,
P'.wirePutOptWithSize 56 14 x'4, P'.wirePutOptWithSize 66 11 x'5, P'.wirePutOptWithSize 82 11 x'6,
P'.wirePutOptWithSize 90 11 x'7, P'.wirePutExtFieldWithSize x'8]
put'FieldsSized
= let size' = Prelude'.fst (P'.runPutM put'Fields)
put'Size
= do
P'.putSize size'
Prelude'.return (P'.size'WireSize size')
in P'.sequencePutWithSize [put'Size, put'Fields]
wireGet ft'
= case ft' of
10 -> P'.getBareMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self)
11 -> P'.getMessageWith (P'.catch'Unknown' P'.discardUnknown update'Self)
_ -> P'.wireGetErr ft'
where
update'Self wire'Tag old'Self
= case wire'Tag of
10 -> Prelude'.fmap (\ !new'Field -> old'Self{active_period = P'.append (active_period old'Self) new'Field})
(P'.wireGet 11)
42 -> Prelude'.fmap (\ !new'Field -> old'Self{informed_entity = P'.append (informed_entity old'Self) new'Field})
(P'.wireGet 11)
48 -> Prelude'.fmap (\ !new'Field -> old'Self{cause = Prelude'.Just new'Field}) (P'.wireGet 14)
56 -> Prelude'.fmap (\ !new'Field -> old'Self{effect = Prelude'.Just new'Field}) (P'.wireGet 14)
66 -> Prelude'.fmap (\ !new'Field -> old'Self{url = P'.mergeAppend (url old'Self) (Prelude'.Just new'Field)})
(P'.wireGet 11)
82 -> Prelude'.fmap
(\ !new'Field -> old'Self{header_text = P'.mergeAppend (header_text old'Self) (Prelude'.Just new'Field)})
(P'.wireGet 11)
90 -> Prelude'.fmap
(\ !new'Field ->
old'Self{description_text = P'.mergeAppend (description_text old'Self) (Prelude'.Just new'Field)})
(P'.wireGet 11)
_ -> let (field'Number, wire'Type) = P'.splitWireTag wire'Tag in
if Prelude'.or [1000 <= field'Number && field'Number <= 1999] then
P'.loadExtension field'Number wire'Type old'Self else P'.unknown field'Number wire'Type old'Self
instance P'.MessageAPI msg' (msg' -> Alert) Alert where
getVal m' f' = f' m'
instance P'.GPB Alert
instance P'.ReflectDescriptor Alert where
getMessageInfo _ = P'.GetMessageInfo (P'.fromDistinctAscList []) (P'.fromDistinctAscList [10, 42, 48, 56, 66, 82, 90])
reflectDescriptorInfo _
= Prelude'.read
"DescriptorInfo {descName = ProtoName {protobufName = FIName \".transit_realtime.Alert\", haskellPrefix = [], parentModule = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\"], baseName = MName \"Alert\"}, descFilePath = [\"GTFS\",\"RealTime\",\"Protobuf\",\"Alert.hs\"], isGroup = False, fields = fromList [FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".transit_realtime.Alert.active_period\", haskellPrefix' = [], parentModule' = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\",MName \"Alert\"], baseName' = FName \"active_period\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 1}, wireTag = WireTag {getWireTag = 10}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".transit_realtime.TimeRange\", haskellPrefix = [], parentModule = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\"], baseName = MName \"TimeRange\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".transit_realtime.Alert.informed_entity\", haskellPrefix' = [], parentModule' = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\",MName \"Alert\"], baseName' = FName \"informed_entity\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 5}, wireTag = WireTag {getWireTag = 42}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = True, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".transit_realtime.EntitySelector\", haskellPrefix = [], parentModule = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\"], baseName = MName \"EntitySelector\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".transit_realtime.Alert.cause\", haskellPrefix' = [], parentModule' = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\",MName \"Alert\"], baseName' = FName \"cause\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 6}, wireTag = WireTag {getWireTag = 48}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 14}, typeName = Just (ProtoName {protobufName = FIName \".transit_realtime.Alert.Cause\", haskellPrefix = [], parentModule = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\",MName \"Alert\"], baseName = MName \"Cause\"}), hsRawDefault = Just \"UNKNOWN_CAUSE\", hsDefault = Just (HsDef'Enum \"UNKNOWN_CAUSE\")},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".transit_realtime.Alert.effect\", haskellPrefix' = [], parentModule' = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\",MName \"Alert\"], baseName' = FName \"effect\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 7}, wireTag = WireTag {getWireTag = 56}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 14}, typeName = Just (ProtoName {protobufName = FIName \".transit_realtime.Alert.Effect\", haskellPrefix = [], parentModule = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\",MName \"Alert\"], baseName = MName \"Effect\"}), hsRawDefault = Just \"UNKNOWN_EFFECT\", hsDefault = Just (HsDef'Enum \"UNKNOWN_EFFECT\")},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".transit_realtime.Alert.url\", haskellPrefix' = [], parentModule' = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\",MName \"Alert\"], baseName' = FName \"url\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 8}, wireTag = WireTag {getWireTag = 66}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".transit_realtime.TranslatedString\", haskellPrefix = [], parentModule = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\"], baseName = MName \"TranslatedString\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".transit_realtime.Alert.header_text\", haskellPrefix' = [], parentModule' = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\",MName \"Alert\"], baseName' = FName \"header_text\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 10}, wireTag = WireTag {getWireTag = 82}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".transit_realtime.TranslatedString\", haskellPrefix = [], parentModule = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\"], baseName = MName \"TranslatedString\"}), hsRawDefault = Nothing, hsDefault = Nothing},FieldInfo {fieldName = ProtoFName {protobufName' = FIName \".transit_realtime.Alert.description_text\", haskellPrefix' = [], parentModule' = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\",MName \"Alert\"], baseName' = FName \"description_text\", baseNamePrefix' = \"\"}, fieldNumber = FieldId {getFieldId = 11}, wireTag = WireTag {getWireTag = 90}, packedTag = Nothing, wireTagLength = 1, isPacked = False, isRequired = False, canRepeat = False, mightPack = False, typeCode = FieldType {getFieldType = 11}, typeName = Just (ProtoName {protobufName = FIName \".transit_realtime.TranslatedString\", haskellPrefix = [], parentModule = [MName \"GTFS\",MName \"RealTime\",MName \"Protobuf\"], baseName = MName \"TranslatedString\"}), hsRawDefault = Nothing, hsDefault = Nothing}], descOneofs = fromList [], keys = fromList [], extRanges = [(FieldId {getFieldId = 1000},FieldId {getFieldId = 1999})], knownKeys = fromList [], storeUnknown = False, lazyFields = False, makeLenses = False, jsonInstances = True}"
instance P'.TextType Alert where
tellT = P'.tellSubMessage
getT = P'.getSubMessage
instance P'.TextMsg Alert where
textPut msg
= do
P'.tellT "active_period" (active_period msg)
P'.tellT "informed_entity" (informed_entity msg)
P'.tellT "cause" (cause msg)
P'.tellT "effect" (effect msg)
P'.tellT "url" (url msg)
P'.tellT "header_text" (header_text msg)
P'.tellT "description_text" (description_text msg)
textGet
= do
mods <- P'.sepEndBy
(P'.choice
[parse'active_period, parse'informed_entity, parse'cause, parse'effect, parse'url, parse'header_text,
parse'description_text])
P'.spaces
Prelude'.return (Prelude'.foldl (\ v f -> f v) P'.defaultValue mods)
where
parse'active_period
= P'.try
(do
v <- P'.getT "active_period"
Prelude'.return (\ o -> o{active_period = P'.append (active_period o) v}))
parse'informed_entity
= P'.try
(do
v <- P'.getT "informed_entity"
Prelude'.return (\ o -> o{informed_entity = P'.append (informed_entity o) v}))
parse'cause
= P'.try
(do
v <- P'.getT "cause"
Prelude'.return (\ o -> o{cause = v}))
parse'effect
= P'.try
(do
v <- P'.getT "effect"
Prelude'.return (\ o -> o{effect = v}))
parse'url
= P'.try
(do
v <- P'.getT "url"
Prelude'.return (\ o -> o{url = v}))
parse'header_text
= P'.try
(do
v <- P'.getT "header_text"
Prelude'.return (\ o -> o{header_text = v}))
parse'description_text
= P'.try
(do
v <- P'.getT "description_text"
Prelude'.return (\ o -> o{description_text = v}))