diff options
author | stuebinm | 2024-04-17 01:21:33 +0200 |
---|---|---|
committer | stuebinm | 2024-04-17 01:48:35 +0200 |
commit | 385e15fc22f48a1f8d40b8263a54155fdab499ea (patch) | |
tree | 19f3a8b3fcb017eebdba3f094ceb5ff80c6c0134 /gtfs/GTFS/Realtime/FeedHeader | |
parent | a995dabf07574a32c1ae62ad23b96ba7d8e076ee (diff) |
replace protocol-buffers with proto-lens
I do not really like either option, but at least the second one seems
more likely to be maintained (and a little less clunky to use, too, for
what it's worth).
Diffstat (limited to 'gtfs/GTFS/Realtime/FeedHeader')
-rw-r--r-- | gtfs/GTFS/Realtime/FeedHeader/Incrementality.hs | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/gtfs/GTFS/Realtime/FeedHeader/Incrementality.hs b/gtfs/GTFS/Realtime/FeedHeader/Incrementality.hs deleted file mode 100644 index ad6e194..0000000 --- a/gtfs/GTFS/Realtime/FeedHeader/Incrementality.hs +++ /dev/null @@ -1,67 +0,0 @@ -{-# LANGUAGE BangPatterns, DataKinds, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings - #-} -{-# OPTIONS_GHC -w #-} -module GTFS.Realtime.FeedHeader.Incrementality (Incrementality(..)) 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 Incrementality = FULL_DATASET - | DIFFERENTIAL - deriving (Prelude'.Read, Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data, - Prelude'.Generic) - -instance P'.Mergeable Incrementality - -instance Prelude'.Bounded Incrementality where - minBound = FULL_DATASET - maxBound = DIFFERENTIAL - -instance P'.Default Incrementality where - defaultValue = FULL_DATASET - -toMaybe'Enum :: Prelude'.Int -> P'.Maybe Incrementality -toMaybe'Enum 0 = Prelude'.Just FULL_DATASET -toMaybe'Enum 1 = Prelude'.Just DIFFERENTIAL -toMaybe'Enum _ = Prelude'.Nothing - -instance Prelude'.Enum Incrementality where - fromEnum FULL_DATASET = 0 - fromEnum DIFFERENTIAL = 1 - toEnum - = P'.fromMaybe (Prelude'.error "hprotoc generated code: toEnum failure for type GTFS.Realtime.FeedHeader.Incrementality") . - toMaybe'Enum - succ FULL_DATASET = DIFFERENTIAL - succ _ = Prelude'.error "hprotoc generated code: succ failure for type GTFS.Realtime.FeedHeader.Incrementality" - pred DIFFERENTIAL = FULL_DATASET - pred _ = Prelude'.error "hprotoc generated code: pred failure for type GTFS.Realtime.FeedHeader.Incrementality" - -instance P'.Wire Incrementality 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 Incrementality - -instance P'.MessageAPI msg' (msg' -> Incrementality) Incrementality where - getVal m' f' = f' m' - -instance P'.ReflectEnum Incrementality where - reflectEnum = [(0, "FULL_DATASET", FULL_DATASET), (1, "DIFFERENTIAL", DIFFERENTIAL)] - reflectEnumInfo _ - = P'.EnumInfo - (P'.makePNF (P'.pack ".transit_realtime.FeedHeader.Incrementality") [] ["GTFS", "Realtime", "FeedHeader"] "Incrementality") - ["GTFS", "Realtime", "FeedHeader", "Incrementality.hs"] - [(0, "FULL_DATASET"), (1, "DIFFERENTIAL")] - Prelude'.False - -instance P'.TextType Incrementality where - tellT = P'.tellShow - getT = P'.getRead
\ No newline at end of file |