expose the gtfs.zip used in the API

1 files changed, 3 insertions, 3 deletions

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