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
11 years ago
| 225 | 225 | |
| 226 | 226 | -- | Create an @Activity@ with an @actor@, @published@, and |
| 227 | 227 | -- @provider@ property. |
| 228 | makeActivity :: Object -> DateTime -> Object -> Activity | |
| 229 | makeActivity actor published provider = Activity | |
| 228 | makeActivity :: Object -> DateTime -> Activity | |
| 229 | makeActivity actor published = Activity | |
| 230 | 230 | $ HM.insert "actor" (toJSON actor) |
| 231 | 231 | $ HM.insert "published" (toJSON published) |
| 232 | $ HM.insert "provider" (toJSON provider) | |
| 233 | 232 | $ HM.empty |
| 234 | 233 | |
| 235 | 234 | -- | Collection |