diff options
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) |