diff options
Diffstat (limited to 'tea-cleaner/TeaCleaner/Filter.hs')
| -rw-r--r-- | tea-cleaner/TeaCleaner/Filter.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tea-cleaner/TeaCleaner/Filter.hs b/tea-cleaner/TeaCleaner/Filter.hs index 434825a..f7d3315 100644 --- a/tea-cleaner/TeaCleaner/Filter.hs +++ b/tea-cleaner/TeaCleaner/Filter.hs @@ -48,8 +48,9 @@ filterByUserProperties settings user@User{ created, lastLogin } = not (Text.null $ getField @"description" user) && not (Text.null $ getField @"website" user) noLoginSinceRegistration = - let monthAgo = utctDay $ addUTCTime (-2592000) $ getField @"now" settings - in zonedDay created < monthAgo && zonedDay created == zonedDay lastLogin + let period = fromIntegral (getField @"noLogin" settings) * (-3600) * 24 + periodAgo = utctDay $ addUTCTime period $ getField @"now" settings + in zonedDay created < periodAgo && zonedDay created == zonedDay lastLogin zonedDay = localDay . zonedTimeToLocalTime filterByActivities :: Settings -> User -> IO FilterResult |