From 22c46c80093948aa2490220608f188d1691c8ad0 Mon Sep 17 00:00:00 2001 From: Profpatsch Date: Mon, 2 Dec 2024 17:19:52 +0100 Subject: [PATCH] fix(users/Profpatsch/whacd-resolver): fix redacted TLD they switched from .ch to .sh Change-Id: I889634ec257b7956b9d2b22a9ad6fc0c889f43c2 Reviewed-on: https://cl.tvl.fyi/c/depot/+/12853 Reviewed-by: Profpatsch Tested-by: BuildkiteCI --- users/Profpatsch/whatcd-resolver/src/Redacted.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/users/Profpatsch/whatcd-resolver/src/Redacted.hs b/users/Profpatsch/whatcd-resolver/src/Redacted.hs index 7bf9e8c2c..3cf547999 100644 --- a/users/Profpatsch/whatcd-resolver/src/Redacted.hs +++ b/users/Profpatsch/whatcd-resolver/src/Redacted.hs @@ -73,7 +73,7 @@ redactedGetTorrentFile dat = inSpan' "Redacted Get Torrent File" $ \span -> do httpTorrent span req mkRedactedTorrentLink :: Arg "torrentGroupId" Int -> Text -mkRedactedTorrentLink torrentId = [fmt|https://redacted.ch/torrents.php?id={torrentId.unArg}|] +mkRedactedTorrentLink torrentId = [fmt|https://redacted.sh/torrents.php?id={torrentId.unArg}|] exampleSearch :: (MonadThrow m, MonadLogger m, MonadPostgres m, MonadOtel m, MonadRedacted m) => m (Transaction m ()) exampleSearch = do @@ -495,7 +495,7 @@ mkRedactedApiRequest :: mkRedactedApiRequest dat = do authKey <- getRedactedApiKey pure $ - [fmt|https://redacted.ch/ajax.php|] + [fmt|https://redacted.sh/ajax.php|] & Http.setRequestMethod "GET" & Http.setQueryString (("action", Just dat.action) : dat.actionArgs) & Http.setRequestHeader "Authorization" [authKey]