From a2d56cedaf4ef7c5a52e4029581eb692814441fa Mon Sep 17 00:00:00 2001 From: Profpatsch Date: Sat, 11 May 2024 22:35:25 +0200 Subject: feat(users/Profpatsch/whatcd-resolver): allow listing only download MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit When showing the best torrents table, we want to be able to filter for “only downloaded”. Change-Id: Ibfe9212f3d422d305f858fbef023ee985c1183d6 Reviewed-on: https://cl.tvl.fyi/c/depot/+/11650 Autosubmit: Profpatsch Reviewed-by: Profpatsch Tested-by: BuildkiteCI --- users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs') diff --git a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs index 26213c5fea32..d8e7889d3e98 100644 --- a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs +++ b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs @@ -306,7 +306,7 @@ htmlUi = do |] artistPage :: (HasField "dbId" dat Text, Applicative m) => dat -> m Html -artistPage dat = +artistPage dat = do pure [hsx| Artist ID: {dat.dbId} @@ -438,7 +438,7 @@ getBestTorrentsTable :: ) => Transaction m Html getBestTorrentsTable = do - bestStale :: [TorrentData ()] <- getBestTorrents + bestStale :: [TorrentData ()] <- getBestTorrents (label @"onlyDownloaded" False) actual <- getAndUpdateTransmissionTorrentsStatus ( bestStale -- cgit 1.4.1