diff options
| -rw-r--r-- | lib/GTFS.hs | 2 | ||||
| -rw-r--r-- | lib/Server/ControlRoom.hs | 2 | ||||
| -rw-r--r-- | lib/Server/GTFS_RT.hs | 9 |
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 (..), |