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).

1 files changed, 0 insertions, 73 deletions

diff --git a/gtfs/GTFS/Realtime/VehiclePosition/VehicleStopStatus.hs b/gtfs/GTFS/Realtime/VehiclePosition/VehicleStopStatus.hs
deleted file mode 100644
index 3bc70e5..0000000
--- a/gtfs/GTFS/Realtime/VehiclePosition/VehicleStopStatus.hs
+++ /dev/null
@@ -1,73 +0,0 @@
-{-# LANGUAGE BangPatterns, DataKinds, DeriveDataTypeable, DeriveGeneric, FlexibleInstances, MultiParamTypeClasses, OverloadedStrings
- #-}
-{-# OPTIONS_GHC  -w #-}
-module GTFS.Realtime.VehiclePosition.VehicleStopStatus (VehicleStopStatus(..)) 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 VehicleStopStatus = INCOMING_AT
-                       | STOPPED_AT
-                       | IN_TRANSIT_TO
-                         deriving (Prelude'.Read, Prelude'.Show, Prelude'.Eq, Prelude'.Ord, Prelude'.Typeable, Prelude'.Data,
-                                   Prelude'.Generic)
-
-instance P'.Mergeable VehicleStopStatus
-
-instance Prelude'.Bounded VehicleStopStatus where
-  minBound = INCOMING_AT
-  maxBound = IN_TRANSIT_TO
-
-instance P'.Default VehicleStopStatus where
-  defaultValue = INCOMING_AT
-
-toMaybe'Enum :: Prelude'.Int -> P'.Maybe VehicleStopStatus
-toMaybe'Enum 0 = Prelude'.Just INCOMING_AT
-toMaybe'Enum 1 = Prelude'.Just STOPPED_AT
-toMaybe'Enum 2 = Prelude'.Just IN_TRANSIT_TO
-toMaybe'Enum _ = Prelude'.Nothing
-
-instance Prelude'.Enum VehicleStopStatus where
-  fromEnum INCOMING_AT = 0
-  fromEnum STOPPED_AT = 1
-  fromEnum IN_TRANSIT_TO = 2
-  toEnum
-   = P'.fromMaybe (Prelude'.error "hprotoc generated code: toEnum failure for type GTFS.Realtime.VehiclePosition.VehicleStopStatus")
-      . toMaybe'Enum
-  succ INCOMING_AT = STOPPED_AT
-  succ STOPPED_AT = IN_TRANSIT_TO
-  succ _ = Prelude'.error "hprotoc generated code: succ failure for type GTFS.Realtime.VehiclePosition.VehicleStopStatus"
-  pred STOPPED_AT = INCOMING_AT
-  pred IN_TRANSIT_TO = STOPPED_AT
-  pred _ = Prelude'.error "hprotoc generated code: pred failure for type GTFS.Realtime.VehiclePosition.VehicleStopStatus"
-
-instance P'.Wire VehicleStopStatus 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 VehicleStopStatus
-
-instance P'.MessageAPI msg' (msg' -> VehicleStopStatus) VehicleStopStatus where
-  getVal m' f' = f' m'
-
-instance P'.ReflectEnum VehicleStopStatus where
-  reflectEnum = [(0, "INCOMING_AT", INCOMING_AT), (1, "STOPPED_AT", STOPPED_AT), (2, "IN_TRANSIT_TO", IN_TRANSIT_TO)]
-  reflectEnumInfo _
-   = P'.EnumInfo
-      (P'.makePNF (P'.pack ".transit_realtime.VehiclePosition.VehicleStopStatus") [] ["GTFS", "Realtime", "VehiclePosition"]
-        "VehicleStopStatus")
-      ["GTFS", "Realtime", "VehiclePosition", "VehicleStopStatus.hs"]
-      [(0, "INCOMING_AT"), (1, "STOPPED_AT"), (2, "IN_TRANSIT_TO")]
-      Prelude'.False
-
-instance P'.TextType VehicleStopStatus where
-  tellT = P'.tellShow
-  getT = P'.getRead
\ No newline at end of file