diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Server/Ingest.hs | 9 |
1 files changed, 5 insertions, 4 deletions
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 |