From f7066888652ed3326017adf2eb6786a21043ebf5 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 28 Aug 2022 21:33:33 +0200
Subject: some config thing

works kinda well, but doesn't complain about unknown config values in
json, which is kinda hmpf tbh
---
 lib/Server/ControlRoom.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/Server/ControlRoom.hs')

diff --git a/lib/Server/ControlRoom.hs b/lib/Server/ControlRoom.hs
index 3c928f1..164d8ff 100644
--- a/lib/Server/ControlRoom.hs
+++ b/lib/Server/ControlRoom.hs
@@ -140,7 +140,7 @@ instance YesodPersist ControlRoom where
     runSqlPool action pool
 
 getRootR :: Handler Html
-getRootR = redirect (TrainsR)
+getRootR = redirect TrainsR
 
 getTrainsR :: Handler Html
 getTrainsR = do
@@ -168,7 +168,7 @@ getTrainViewR trip day = do
     Just res@Trip{..} -> do
       anns <- runDB $ selectList [ AnnouncementTrip ==. trip, AnnouncementDay ==. day ] []
       tokens <- runDB $ selectList [ RunningTrip ==. trip, RunningDay ==. day ] []
-      lastPing <- runDB $ selectFirst [ TrainPingToken <-. (fmap entityKey tokens) ] [Desc TrainPingTimestamp]
+      lastPing <- runDB $ selectFirst [ TrainPingToken <-. fmap entityKey tokens ] [Desc TrainPingTimestamp]
       defaultLayout $ do
         mr <- getMessageRender
         setTitle (toHtml (""+|mr MsgTrip|+" "+|tripTripID|+" "+|mr Msgon|+" "+|day|+"" :: Text))
-- 
cgit v1.2.3