From 7d94d4d02bc729a1879524ff9420cf4a2f697afd Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Mon, 12 Dec 2022 01:37:51 +0100
Subject: stylish-haskell run

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

(limited to 'lib')

diff --git a/lib/GTFS.hs b/lib/GTFS.hs
index b83db0f..af4d03b 100644
--- a/lib/GTFS.hs
+++ b/lib/GTFS.hs
@@ -649,4 +649,4 @@ runsToday gtfs trip = do
 tripName :: Trip a b -> Text
 tripName Trip{..} = case tripShortName of
   Just name -> name
-  Nothing -> tripTripID
+  Nothing   -> tripTripID
diff --git a/lib/Server/ControlRoom.hs b/lib/Server/ControlRoom.hs
index f291d82..ef3cb1e 100644
--- a/lib/Server/ControlRoom.hs
+++ b/lib/Server/ControlRoom.hs
@@ -346,7 +346,7 @@ announceForm day tripId = renderDivs $ Announcement
 
 mightbe :: Maybe Text -> Text
 mightbe (Just a) = a
-mightbe Nothing = ""
+mightbe Nothing  = ""
 
 --- some orphans to make hamlet easier to deal with
 instance ToMarkup Time where
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 (..),
-- 
cgit v1.2.3