diff options
| author | stuebinm | 2026-04-16 01:27:50 +0200 |
|---|---|---|
| committer | stuebinm | 2026-04-16 01:27:50 +0200 |
| commit | 2c684868ed9b3011033d5ec265dd9f891fe791b7 (patch) | |
| tree | 87ab7968c31e732ce3410c473b13c72184990220 /lib/Server/GTFS_RT.hs | |
| parent | 426ecb4e0ccc23e411039b7f075155df275b0a2d (diff) | |
lib: formatter run
Diffstat (limited to '')
| -rw-r--r-- | lib/Server/GTFS_RT.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/Server/GTFS_RT.hs b/lib/Server/GTFS_RT.hs index 532af89..4b16a5b 100644 --- a/lib/Server/GTFS_RT.hs +++ b/lib/Server/GTFS_RT.hs @@ -8,6 +8,7 @@ module Server.GTFS_RT (gtfsRealtimeServer) where import API (GtfsRealtimeAPI) +import Config (ServerConfig (..)) import Control.Lens ((&), (.~)) import Control.Monad (forM) import Control.Monad.Extra (mapMaybeM) @@ -45,16 +46,15 @@ import GTFS (Depth (..), GTFS (..), toSeconds, toUTC, tripsOnDay) import Persist (Announcement (..), EntityField (..), Key (..), - Station (..), Stop (..), - Ticket (..), TrackerId (..), - Tracker (..), TrainAnchor (..), - Ping (..), latitude, + Ping (..), Station (..), + Stop (..), Ticket (..), + Tracker (..), TrackerId (..), + TrainAnchor (..), latitude, longitude, runSql) import qualified Proto.GtfsRealtime as RT import qualified Proto.GtfsRealtime_Fields as RT import Servant.API ((:<|>) (..)) import Server.Util (Service, secondsNow) -import Config (ServerConfig (..)) -- | formats a day in the "stupid" format used by gtfs realtime toStupidDate :: Day -> Text |