naskya/vervis
1
0
Fork 0
mirror of https://code.naskya.net/repos/ndqEd synced 2025-03-20 15:14:54 +09:00
Code Activity

In httpGetAP, if we got an unexpected Content-Type, specify it in error message

Browse source
This commit is contained in:
fr33domlover 2019-01-21 22:24:09 +00:00
parent 2a68bb560b
commit 04e26a911d
2 changed files with 3 additions and 3 deletions
src/Vervis/Handler
Inbox.hs

2
src/Vervis/Handler/Inbox.hs
View file

@ -273,7 +273,7 @@ postOutboxR = do
case eres of
Left (APGetErrorHTTP e) -> setMessage $ toHtml $ "Failed to GET the recipient actor: " <> T.pack (displayException e)
Left (APGetErrorJSON e) -> setMessage $ toHtml $ "Failed to parse recipient actor JSON: " <> T.pack (displayException e)
Left (APGetErrorContentType e) -> setMessage $ toHtml $ "Got unexpected Content-Type for actor JSON: " <> T.pack e
Left (APGetErrorContentType e) -> setMessage $ toHtml $ "Got unexpected Content-Type for actor JSON: " <> e
Right response -> do
let actor = getResponseBody response
if actorId actor /= to