Quellcode durchsuchen

Removes "provider" argument from `makeActivity`

According to the spec, the only required fields are "actor" and "published".
And I don't really have anything to put in the provider field yet.
Jesse Hallett vor 9 Jahren
Ursprung
Commit
b957fac55a
1 geänderte Dateien mit 2 neuen und 3 gelöschten Zeilen
  1. 2 3
      Codec/ActivityStream/Dynamic.hs

+ 2 - 3
Codec/ActivityStream/Dynamic.hs

@@ -225,11 +225,10 @@ acVerb = makeAesonLensMb "verb" acRest
 
 
 -- | Create an @Activity@ with an @actor@, @published@, and
 -- | Create an @Activity@ with an @actor@, @published@, and
 --   @provider@ property.
 --   @provider@ property.
-makeActivity :: Object -> DateTime -> Object -> Activity
-makeActivity actor published provider = Activity
+makeActivity :: Object -> DateTime -> Activity
+makeActivity actor published = Activity
   $ HM.insert "actor"     (toJSON actor)
   $ HM.insert "actor"     (toJSON actor)
   $ HM.insert "published" (toJSON published)
   $ HM.insert "published" (toJSON published)
-  $ HM.insert "provider"  (toJSON provider)
   $ HM.empty
   $ HM.empty
 
 
 -- | Collection
 -- | Collection