aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/GTFS.hs2
-rw-r--r--lib/Server/ControlRoom.hs2
-rw-r--r--lib/Server/GTFS_RT.hs9
3 files changed, 7 insertions, 6 deletions
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 (..),