Browse Source

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 years ago
parent
commit
b957fac55a
1 changed files with 2 additions and 3 deletions
  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