diff options
Diffstat (limited to 'lib/Server/GTFS_RT.hs')
-rw-r--r-- | lib/Server/GTFS_RT.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/Server/GTFS_RT.hs b/lib/Server/GTFS_RT.hs index d1e4f93..42af09b 100644 --- a/lib/Server/GTFS_RT.hs +++ b/lib/Server/GTFS_RT.hs @@ -28,8 +28,8 @@ import Data.Text.Encoding (e import Data.Time.Calendar (Day, toGregorian) import Data.Time.Clock (UTCTime (utctDay), - getCurrentTime, - addUTCTime) + addUTCTime, + getCurrentTime) import Data.Time.Clock.POSIX (getPOSIXTime) import Data.Time.Clock.System (SystemTime (systemSeconds), getSystemTime, @@ -47,8 +47,9 @@ import GTFS (G Seconds (..), Stop (..), Trip (..), - stationId, toUTC, TripID, + stationId, + toUTC, tripsOnDay) import GTFS.Realtime.Alert as AL (Alert (..)) import GTFS.Realtime.Alert.SeverityLevel (SeverityLevel (WARNING)) @@ -62,11 +63,11 @@ import GTFS.Realtime.TimeRange (T import GTFS.Realtime.TranslatedString (TranslatedString (TranslatedString)) import GTFS.Realtime.TranslatedString.Translation (Translation (Translation)) import GTFS.Realtime.TripDescriptor as TD (TripDescriptor (..)) +import qualified GTFS.Realtime.TripDescriptor.ScheduleRelationship as TSR import GTFS.Realtime.TripUpdate as TU (TripUpdate (..)) import GTFS.Realtime.TripUpdate.StopTimeEvent as STE (StopTimeEvent (..)) import GTFS.Realtime.TripUpdate.StopTimeUpdate as STU (StopTimeUpdate (..)) import qualified GTFS.Realtime.TripUpdate.StopTimeUpdate.ScheduleRelationship as SR -import qualified GTFS.Realtime.TripDescriptor.ScheduleRelationship as TSR import GTFS.Realtime.VehicleDescriptor as VD (VehicleDescriptor (..)) import GTFS.Realtime.VehiclePosition as VP (VehiclePosition (..)) import Persist (Announcement (..), |