diff options
| -rw-r--r-- | users/Profpatsch/whatcd-resolver/src/Redacted.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/users/Profpatsch/whatcd-resolver/src/Redacted.hs b/users/Profpatsch/whatcd-resolver/src/Redacted.hs index 7bf9e8c2ce27..3cf5479996d7 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] |