mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(users/Profpatsch/whatcd-resolver): comment out jsonld

Browse source 
Change-Id: I301b4175fe3741f688daab91537e7a859b353686
Reviewed-on: https://cl.tvl.fyi/c/depot/+/11642
Reviewed-by: Profpatsch <mail@profpatsch.de>
Autosubmit: Profpatsch <mail@profpatsch.de>
Tested-by: BuildkiteCI
This commit is contained in:
Profpatsch 2024-05-11 20:14:24 +02:00 committed by clbot
parent 3068cfd866
commit dcd621820a
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs
View file

@ -36,7 +36,6 @@ import Network.HTTP.Types
import Network.HTTP.Types qualified as Http import Network.HTTP.Types qualified as Http
import Network.URI (URI) import Network.URI (URI)
import Network.URI qualified import Network.URI qualified
import Network.URI qualified as URI
import Network.Wai (ResponseReceived) import Network.Wai (ResponseReceived)
import Network.Wai qualified as Wai import Network.Wai qualified as Wai
import Network.Wai.Handler.Warp qualified as Warp import Network.Wai.Handler.Warp qualified as Warp
@ -243,12 +242,12 @@ htmlUi = do
mainHtml :: Text -> Otel.Span -> AppT IO Html mainHtml :: Text -> Otel.Span -> AppT IO Html
mainHtml uniqueRunId _span = runTransaction $ do mainHtml uniqueRunId _span = runTransaction $ do
jsonld <- -- jsonld <-
httpGetJsonLd -- httpGetJsonLd
( URI.parseURI "https://musicbrainz.org/work/92000fd4-d304-406d-aeb4-6bdbeed318ec" & annotate "not an URI" & unwrapError, -- ( URI.parseURI "https://musicbrainz.org/work/92000fd4-d304-406d-aeb4-6bdbeed318ec" & annotate "not an URI" & unwrapError,
"https://musicbrainz.org/work/92000fd4-d304-406d-aeb4-6bdbeed318ec" -- "https://musicbrainz.org/work/92000fd4-d304-406d-aeb4-6bdbeed318ec"
) -- )
<&> renderJsonld -- <&> renderJsonld
bestTorrentsTable <- getBestTorrentsTable bestTorrentsTable <- getBestTorrentsTable
-- transmissionTorrentsTable <- lift @Transaction getTransmissionTorrentsTable -- transmissionTorrentsTable <- lift @Transaction getTransmissionTorrentsTable
pure $ pure $
@ -270,7 +269,6 @@ htmlUi = do
</style> </style>
</head> </head>
<body> <body>
{jsonld}
<form <form
hx-post="/snips/redacted/search" hx-post="/snips/redacted/search"
hx-target="#redacted-search-results"> hx-target="#redacted-search-results">