aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorstuebinm2024-05-15 01:53:06 +0200
committerstuebinm2024-05-15 01:56:55 +0200
commit0c9a5d3be15d8f0cfa0fcddcefcbb65ec5a8eadd (patch)
tree31cd9ea383678c3cc6fe8b9986312a196ae63213 /lib
parentde81d9444c4252e87fa61eee53f439a352531e41 (diff)
Frontend.Tickets: fix "last call" in ticket view
(same as previous commit, this displayed the wrong ping)
Diffstat (limited to 'lib')
-rw-r--r--lib/Server/Frontend/Tickets.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Server/Frontend/Tickets.hs b/lib/Server/Frontend/Tickets.hs
index 3e17cd1..839aeba 100644
--- a/lib/Server/Frontend/Tickets.hs
+++ b/lib/Server/Frontend/Tickets.hs
@@ -195,7 +195,7 @@ getTicketViewR ticketId = do
trackers <- runDB $ selectList
([ TrackerId <-. joins ] ||. [ TrackerCurrentTicket ==. Just ticketKey ])
[Asc TrackerExpires]
- lastPing <- runDB $ selectFirst [ TrainPingToken <-. fmap entityKey trackers ] [Desc TrainPingTimestamp]
+ lastPing <- runDB $ selectFirst [ TrainPingTicket ==. coerce ticketId ] [Desc TrainPingTimestamp]
anchors <- runDB $ selectList [ TrainAnchorTicket ==. ticketKey ] []
<&> nonEmpty . fmap entityVal