diff options
| author | stuebinm | 2022-12-12 01:37:51 +0100 |
|---|---|---|
| committer | stuebinm | 2022-12-12 01:37:51 +0100 |
| commit | 7d94d4d02bc729a1879524ff9420cf4a2f697afd (patch) | |
| tree | bbab00f12ccfec0d2e2518fba2cb887c24c1ac8d /lib | |
| parent | 9b9e6934f74f8f1a95cdf4c22b57770d62091aea (diff) | |
stylish-haskell run
Diffstat (limited to 'lib')
| -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 (..), |