diff options
| author | Profpatsch <mail@profpatsch.de> | 2024-05-16T22·05+0200 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2024-06-03T14·55+0000 |
| commit | 8bb27c98b0a191d4cae76bdc79f0d5167e9968ba (patch) | |
| tree | 46eaafc9a4b031ea7466832436df79f1d11b2918 /users/Profpatsch/whatcd-resolver/src/Redacted.hs | |
| parent | 94ea6fd69ec0b2cefaaf2b46c423319643043695 (diff) | |
feat(users/Profpatsch/whatcd-resolver): add redacted torrent link r/8207
Change-Id: I9e2cd1935a67260cc7e4b72b247c01495e130949 Reviewed-on: https://cl.tvl.fyi/c/depot/+/11744 Autosubmit: Profpatsch <mail@profpatsch.de> Tested-by: BuildkiteCI Reviewed-by: Profpatsch <mail@profpatsch.de>
Diffstat (limited to 'users/Profpatsch/whatcd-resolver/src/Redacted.hs')
| -rw-r--r-- | users/Profpatsch/whatcd-resolver/src/Redacted.hs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/users/Profpatsch/whatcd-resolver/src/Redacted.hs b/users/Profpatsch/whatcd-resolver/src/Redacted.hs index e5dc29aef98b..b2cef8bc2132 100644 --- a/users/Profpatsch/whatcd-resolver/src/Redacted.hs +++ b/users/Profpatsch/whatcd-resolver/src/Redacted.hs @@ -3,6 +3,7 @@ module Redacted where import AppT +import Arg import Control.Monad.Logger.CallStack import Control.Monad.Reader import Data.Aeson qualified as Json @@ -67,12 +68,8 @@ redactedGetTorrentFile dat = inSpan' "Redacted Get Torrent File" $ \span -> do ) httpTorrent span req --- fix --- ( \io -> do --- logInfo "delay" --- liftIO $ threadDelay 10_000_000 --- io --- ) +mkRedactedTorrentLink :: Arg "torrentId" Int -> Text +mkRedactedTorrentLink torrentId = [fmt|https://redacted.ch/torrents.php?id={torrentId.unArg}|] exampleSearch :: (MonadThrow m, MonadLogger m, MonadPostgres m, MonadOtel m) => m (Transaction m ()) exampleSearch = do |