diff options
| author | Profpatsch <mail@profpatsch.de> | 2024-05-16T20·59+0200 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2024-06-03T14·55+0000 |
| commit | 94ea6fd69ec0b2cefaaf2b46c423319643043695 (patch) | |
| tree | ed472aa1e627ddeef246b32370c4f52a3f5b8263 /users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs | |
| parent | 54ea3eeacb39e127f4db596c7161afc426c0bd20 (diff) | |
fix(users/Profpatsch/whatcd-resolver): db_id -> redacted_id r/8206
We’re using the redacted id, not the database id. This is more stable. Change-Id: I4d24e5bc6cc469d811cb1402a83157359576ef77 Reviewed-on: https://cl.tvl.fyi/c/depot/+/11683 Autosubmit: Profpatsch <mail@profpatsch.de> Reviewed-by: Profpatsch <mail@profpatsch.de> Tested-by: BuildkiteCI
Diffstat (limited to 'users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs')
| -rw-r--r-- | users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs index 0d5867e0c0d8..2960986079a5 100644 --- a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs +++ b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs @@ -213,8 +213,8 @@ htmlUi = do let HandlerResponses {htmlWithQueryArgs} = respond htmlWithQueryArgs - ( label @"dbId" - <$> (singleQueryArgument "db_id" (Field.utf8 >>> Field.decimalNatural)) + ( label @"redactedId" + <$> (singleQueryArgument "redacted_id" (Field.utf8 >>> Field.decimalNatural)) ) $ \qry _span -> do artistPage qry @@ -315,7 +315,7 @@ htmlPageChrome body = |] artistPage :: - ( HasField "dbId" dat Natural, + ( HasField "redactedId" dat Natural, MonadPostgres m, MonadOtel m, MonadLogger m, @@ -325,11 +325,11 @@ artistPage :: dat -> m Html artistPage dat = runTransaction $ do - torrents <- getBestTorrentsTable (Just $ label @"artistId" dat.dbId) + torrents <- getBestTorrentsTable (Just $ getLabel @"redactedId" dat) pure $ htmlPageChrome [hsx| - Artist ID: {dat.dbId} + Artist ID: {dat.redactedId} {torrents} |] @@ -473,7 +473,7 @@ snipsRedactedSearch dat = do ] runTransaction $ do t - getBestTorrentsTable (Nothing :: Maybe (Label "artistId" Natural)) + getBestTorrentsTable (Nothing :: Maybe (Label "redactedId" Natural)) data ArtistFilter = ArtistFilter { onlyArtist :: Maybe (Label "artistId" Text) @@ -486,7 +486,7 @@ getBestTorrentsTable :: MonadPostgres m, MonadOtel m ) => - Maybe (Label "artistId" Natural) -> + Maybe (Label "redactedId" Natural) -> Transaction m Html getBestTorrentsTable artistFilter = do bestStale :: [TorrentData ()] <- getBestTorrents GetBestTorrentsFilter {onlyArtist = artistFilter, onlyDownloaded = False} @@ -527,7 +527,7 @@ getBestTorrentsTable artistFilter = do b.artists <&> ( \a -> T2 - (label @"url" [fmt|/artist?db_id={a.artistId}|]) + (label @"url" [fmt|/artist?redacted_id={a.artistId}|]) (label @"content" $ Html.toHtml @Text a.artistName) ) & mkLinkList |