diff options
| author | stuebinm | 2026-04-16 12:35:31 +0200 |
|---|---|---|
| committer | stuebinm | 2026-04-16 12:35:31 +0200 |
| commit | b893f41188eb6fe5bc1de54da7225fc150be7c7d (patch) | |
| tree | 92f57cd3115e6bcb1f820f6e77801ccfaccff92c /lib/Server.hs | |
| parent | 8b6c42d832f26bc277e125f876da8d21931550c6 (diff) | |
Server.Frontend.Tracker: creation & deletion dialogs
Diffstat (limited to '')
| -rw-r--r-- | lib/Server.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Server.hs b/lib/Server.hs index 4eb101d..3cff4c5 100644 --- a/lib/Server.hs +++ b/lib/Server.hs @@ -95,7 +95,7 @@ server gtfs metrics@Metrics{..} subscribers dbpool settings = {- handleDebugAPI handleDebugState = do now <- liftIO getCurrentTime runSql dbpool $ do - tracker <- selectList [TrackerBlocked ==. False, TrackerExpires >=. now] [] + tracker <- selectList [TrackerBlocked ==. False] [] --, TrackerExpires >=. now] [] pairs <- forM tracker $ \(Entity trackerId@(TrackerKey uuid) _) -> do entities <- selectList [PingTrackerId ==. trackerId] [] pure (uuid, fmap entityVal entities) |