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

C2S, S2S: Re-enable createNoteC and personCreateNoteF

Browse source
This commit is contained in:
fr33domlover 2022-10-16 11:26:24 +00:00
parent 8424c76de7
commit 71bceec18b
25 changed files with 656 additions and 579 deletions

7
src/Web/ActivityPub.hs
View file

@ -147,7 +147,6 @@ import Network.HTTP.Client.Conduit.ActivityPub (httpAPEither)
import Network.HTTP.Simple (JSONException)
import Network.HTTP.Types.Header (HeaderName, hContentType)
import Text.Email.Parser (EmailAddress)
import Text.HTML.SanitizeXSS
import Yesod.Core.Content (ContentType)
import Yesod.Core.Handler (ProvidedRep, provideRepType)
@ -710,8 +709,8 @@ data Note u = Note
, noteReplyTo :: Maybe (ObjURI u)
, noteContext :: Maybe (ObjURI u)
, notePublished :: Maybe UTCTime
, noteSource :: Text
, noteContent :: Text
, noteSource :: PandocMarkdown
, noteContent :: HTML
}
withAuthorityT a m = do
@ -798,7 +797,7 @@ instance ActivityPub Note where
<*> o .:? "context"
<*> o .:? "published"
<*> source .: "content"
<*> (sanitizeBalance <$> o .: "content")
<*> o .: "content"
toSeries authority (Note mid attrib aud mreply mcontext mpublished src content)
= "type" .= ("Note" :: Text)
<> "id" .=? (ObjURI authority <$> mid)