maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(users/Profpatsch/whatcd-resolver): add format to table

Browse source 
Change-Id: I6ca18ad9f73a8e75e4bfb77156d19604ab27b284
Reviewed-on: https://cl.tvl.fyi/c/depot/+/12331
Tested-by: BuildkiteCI
Reviewed-by: Profpatsch <mail@profpatsch.de>
This commit is contained in:
Profpatsch 2024-08-24 14:15:43 +02:00
parent 95640e7be4
commit 861b7caa06
2 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

17
users/Profpatsch/whatcd-resolver/src/Redacted.hs
View file

@ -365,7 +365,8 @@ data TorrentData transmissionInfo = TorrentData
seedingWeight :: Int,
artists :: [T2 "artistId" Int "artistName" Text],
torrentGroupJson :: TorrentGroupJson,
torrentStatus :: TorrentStatus transmissionInfo
torrentStatus :: TorrentStatus transmissionInfo,
torrentFormat :: Text
}
data TorrentGroupJson = TorrentGroupJson
@ -427,7 +428,8 @@ getBestTorrents opts = do
tg.full_json_result->>'groupName' AS group_name,
tg.full_json_result->>'groupYear' AS group_year,
t.torrent_file IS NOT NULL AS has_torrent_file,
t.transmission_torrent_hash
t.transmission_torrent_hash,
t.full_json_result->>'encoding' AS torrent_format
FROM filtered_torrents f
JOIN redacted.torrents t ON t.id = f.id
JOIN redacted.torrent_groups tg ON tg.id = t.torrent_group
@ -456,8 +458,8 @@ getBestTorrents opts = do
groupYear <- Dec.textParse Field.decimalNatural
pure $ TorrentGroupJson {..}
hasTorrentFile <- Dec.fromField @Bool
transmissionTorrentHash <-
Dec.fromField @(Maybe Text)
transmissionTorrentHash <- Dec.fromField @(Maybe Text)
torrentFormat <- Dec.text
pure $
TorrentData
{ torrentStatus =
@ -467,6 +469,13 @@ getBestTorrents opts = do
| Just hash <- transmissionTorrentHash ->
InTransmission $
T2 (label @"torrentHash" hash) (label @"transmissionInfo" ()),
torrentFormat = case torrentFormat of
"Lossless" -> "flac"
"V0 (VBR)" -> "V0"
"V2 (VBR)" -> "V2"
"320" -> "320"
"256" -> "256"
o -> o,
..
}
)