diff options
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 |