diff options
| author | Marc Coquand <marc@mccd.space> | 2023-12-20 20:46:00 -0600 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2023-12-25 18:22:59 -0600 |
| commit | 262f161f42c4e59beec41c6f440336c38385426a (patch) | |
| tree | 6491c9b661a0b5a14c9a30ecf25e036f8762239d /lib/activitypub/constants.ml | |
| parent | cc783c157f31e7e713c8b83be67449b1859dac27 (diff) | |
| download | fixgen-262f161f42c4e59beec41c6f440336c38385426a.tar.gz fixgen-262f161f42c4e59beec41c6f440336c38385426a.tar.bz2 fixgen-262f161f42c4e59beec41c6f440336c38385426a.zip | |
Initial commit
Diffstat (limited to 'lib/activitypub/constants.ml')
| -rw-r--r-- | lib/activitypub/constants.ml | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/lib/activitypub/constants.ml b/lib/activitypub/constants.ml deleted file mode 100644 index 0488335..0000000 --- a/lib/activitypub/constants.ml +++ /dev/null @@ -1,49 +0,0 @@ -open Containers - -module ContentType = struct - let ld_json_activity_streams = "application/ld+json; profile=\"https://www.w3.org/ns/activitystreams\"" - - let xrd_xml = "application/xrd+xml" - let ld_json = "application/ld+json" - let activity_json = "application/activity+json" - let plain_json = "application/json" - let html = "text/html" - let any = "*/*" - - let content_types = [ - ld_json_activity_streams, `JSON; - ld_json, `JSON; - activity_json, `JSON; - plain_json, `JSON; - html, `HTML; - any, `HTML; - ] - - let of_string content_type = - List.find_opt - (fun (str, _) -> - String.prefix ~pre:str content_type) content_types - |> Option.map snd - - -end - -module Webfinger = struct - let json_rd = "application/jrd+json" - - let self_rel = "self" - let ostatus_rel = "http://ostatus.org/schema/1.0/subscribe" - let profile_page = "http://webfinger.net/rel/profile-page" -end - -module ActivityStreams = struct - - let public = "https://www.w3.org/ns/activitystreams#Public" - - let context : string * Yojson.Safe.t = - "@context", `List [ - `String "https://www.w3.org/ns/activitystreams"; - `String "https://w3id.org/security/v1" - ] - -end |