Преглед на файлове

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 преди 9 години
родител
ревизия
b957fac55a
променени са 1 файла, в които са добавени 2 реда и са изтрити 3 реда
  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
 --   @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 "published" (toJSON published)
-  $ HM.insert "provider"  (toJSON provider)
   $ HM.empty
 
 -- | Collection