From 965eb7097326bd28a7e5cb6c243c28e81cab4593 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 20 May 2023 00:13:35 +0200
Subject: expose the gtfs.zip used in the API

---
 lib/Server/ControlRoom.hs | 6 +++---
 lib/Server/GTFS_RT.hs     | 3 ++-
 2 files changed, 5 insertions(+), 4 deletions(-)

(limited to 'lib/Server')

diff --git a/lib/Server/ControlRoom.hs b/lib/Server/ControlRoom.hs
index 9cde587..8fef7f9 100644
--- a/lib/Server/ControlRoom.hs
+++ b/lib/Server/ControlRoom.hs
@@ -31,8 +31,8 @@ import qualified Data.Map                  as M
 import           Data.Pool                 (Pool)
 import           Data.Text                 (Text)
 import qualified Data.Text                 as T
-import           Data.Time                 (UTCTime (..), getCurrentTime,
-                                            utctDay, addDays)
+import           Data.Time                 (UTCTime (..), addDays,
+                                            getCurrentTime, utctDay)
 import           Data.Time.Calendar        (Day)
 import           Data.Time.Format.ISO8601  (iso8601Show)
 import           Data.UUID                 (UUID)
@@ -194,7 +194,7 @@ getTrainsR = do
   (day, isToday) <- liftIO $ getCurrentTime <&> utctDay <&> \today ->
     case maybeDay of
       Just day -> (day, day == today)
-      Nothing -> (today, True)
+      Nothing  -> (today, True)
 
   let prevday = (T.pack . iso8601Show . addDays (-1))  day
   let nextday = (T.pack . iso8601Show . addDays 1) day
diff --git a/lib/Server/GTFS_RT.hs b/lib/Server/GTFS_RT.hs
index 984e19d..5b485df 100644
--- a/lib/Server/GTFS_RT.hs
+++ b/lib/Server/GTFS_RT.hs
@@ -91,7 +91,8 @@ import           Data.UUID                                                    (t
 import qualified Data.Vector                                                  as V
 import           Extrapolation                                                (Extrapolator (extrapolateAtPosition, extrapolateAtSeconds),
                                                                                LinearExtrapolator (..))
-import           GTFS                                                         (Depth (..), showTimeWithSeconds)
+import           GTFS                                                         (Depth (..),
+                                                                               showTimeWithSeconds)
 import           GTFS.Realtime.TripUpdate                                     (TripUpdate (TripUpdate))
 import           Server.Util                                                  (Service,
                                                                                secondsNow)
-- 
cgit v1.2.3