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