瀏覽代碼

Adds "object" field for Activity

Jesse Hallett 9 年之前
父節點
當前提交
0990468d78
共有 1 個文件被更改,包括 4 次插入0 次删除
  1. 4 0
      Codec/ActivityStream/Dynamic.hs

+ 4 - 0
Codec/ActivityStream/Dynamic.hs

@@ -47,6 +47,7 @@ module Codec.ActivityStream.Dynamic
        , acGenerator
        , acIcon
        , acId
+       , acObject
        , acPublished
        , acProvider
        , acTarget
@@ -198,6 +199,9 @@ acIcon = makeAesonLensMb "icon" acRest
 acId :: Lens' Activity (Maybe Text)
 acId = makeAesonLensMb "id" acRest
 
+acObject :: Lens' Activity (Maybe Object)
+acObject = makeAesonLensMb "object" acRest
+
 acPublished :: Lens' Activity DateTime
 acPublished = makeAesonLens "published" acRest