From 054b6ff49f8e29324bdc9c12e9f86e9b0861732c Mon Sep 17 00:00:00 2001 From: me Date: Tue, 17 Dec 2024 10:46:59 +0200 Subject: [PATCH] outbox should be ordered apparently --- src/Fedi/Activity.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/Fedi/Activity.hs b/src/Fedi/Activity.hs index e36f633..e3cee87 100644 --- a/src/Fedi/Activity.hs +++ b/src/Fedi/Activity.hs @@ -43,7 +43,7 @@ type Followers = [Actor] type Following = [Actor] type Inbox = Collection Ordered Activity -type Outbox = Collection Unordered Activity +type Outbox = Collection Ordered Activity type OutboxPage = OrderedCollectionPage Activity data Ordered @@ -88,8 +88,8 @@ instance A.ToJSON Activity where create@Create{} -> A.object [ "@context" A..= - [ "https://www.w3.org/ns/activitystreams" :: String - ] + ( "https://www.w3.org/ns/activitystreams" :: String + ) , "type" A..= ("Create" :: String) , "id" A..= create.id , "actor" A..= create.actor @@ -100,8 +100,8 @@ instance A.ToJSON a => A.ToJSON (Collection Ordered a) where toJSON collection = A.object [ "@context" A..= - [ "https://www.w3.org/ns/activitystreams" :: String - ] + ( "https://www.w3.org/ns/activitystreams" :: String + ) , "id" A..= collection.id , "type" A..= ("OrderedCollection" :: String) , "summary" A..= collection.summary @@ -115,8 +115,8 @@ instance A.ToJSON a => A.ToJSON (Collection Unordered a) where toJSON collection = A.object [ "@context" A..= - [ "https://www.w3.org/ns/activitystreams" :: String - ] + ( "https://www.w3.org/ns/activitystreams" :: String + ) , "id" A..= collection.id , "type" A..= ("Collection" :: String) , "summary" A..= collection.summary