From 1612bb5aec55af06f66012ff2627f533e7a57c67 Mon Sep 17 00:00:00 2001 From: stuebinm Date: Sat, 28 Jan 2023 21:10:14 +0100 Subject: better web interface & css --- lib/Server/ControlRoom.hs | 84 ++++++++++++++++++++++++++++++++++++----------- lib/Server/GTFS_RT.hs | 16 ++++----- 2 files changed, 72 insertions(+), 28 deletions(-) (limited to 'lib/Server') diff --git a/lib/Server/ControlRoom.hs b/lib/Server/ControlRoom.hs index f08abcb..2be0b3e 100644 --- a/lib/Server/ControlRoom.hs +++ b/lib/Server/ControlRoom.hs @@ -32,7 +32,7 @@ import Data.Pool (Pool) import Data.Text (Text) import qualified Data.Text as T import Data.Time (UTCTime (..), getCurrentTime, - utctDay) + utctDay, addDays) import Data.Time.Calendar (Day) import Data.Time.Format.ISO8601 (iso8601Show) import Data.UUID (UUID) @@ -125,10 +125,14 @@ instance Yesod ControlRoom where ^{pageHead}