From b893f41188eb6fe5bc1de54da7225fc150be7c7d Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 16 Apr 2026 12:35:31 +0200
Subject: Server.Frontend.Tracker: creation & deletion dialogs

---
 lib/Server/Ingest.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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

diff --git a/lib/Server/Ingest.hs b/lib/Server/Ingest.hs
index 8e122a7..edbce08 100644
--- a/lib/Server/Ingest.hs
+++ b/lib/Server/Ingest.hs
@@ -74,7 +74,7 @@ handleTrackerRegister dbpool RegisterJson{..} = do
   today <- liftIO getCurrentTime <&> utctDay
   expires <- liftIO $ getCurrentTime <&> addUTCTime validityPeriod
   runSql dbpool $ do
-    TrackerKey tracker <- insert (Tracker "dummy" expires False registerAgent Nothing)
+    TrackerKey tracker <- insert (Tracker "dummy" {-expires-} False registerAgent Nothing)
     pure (coerce tracker)
   where
     validityPeriod :: NominalDiffTime
@@ -332,9 +332,10 @@ spaceAndTimeDiff (pos1, time1) (pos2, time2) =
 isTrackerIdValid :: Pool SqlBackend -> TrackerId -> ServiceM (Maybe Tracker)
 isTrackerIdValid dbpool trackerId = runSql dbpool $ get trackerId >>= \case
   Just tracker | not (trackerBlocked tracker) -> do
-    ifM (hasExpired (trackerExpires tracker))
-      (pure Nothing)
-      (pure (Just tracker))
+    pure (Just tracker)
+    -- ifM (hasExpired (trackerExpires tracker))
+    --   (pure Nothing)
+    --   (pure (Just tracker))
   _ -> pure Nothing
 
 hasExpired :: MonadIO m => UTCTime -> m Bool
-- 
cgit v1.2.3