{-# 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}))