gogol-blogger 0.4.0 → 0.5.0
raw patch · 37 files changed
+488/−307 lines, 37 filesdep ~gogol-corePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: gogol-core
API changes (from Hackage documentation)
Files
- README.md +1/−1
- gen/Network/Google/Blogger/Types.hs +2/−2
- gen/Network/Google/Blogger/Types/Product.hs +251/−167
- gen/Network/Google/Resource/Blogger/BlogUserInfos/Get.hs +7/−3
- gen/Network/Google/Resource/Blogger/Blogs/Get.hs +7/−7
- gen/Network/Google/Resource/Blogger/Blogs/GetByURL.hs +7/−6
- gen/Network/Google/Resource/Blogger/Blogs/ListByUser.hs +7/−3
- gen/Network/Google/Resource/Blogger/Comments/Approve.hs +7/−3
- gen/Network/Google/Resource/Blogger/Comments/Delete.hs +7/−3
- gen/Network/Google/Resource/Blogger/Comments/Get.hs +7/−3
- gen/Network/Google/Resource/Blogger/Comments/List.hs +7/−3
- gen/Network/Google/Resource/Blogger/Comments/ListByBlog.hs +7/−3
- gen/Network/Google/Resource/Blogger/Comments/MarkAsSpam.hs +7/−3
- gen/Network/Google/Resource/Blogger/Comments/RemoveContent.hs +7/−3
- gen/Network/Google/Resource/Blogger/PageViews/Get.hs +7/−6
- gen/Network/Google/Resource/Blogger/Pages/Delete.hs +7/−6
- gen/Network/Google/Resource/Blogger/Pages/Get.hs +7/−7
- gen/Network/Google/Resource/Blogger/Pages/Insert.hs +8/−7
- gen/Network/Google/Resource/Blogger/Pages/List.hs +7/−3
- gen/Network/Google/Resource/Blogger/Pages/Patch.hs +7/−3
- gen/Network/Google/Resource/Blogger/Pages/Publish.hs +7/−6
- gen/Network/Google/Resource/Blogger/Pages/Revert.hs +7/−6
- gen/Network/Google/Resource/Blogger/Pages/Update.hs +7/−3
- gen/Network/Google/Resource/Blogger/PostUserInfos/Get.hs +7/−3
- gen/Network/Google/Resource/Blogger/PostUserInfos/List.hs +7/−3
- gen/Network/Google/Resource/Blogger/Posts/Delete.hs +7/−6
- gen/Network/Google/Resource/Blogger/Posts/Get.hs +7/−3
- gen/Network/Google/Resource/Blogger/Posts/GetByPath.hs +7/−3
- gen/Network/Google/Resource/Blogger/Posts/Insert.hs +7/−3
- gen/Network/Google/Resource/Blogger/Posts/List.hs +7/−3
- gen/Network/Google/Resource/Blogger/Posts/Patch.hs +7/−3
- gen/Network/Google/Resource/Blogger/Posts/Publish.hs +7/−3
- gen/Network/Google/Resource/Blogger/Posts/Revert.hs +7/−6
- gen/Network/Google/Resource/Blogger/Posts/Search.hs +7/−3
- gen/Network/Google/Resource/Blogger/Posts/Update.hs +7/−3
- gen/Network/Google/Resource/Blogger/Users/Get.hs +7/−6
- gogol-blogger.cabal +2/−2
README.md view
@@ -8,7 +8,7 @@ ## Version -`0.3.0`+`0.5.0` ## Description
gen/Network/Google/Blogger/Types.hs view
@@ -387,8 +387,8 @@ -- | Manage your Blogger account bloggerScope :: Proxy '["https://www.googleapis.com/auth/blogger"]-bloggerScope = Proxy;+bloggerScope = Proxy -- | View your Blogger account bloggerReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/blogger.readonly"]-bloggerReadOnlyScope = Proxy;+bloggerReadOnlyScope = Proxy
gen/Network/Google/Blogger/Types/Product.hs view
@@ -22,12 +22,15 @@ -- -- /See:/ 'postUserInfo' smart constructor.-data PostUserInfo = PostUserInfo'+data PostUserInfo =+ PostUserInfo' { _puiPostUserInfo :: !(Maybe PostPerUserInfo) , _puiPost :: !(Maybe Post') , _puiKind :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostUserInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -40,12 +43,13 @@ postUserInfo :: PostUserInfo postUserInfo =- PostUserInfo'+ PostUserInfo' { _puiPostUserInfo = Nothing , _puiPost = Nothing , _puiKind = "blogger#postUserInfo" } + -- | Information about a User for the Post. puiPostUserInfo :: Lens' PostUserInfo (Maybe PostPerUserInfo) puiPostUserInfo@@ -78,10 +82,13 @@ -- | The Post author\'s avatar. -- -- /See:/ 'postAuthorImage' smart constructor.-newtype PostAuthorImage = PostAuthorImage'+newtype PostAuthorImage =+ PostAuthorImage' { _paiURL :: Maybe Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostAuthorImage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -89,11 +96,9 @@ -- * 'paiURL' postAuthorImage :: PostAuthorImage-postAuthorImage =- PostAuthorImage'- { _paiURL = Nothing- }+postAuthorImage = PostAuthorImage' {_paiURL = Nothing} + -- | The Post author\'s avatar URL. paiURL :: Lens' PostAuthorImage (Maybe Text) paiURL = lens _paiURL (\ s a -> s{_paiURL = a})@@ -109,13 +114,16 @@ -- -- /See:/ 'postList' smart constructor.-data PostList = PostList'+data PostList =+ PostList' { _plEtag :: !(Maybe Text) , _plNextPageToken :: !(Maybe Text) , _plKind :: !Text , _plItems :: !(Maybe [Post'])- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,13 +138,14 @@ postList :: PostList postList =- PostList'+ PostList' { _plEtag = Nothing , _plNextPageToken = Nothing , _plKind = "blogger#postList" , _plItems = Nothing } + -- | Etag of the response. plEtag :: Lens' PostList (Maybe Text) plEtag = lens _plEtag (\ s a -> s{_plEtag = a})@@ -177,10 +186,13 @@ -- | Data about the comment this is in reply to. -- -- /See:/ 'commentInReplyTo' smart constructor.-newtype CommentInReplyTo = CommentInReplyTo'+newtype CommentInReplyTo =+ CommentInReplyTo' { _cirtId :: Maybe Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CommentInReplyTo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -188,11 +200,9 @@ -- * 'cirtId' commentInReplyTo :: CommentInReplyTo-commentInReplyTo =- CommentInReplyTo'- { _cirtId = Nothing- }+commentInReplyTo = CommentInReplyTo' {_cirtId = Nothing} + -- | The identified of the parent of this comment. cirtId :: Lens' CommentInReplyTo (Maybe Text) cirtId = lens _cirtId (\ s a -> s{_cirtId = a})@@ -209,10 +219,13 @@ -- | Data about the blog containing this comment. -- -- /See:/ 'commentBlog' smart constructor.-newtype CommentBlog = CommentBlog'+newtype CommentBlog =+ CommentBlog' { _cbId :: Maybe Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CommentBlog' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -220,11 +233,9 @@ -- * 'cbId' commentBlog :: CommentBlog-commentBlog =- CommentBlog'- { _cbId = Nothing- }+commentBlog = CommentBlog' {_cbId = Nothing} + -- | The identifier of the blog containing this comment. cbId :: Lens' CommentBlog (Maybe Text) cbId = lens _cbId (\ s a -> s{_cbId = a})@@ -240,12 +251,15 @@ -- -- /See:/ 'pageviews' smart constructor.-data Pageviews = Pageviews'+data Pageviews =+ Pageviews' { _pKind :: !Text , _pCounts :: !(Maybe [PageviewsCountsItem]) , _pBlogId :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Pageviews' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -258,12 +272,10 @@ pageviews :: Pageviews pageviews =- Pageviews'- { _pKind = "blogger#page_views"- , _pCounts = Nothing- , _pBlogId = Nothing- }+ Pageviews'+ {_pKind = "blogger#page_views", _pCounts = Nothing, _pBlogId = Nothing} + -- | The kind of this entry. Always blogger#page_views pKind :: Lens' Pageviews Text pKind = lens _pKind (\ s a -> s{_pKind = a})@@ -297,13 +309,16 @@ -- | The location for geotagged posts. -- -- /See:/ 'postLocation' smart constructor.-data PostLocation = PostLocation'+data PostLocation =+ PostLocation' { _plSpan :: !(Maybe Text) , _plLat :: !(Maybe (Textual Double)) , _plName :: !(Maybe Text) , _plLng :: !(Maybe (Textual Double))- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostLocation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -318,13 +333,10 @@ postLocation :: PostLocation postLocation =- PostLocation'- { _plSpan = Nothing- , _plLat = Nothing- , _plName = Nothing- , _plLng = Nothing- }+ PostLocation'+ {_plSpan = Nothing, _plLat = Nothing, _plName = Nothing, _plLng = Nothing} + -- | Location\'s viewport span. Can be used when rendering a map preview. plSpan :: Lens' PostLocation (Maybe Text) plSpan = lens _plSpan (\ s a -> s{_plSpan = a})@@ -363,12 +375,15 @@ -- | The container of posts in this blog. -- -- /See:/ 'blogPosts' smart constructor.-data BlogPosts = BlogPosts'+data BlogPosts =+ BlogPosts' { _bpTotalItems :: !(Maybe (Textual Int32)) , _bpItems :: !(Maybe [Post']) , _bpSelfLink :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BlogPosts' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -381,12 +396,10 @@ blogPosts :: BlogPosts blogPosts =- BlogPosts'- { _bpTotalItems = Nothing- , _bpItems = Nothing- , _bpSelfLink = Nothing- }+ BlogPosts'+ {_bpTotalItems = Nothing, _bpItems = Nothing, _bpSelfLink = Nothing} + -- | The count of posts in this blog. bpTotalItems :: Lens' BlogPosts (Maybe Int32) bpTotalItems@@ -422,7 +435,8 @@ -- -- /See:/ 'post' smart constructor.-data Post' = Post''+data Post' =+ Post'' { _posImages :: !(Maybe [PostImagesItem]) , _posStatus :: !(Maybe Text) , _posEtag :: !(Maybe Text)@@ -442,8 +456,10 @@ , _posUpdated :: !(Maybe DateTime') , _posTitleLink :: !(Maybe Text) , _posTitle :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Post' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -488,7 +504,7 @@ post :: Post' post =- Post''+ Post'' { _posImages = Nothing , _posStatus = Nothing , _posEtag = Nothing@@ -510,6 +526,7 @@ , _posTitle = Nothing } + -- | Display image for the Post. posImages :: Lens' Post' [PostImagesItem] posImages@@ -655,7 +672,8 @@ -- -- /See:/ 'page' smart constructor.-data Page = Page'+data Page =+ Page' { _pagStatus :: !(Maybe Text) , _pagEtag :: !(Maybe Text) , _pagKind :: !Text@@ -668,8 +686,10 @@ , _pagId :: !(Maybe Text) , _pagUpdated :: !(Maybe DateTime') , _pagTitle :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Page' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -700,7 +720,7 @@ page :: Page page =- Page'+ Page' { _pagStatus = Nothing , _pagEtag = Nothing , _pagKind = "blogger#page"@@ -715,6 +735,7 @@ , _pagTitle = Nothing } + -- | The status of the page for admin resources (either LIVE or DRAFT). pagStatus :: Lens' Page (Maybe Text) pagStatus@@ -806,12 +827,15 @@ -- | The locale this Blog is set to. -- -- /See:/ 'blogLocale' smart constructor.-data BlogLocale = BlogLocale'+data BlogLocale =+ BlogLocale' { _blVariant :: !(Maybe Text) , _blCountry :: !(Maybe Text) , _blLanguage :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BlogLocale' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -824,12 +848,10 @@ blogLocale :: BlogLocale blogLocale =- BlogLocale'- { _blVariant = Nothing- , _blCountry = Nothing- , _blLanguage = Nothing- }+ BlogLocale'+ {_blVariant = Nothing, _blCountry = Nothing, _blLanguage = Nothing} + -- | The language variant this blog is authored in. blVariant :: Lens' BlogLocale (Maybe Text) blVariant@@ -864,13 +886,16 @@ -- | The author of this Page. -- -- /See:/ 'pageAuthor' smart constructor.-data PageAuthor = PageAuthor'+data PageAuthor =+ PageAuthor' { _paImage :: !(Maybe PageAuthorImage) , _paURL :: !(Maybe Text) , _paDisplayName :: !(Maybe Text) , _paId :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PageAuthor' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -885,13 +910,14 @@ pageAuthor :: PageAuthor pageAuthor =- PageAuthor'+ PageAuthor' { _paImage = Nothing , _paURL = Nothing , _paDisplayName = Nothing , _paId = Nothing } + -- | The page author\'s avatar. paImage :: Lens' PageAuthor (Maybe PageAuthorImage) paImage = lens _paImage (\ s a -> s{_paImage = a})@@ -929,7 +955,8 @@ -- -- /See:/ 'blog' smart constructor.-data Blog = Blog'+data Blog =+ Blog' { _bStatus :: !(Maybe Text) , _bKind :: !Text , _bPages :: !(Maybe BlogPages)@@ -943,8 +970,10 @@ , _bUpdated :: !(Maybe DateTime') , _bPosts :: !(Maybe BlogPosts) , _bDescription :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Blog' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -977,7 +1006,7 @@ blog :: Blog blog =- Blog'+ Blog' { _bStatus = Nothing , _bKind = "blogger#blog" , _bPages = Nothing@@ -993,6 +1022,7 @@ , _bDescription = Nothing } + -- | The status of the blog. bStatus :: Lens' Blog (Maybe Text) bStatus = lens _bStatus (\ s a -> s{_bStatus = a})@@ -1090,11 +1120,14 @@ -- | The container of pages in this blog. -- -- /See:/ 'blogPages' smart constructor.-data BlogPages = BlogPages'+data BlogPages =+ BlogPages' { _bpsTotalItems :: !(Maybe (Textual Int32)) , _bpsSelfLink :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BlogPages' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1104,12 +1137,9 @@ -- * 'bpsSelfLink' blogPages :: BlogPages-blogPages =- BlogPages'- { _bpsTotalItems = Nothing- , _bpsSelfLink = Nothing- }+blogPages = BlogPages' {_bpsTotalItems = Nothing, _bpsSelfLink = Nothing} + -- | The count of pages in this blog. bpsTotalItems :: Lens' BlogPages (Maybe Int32) bpsTotalItems@@ -1139,10 +1169,13 @@ -- | Data about the blog containing this Post. -- -- /See:/ 'postBlog' smart constructor.-newtype PostBlog = PostBlog'+newtype PostBlog =+ PostBlog' { _pbId :: Maybe Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostBlog' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1150,11 +1183,9 @@ -- * 'pbId' postBlog :: PostBlog-postBlog =- PostBlog'- { _pbId = Nothing- }+postBlog = PostBlog' {_pbId = Nothing} + -- | The identifier of the Blog that contains this Post. pbId :: Lens' PostBlog (Maybe Text) pbId = lens _pbId (\ s a -> s{_pbId = a})@@ -1170,13 +1201,16 @@ -- -- /See:/ 'pageList' smart constructor.-data PageList = PageList'+data PageList =+ PageList' { _pllEtag :: !(Maybe Text) , _pllNextPageToken :: !(Maybe Text) , _pllKind :: !Text , _pllItems :: !(Maybe [Page])- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PageList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1191,13 +1225,14 @@ pageList :: PageList pageList =- PageList'+ PageList' { _pllEtag = Nothing , _pllNextPageToken = Nothing , _pllKind = "blogger#pageList" , _pllItems = Nothing } + -- | Etag of the response. pllEtag :: Lens' PageList (Maybe Text) pllEtag = lens _pllEtag (\ s a -> s{_pllEtag = a})@@ -1240,12 +1275,15 @@ -- | This user\'s locale -- -- /See:/ 'userLocale' smart constructor.-data UserLocale = UserLocale'+data UserLocale =+ UserLocale' { _ulVariant :: !(Maybe Text) , _ulCountry :: !(Maybe Text) , _ulLanguage :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UserLocale' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1258,12 +1296,10 @@ userLocale :: UserLocale userLocale =- UserLocale'- { _ulVariant = Nothing- , _ulCountry = Nothing- , _ulLanguage = Nothing- }+ UserLocale'+ {_ulVariant = Nothing, _ulCountry = Nothing, _ulLanguage = Nothing} + -- | The user\'s language variant setting. ulVariant :: Lens' UserLocale (Maybe Text) ulVariant@@ -1298,10 +1334,13 @@ -- | The comment creator\'s avatar. -- -- /See:/ 'commentAuthorImage' smart constructor.-newtype CommentAuthorImage = CommentAuthorImage'+newtype CommentAuthorImage =+ CommentAuthorImage' { _caiURL :: Maybe Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CommentAuthorImage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1309,11 +1348,9 @@ -- * 'caiURL' commentAuthorImage :: CommentAuthorImage-commentAuthorImage =- CommentAuthorImage'- { _caiURL = Nothing- }+commentAuthorImage = CommentAuthorImage' {_caiURL = Nothing} + -- | The comment creator\'s avatar URL. caiURL :: Lens' CommentAuthorImage (Maybe Text) caiURL = lens _caiURL (\ s a -> s{_caiURL = a})@@ -1329,7 +1366,8 @@ -- -- /See:/ 'user' smart constructor.-data User = User'+data User =+ User' { _uBlogs :: !(Maybe UserBlogs) , _uKind :: !Text , _uCreated :: !(Maybe DateTime')@@ -1339,8 +1377,10 @@ , _uAbout :: !(Maybe Text) , _uDisplayName :: !(Maybe Text) , _uId :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'User' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1365,7 +1405,7 @@ user :: User user =- User'+ User' { _uBlogs = Nothing , _uKind = "blogger#user" , _uCreated = Nothing@@ -1377,6 +1417,7 @@ , _uId = Nothing } + -- | The container of blogs for this user. uBlogs :: Lens' User (Maybe UserBlogs) uBlogs = lens _uBlogs (\ s a -> s{_uBlogs = a})@@ -1446,10 +1487,13 @@ -- | The container of blogs for this user. -- -- /See:/ 'userBlogs' smart constructor.-newtype UserBlogs = UserBlogs'+newtype UserBlogs =+ UserBlogs' { _ubSelfLink :: Maybe Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UserBlogs' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1457,11 +1501,9 @@ -- * 'ubSelfLink' userBlogs :: UserBlogs-userBlogs =- UserBlogs'- { _ubSelfLink = Nothing- }+userBlogs = UserBlogs' {_ubSelfLink = Nothing} + -- | The URL of the Blogs for this user. ubSelfLink :: Lens' UserBlogs (Maybe Text) ubSelfLink@@ -1480,12 +1522,15 @@ -- | The container of comments on this Post. -- -- /See:/ 'postReplies' smart constructor.-data PostReplies = PostReplies'+data PostReplies =+ PostReplies' { _prTotalItems :: !(Maybe (Textual Int64)) , _prItems :: !(Maybe [Comment]) , _prSelfLink :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostReplies' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1498,12 +1543,10 @@ postReplies :: PostReplies postReplies =- PostReplies'- { _prTotalItems = Nothing- , _prItems = Nothing- , _prSelfLink = Nothing- }+ PostReplies'+ {_prTotalItems = Nothing, _prItems = Nothing, _prSelfLink = Nothing} + -- | The count of comments on this post. prTotalItems :: Lens' PostReplies (Maybe Int64) prTotalItems@@ -1539,12 +1582,15 @@ -- -- /See:/ 'blogList' smart constructor.-data BlogList = BlogList'+data BlogList =+ BlogList' { _blKind :: !Text , _blItems :: !(Maybe [Blog]) , _blBlogUserInfos :: !(Maybe [BlogUserInfo])- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BlogList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1557,12 +1603,13 @@ blogList :: BlogList blogList =- BlogList'+ BlogList' { _blKind = "blogger#blogList" , _blItems = Nothing , _blBlogUserInfos = Nothing } + -- | The kind of this entity. Always blogger#blogList blKind :: Lens' BlogList Text blKind = lens _blKind (\ s a -> s{_blKind = a})@@ -1600,10 +1647,13 @@ -- | Data about the blog containing this Page. -- -- /See:/ 'pageBlog' smart constructor.-newtype PageBlog = PageBlog'+newtype PageBlog =+ PageBlog' { _pId :: Maybe Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PageBlog' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1611,11 +1661,9 @@ -- * 'pId' pageBlog :: PageBlog-pageBlog =- PageBlog'- { _pId = Nothing- }+pageBlog = PageBlog' {_pId = Nothing} + -- | The identifier of the blog containing this page. pId :: Lens' PageBlog (Maybe Text) pId = lens _pId (\ s a -> s{_pId = a})@@ -1632,13 +1680,16 @@ -- | The author of this Post. -- -- /See:/ 'postAuthor' smart constructor.-data PostAuthor = PostAuthor'+data PostAuthor =+ PostAuthor' { _paaImage :: !(Maybe PostAuthorImage) , _paaURL :: !(Maybe Text) , _paaDisplayName :: !(Maybe Text) , _paaId :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostAuthor' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1653,13 +1704,14 @@ postAuthor :: PostAuthor postAuthor =- PostAuthor'+ PostAuthor' { _paaImage = Nothing , _paaURL = Nothing , _paaDisplayName = Nothing , _paaId = Nothing } + -- | The Post author\'s avatar. paaImage :: Lens' PostAuthor (Maybe PostAuthorImage) paaImage = lens _paaImage (\ s a -> s{_paaImage = a})@@ -1697,14 +1749,17 @@ -- -- /See:/ 'postPerUserInfo' smart constructor.-data PostPerUserInfo = PostPerUserInfo'+data PostPerUserInfo =+ PostPerUserInfo' { _ppuiKind :: !Text , _ppuiBlogId :: !(Maybe Text) , _ppuiUserId :: !(Maybe Text) , _ppuiHasEditAccess :: !(Maybe Bool) , _ppuiPostId :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostPerUserInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1721,7 +1776,7 @@ postPerUserInfo :: PostPerUserInfo postPerUserInfo =- PostPerUserInfo'+ PostPerUserInfo' { _ppuiKind = "blogger#postPerUserInfo" , _ppuiBlogId = Nothing , _ppuiUserId = Nothing@@ -1729,6 +1784,7 @@ , _ppuiPostId = Nothing } + -- | The kind of this entity. Always blogger#postPerUserInfo ppuiKind :: Lens' PostPerUserInfo Text ppuiKind = lens _ppuiKind (\ s a -> s{_ppuiKind = a})@@ -1777,11 +1833,14 @@ -- -- /See:/ 'pageviewsCountsItem' smart constructor.-data PageviewsCountsItem = PageviewsCountsItem'+data PageviewsCountsItem =+ PageviewsCountsItem' { _pciTimeRange :: !(Maybe Text) , _pciCount :: !(Maybe (Textual Int64))- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PageviewsCountsItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1792,11 +1851,9 @@ pageviewsCountsItem :: PageviewsCountsItem pageviewsCountsItem =- PageviewsCountsItem'- { _pciTimeRange = Nothing- , _pciCount = Nothing- }+ PageviewsCountsItem' {_pciTimeRange = Nothing, _pciCount = Nothing} + -- | Time range the given count applies to pciTimeRange :: Lens' PageviewsCountsItem (Maybe Text) pciTimeRange@@ -1824,7 +1881,8 @@ -- -- /See:/ 'comment' smart constructor.-data Comment = Comment'+data Comment =+ Comment' { _cStatus :: !(Maybe Text) , _cPost :: !(Maybe CommentPost) , _cKind :: !Text@@ -1836,8 +1894,10 @@ , _cId :: !(Maybe Text) , _cUpdated :: !(Maybe DateTime') , _cInReplyTo :: !(Maybe CommentInReplyTo)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Comment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1866,7 +1926,7 @@ comment :: Comment comment =- Comment'+ Comment' { _cStatus = Nothing , _cPost = Nothing , _cKind = "blogger#comment"@@ -1880,6 +1940,7 @@ , _cInReplyTo = Nothing } + -- | The status of the comment (only populated for admin users) cStatus :: Lens' Comment (Maybe Text) cStatus = lens _cStatus (\ s a -> s{_cStatus = a})@@ -1962,10 +2023,13 @@ -- | Data about the post containing this comment. -- -- /See:/ 'commentPost' smart constructor.-newtype CommentPost = CommentPost'+newtype CommentPost =+ CommentPost' { _cpId :: Maybe Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CommentPost' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1973,11 +2037,9 @@ -- * 'cpId' commentPost :: CommentPost-commentPost =- CommentPost'- { _cpId = Nothing- }+commentPost = CommentPost' {_cpId = Nothing} + -- | The identifier of the post containing this comment. cpId :: Lens' CommentPost (Maybe Text) cpId = lens _cpId (\ s a -> s{_cpId = a})@@ -1993,15 +2055,18 @@ -- -- /See:/ 'blogPerUserInfo' smart constructor.-data BlogPerUserInfo = BlogPerUserInfo'+data BlogPerUserInfo =+ BlogPerUserInfo' { _bpuiPhotosAlbumKey :: !(Maybe Text) , _bpuiKind :: !Text , _bpuiBlogId :: !(Maybe Text) , _bpuiUserId :: !(Maybe Text) , _bpuiRole :: !(Maybe Text) , _bpuiHasAdminAccess :: !(Maybe Bool)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BlogPerUserInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2020,7 +2085,7 @@ blogPerUserInfo :: BlogPerUserInfo blogPerUserInfo =- BlogPerUserInfo'+ BlogPerUserInfo' { _bpuiPhotosAlbumKey = Nothing , _bpuiKind = "blogger#blogPerUserInfo" , _bpuiBlogId = Nothing@@ -2029,6 +2094,7 @@ , _bpuiHasAdminAccess = Nothing } + -- | The Photo Album Key for the user when adding photos to the blog bpuiPhotosAlbumKey :: Lens' BlogPerUserInfo (Maybe Text) bpuiPhotosAlbumKey@@ -2085,12 +2151,15 @@ -- -- /See:/ 'postUserInfosList' smart constructor.-data PostUserInfosList = PostUserInfosList'+data PostUserInfosList =+ PostUserInfosList' { _puilNextPageToken :: !(Maybe Text) , _puilKind :: !Text , _puilItems :: !(Maybe [PostUserInfo])- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostUserInfosList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2103,12 +2172,13 @@ postUserInfosList :: PostUserInfosList postUserInfosList =- PostUserInfosList'+ PostUserInfosList' { _puilNextPageToken = Nothing , _puilKind = "blogger#postUserInfosList" , _puilItems = Nothing } + -- | Pagination token to fetch the next page, if one exists. puilNextPageToken :: Lens' PostUserInfosList (Maybe Text) puilNextPageToken@@ -2146,13 +2216,16 @@ -- | The author of this Comment. -- -- /See:/ 'commentAuthor' smart constructor.-data CommentAuthor = CommentAuthor'+data CommentAuthor =+ CommentAuthor' { _caImage :: !(Maybe CommentAuthorImage) , _caURL :: !(Maybe Text) , _caDisplayName :: !(Maybe Text) , _caId :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CommentAuthor' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2167,13 +2240,14 @@ commentAuthor :: CommentAuthor commentAuthor =- CommentAuthor'+ CommentAuthor' { _caImage = Nothing , _caURL = Nothing , _caDisplayName = Nothing , _caId = Nothing } + -- | The comment creator\'s avatar. caImage :: Lens' CommentAuthor (Maybe CommentAuthorImage) caImage = lens _caImage (\ s a -> s{_caImage = a})@@ -2211,12 +2285,15 @@ -- -- /See:/ 'blogUserInfo' smart constructor.-data BlogUserInfo = BlogUserInfo'+data BlogUserInfo =+ BlogUserInfo' { _buiKind :: !Text , _buiBlog :: !(Maybe Blog) , _buiBlogUserInfo :: !(Maybe BlogPerUserInfo)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BlogUserInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2229,12 +2306,13 @@ blogUserInfo :: BlogUserInfo blogUserInfo =- BlogUserInfo'+ BlogUserInfo' { _buiKind = "blogger#blogUserInfo" , _buiBlog = Nothing , _buiBlogUserInfo = Nothing } + -- | The kind of this entity. Always blogger#blogUserInfo buiKind :: Lens' BlogUserInfo Text buiKind = lens _buiKind (\ s a -> s{_buiKind = a})@@ -2268,10 +2346,13 @@ -- | The page author\'s avatar. -- -- /See:/ 'pageAuthorImage' smart constructor.-newtype PageAuthorImage = PageAuthorImage'+newtype PageAuthorImage =+ PageAuthorImage' { _pURL :: Maybe Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PageAuthorImage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2279,11 +2360,9 @@ -- * 'pURL' pageAuthorImage :: PageAuthorImage-pageAuthorImage =- PageAuthorImage'- { _pURL = Nothing- }+pageAuthorImage = PageAuthorImage' {_pURL = Nothing} + -- | The page author\'s avatar URL. pURL :: Lens' PageAuthorImage (Maybe Text) pURL = lens _pURL (\ s a -> s{_pURL = a})@@ -2299,14 +2378,17 @@ -- -- /See:/ 'commentList' smart constructor.-data CommentList = CommentList'+data CommentList =+ CommentList' { _clEtag :: !(Maybe Text) , _clNextPageToken :: !(Maybe Text) , _clKind :: !Text , _clItems :: !(Maybe [Comment]) , _clPrevPageToken :: !(Maybe Text)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CommentList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2323,7 +2405,7 @@ commentList :: CommentList commentList =- CommentList'+ CommentList' { _clEtag = Nothing , _clNextPageToken = Nothing , _clKind = "blogger#commentList"@@ -2331,6 +2413,7 @@ , _clPrevPageToken = Nothing } + -- | Etag of the response. clEtag :: Lens' CommentList (Maybe Text) clEtag = lens _clEtag (\ s a -> s{_clEtag = a})@@ -2378,10 +2461,13 @@ -- -- /See:/ 'postImagesItem' smart constructor.-newtype PostImagesItem = PostImagesItem'+newtype PostImagesItem =+ PostImagesItem' { _piiURL :: Maybe Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostImagesItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2389,10 +2475,8 @@ -- * 'piiURL' postImagesItem :: PostImagesItem-postImagesItem =- PostImagesItem'- { _piiURL = Nothing- }+postImagesItem = PostImagesItem' {_piiURL = Nothing}+ piiURL :: Lens' PostImagesItem (Maybe Text) piiURL = lens _piiURL (\ s a -> s{_piiURL = a})
gen/Network/Google/Resource/Blogger/BlogUserInfos/Get.hs view
@@ -56,12 +56,15 @@ -- | Gets one blog and user info pair by blogId and userId. -- -- /See:/ 'blogUserInfosGet' smart constructor.-data BlogUserInfosGet = BlogUserInfosGet'+data BlogUserInfosGet =+ BlogUserInfosGet' { _buigBlogId :: !Text , _buigUserId :: !Text , _buigMaxPosts :: !(Maybe (Textual Word32))- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BlogUserInfosGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,11 +79,12 @@ -> Text -- ^ 'buigUserId' -> BlogUserInfosGet blogUserInfosGet pBuigBlogId_ pBuigUserId_ =- BlogUserInfosGet'+ BlogUserInfosGet' { _buigBlogId = pBuigBlogId_ , _buigUserId = pBuigUserId_ , _buigMaxPosts = Nothing }+ -- | The ID of the blog to get. buigBlogId :: Lens' BlogUserInfosGet Text
gen/Network/Google/Resource/Blogger/Blogs/Get.hs view
@@ -55,12 +55,15 @@ -- | Gets one blog by ID. -- -- /See:/ 'blogsGet' smart constructor.-data BlogsGet = BlogsGet'+data BlogsGet =+ BlogsGet' { _bgBlogId :: !Text , _bgMaxPosts :: !(Maybe (Textual Word32)) , _bgView :: !(Maybe BlogsGetView)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BlogsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,11 +77,8 @@ :: Text -- ^ 'bgBlogId' -> BlogsGet blogsGet pBgBlogId_ =- BlogsGet'- { _bgBlogId = pBgBlogId_- , _bgMaxPosts = Nothing- , _bgView = Nothing- }+ BlogsGet' {_bgBlogId = pBgBlogId_, _bgMaxPosts = Nothing, _bgView = Nothing}+ -- | The ID of the blog to get. bgBlogId :: Lens' BlogsGet Text
gen/Network/Google/Resource/Blogger/Blogs/GetByURL.hs view
@@ -54,11 +54,14 @@ -- | Retrieve a Blog by URL. -- -- /See:/ 'blogsGetByURL' smart constructor.-data BlogsGetByURL = BlogsGetByURL'+data BlogsGetByURL =+ BlogsGetByURL' { _bgbuURL :: !Text , _bgbuView :: !(Maybe BlogsGetByURLView)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BlogsGetByURL' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,10 +73,8 @@ :: Text -- ^ 'bgbuURL' -> BlogsGetByURL blogsGetByURL pBgbuURL_ =- BlogsGetByURL'- { _bgbuURL = pBgbuURL_- , _bgbuView = Nothing- }+ BlogsGetByURL' {_bgbuURL = pBgbuURL_, _bgbuView = Nothing}+ -- | The URL of the blog to retrieve. bgbuURL :: Lens' BlogsGetByURL Text
gen/Network/Google/Resource/Blogger/Blogs/ListByUser.hs view
@@ -60,14 +60,17 @@ -- | Retrieves a list of blogs, possibly filtered. -- -- /See:/ 'blogsListByUser' smart constructor.-data BlogsListByUser = BlogsListByUser'+data BlogsListByUser =+ BlogsListByUser' { _blbuStatus :: ![BlogsListByUserStatus] , _blbuFetchUserInfo :: !(Maybe Bool) , _blbuUserId :: !Text , _blbuRole :: !(Maybe [BlogsListByUserRole]) , _blbuView :: !(Maybe BlogsListByUserView)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BlogsListByUser' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -85,13 +88,14 @@ :: Text -- ^ 'blbuUserId' -> BlogsListByUser blogsListByUser pBlbuUserId_ =- BlogsListByUser'+ BlogsListByUser' { _blbuStatus = [BLBUSLive] , _blbuFetchUserInfo = Nothing , _blbuUserId = pBlbuUserId_ , _blbuRole = Nothing , _blbuView = Nothing }+ -- | Blog statuses to include in the result (default: Live blogs only). Note -- that ADMIN access is required to view deleted blogs.
gen/Network/Google/Resource/Blogger/Comments/Approve.hs view
@@ -58,12 +58,15 @@ -- | Marks a comment as not spam. -- -- /See:/ 'commentsApprove' smart constructor.-data CommentsApprove = CommentsApprove'+data CommentsApprove =+ CommentsApprove' { _caBlogId :: !Text , _caPostId :: !Text , _caCommentId :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CommentsApprove' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,11 +82,12 @@ -> Text -- ^ 'caCommentId' -> CommentsApprove commentsApprove pCaBlogId_ pCaPostId_ pCaCommentId_ =- CommentsApprove'+ CommentsApprove' { _caBlogId = pCaBlogId_ , _caPostId = pCaPostId_ , _caCommentId = pCaCommentId_ }+ -- | The ID of the Blog. caBlogId :: Lens' CommentsApprove Text
gen/Network/Google/Resource/Blogger/Comments/Delete.hs view
@@ -57,12 +57,15 @@ -- | Delete a comment by ID. -- -- /See:/ 'commentsDelete' smart constructor.-data CommentsDelete = CommentsDelete'+data CommentsDelete =+ CommentsDelete' { _cdBlogId :: !Text , _cdPostId :: !Text , _cdCommentId :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CommentsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,11 +81,12 @@ -> Text -- ^ 'cdCommentId' -> CommentsDelete commentsDelete pCdBlogId_ pCdPostId_ pCdCommentId_ =- CommentsDelete'+ CommentsDelete' { _cdBlogId = pCdBlogId_ , _cdPostId = pCdPostId_ , _cdCommentId = pCdCommentId_ }+ -- | The ID of the Blog. cdBlogId :: Lens' CommentsDelete Text
gen/Network/Google/Resource/Blogger/Comments/Get.hs view
@@ -59,13 +59,16 @@ -- | Gets one comment by ID. -- -- /See:/ 'commentsGet' smart constructor.-data CommentsGet = CommentsGet'+data CommentsGet =+ CommentsGet' { _cgBlogId :: !Text , _cgView :: !(Maybe CommentsGetView) , _cgPostId :: !Text , _cgCommentId :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CommentsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -83,12 +86,13 @@ -> Text -- ^ 'cgCommentId' -> CommentsGet commentsGet pCgBlogId_ pCgPostId_ pCgCommentId_ =- CommentsGet'+ CommentsGet' { _cgBlogId = pCgBlogId_ , _cgView = Nothing , _cgPostId = pCgPostId_ , _cgCommentId = pCgCommentId_ }+ -- | ID of the blog to containing the comment. cgBlogId :: Lens' CommentsGet Text
gen/Network/Google/Resource/Blogger/Comments/List.hs view
@@ -70,7 +70,8 @@ -- | Retrieves the comments for a post, possibly filtered. -- -- /See:/ 'commentsList' smart constructor.-data CommentsList = CommentsList'+data CommentsList =+ CommentsList' { _clStatus :: !(Maybe [CommentsListStatus]) , _clEndDate :: !(Maybe DateTime') , _clBlogId :: !Text@@ -80,8 +81,10 @@ , _clPostId :: !Text , _clPageToken :: !(Maybe Text) , _clMaxResults :: !(Maybe (Textual Word32))- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CommentsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -108,7 +111,7 @@ -> Text -- ^ 'clPostId' -> CommentsList commentsList pClBlogId_ pClPostId_ =- CommentsList'+ CommentsList' { _clStatus = Nothing , _clEndDate = Nothing , _clBlogId = pClBlogId_@@ -119,6 +122,7 @@ , _clPageToken = Nothing , _clMaxResults = Nothing }+ clStatus :: Lens' CommentsList [CommentsListStatus] clStatus
gen/Network/Google/Resource/Blogger/Comments/ListByBlog.hs view
@@ -64,7 +64,8 @@ -- | Retrieves the comments for a blog, across all posts, possibly filtered. -- -- /See:/ 'commentsListByBlog' smart constructor.-data CommentsListByBlog = CommentsListByBlog'+data CommentsListByBlog =+ CommentsListByBlog' { _clbbStatus :: !(Maybe [CommentsListByBlogStatus]) , _clbbEndDate :: !(Maybe DateTime') , _clbbBlogId :: !Text@@ -72,8 +73,10 @@ , _clbbFetchBodies :: !(Maybe Bool) , _clbbPageToken :: !(Maybe Text) , _clbbMaxResults :: !(Maybe (Textual Word32))- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CommentsListByBlog' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -95,7 +98,7 @@ :: Text -- ^ 'clbbBlogId' -> CommentsListByBlog commentsListByBlog pClbbBlogId_ =- CommentsListByBlog'+ CommentsListByBlog' { _clbbStatus = Nothing , _clbbEndDate = Nothing , _clbbBlogId = pClbbBlogId_@@ -104,6 +107,7 @@ , _clbbPageToken = Nothing , _clbbMaxResults = Nothing }+ clbbStatus :: Lens' CommentsListByBlog [CommentsListByBlogStatus] clbbStatus
gen/Network/Google/Resource/Blogger/Comments/MarkAsSpam.hs view
@@ -58,12 +58,15 @@ -- | Marks a comment as spam. -- -- /See:/ 'commentsMarkAsSpam' smart constructor.-data CommentsMarkAsSpam = CommentsMarkAsSpam'+data CommentsMarkAsSpam =+ CommentsMarkAsSpam' { _cmasBlogId :: !Text , _cmasPostId :: !Text , _cmasCommentId :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CommentsMarkAsSpam' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,11 +82,12 @@ -> Text -- ^ 'cmasCommentId' -> CommentsMarkAsSpam commentsMarkAsSpam pCmasBlogId_ pCmasPostId_ pCmasCommentId_ =- CommentsMarkAsSpam'+ CommentsMarkAsSpam' { _cmasBlogId = pCmasBlogId_ , _cmasPostId = pCmasPostId_ , _cmasCommentId = pCmasCommentId_ }+ -- | The ID of the Blog. cmasBlogId :: Lens' CommentsMarkAsSpam Text
gen/Network/Google/Resource/Blogger/Comments/RemoveContent.hs view
@@ -58,12 +58,15 @@ -- | Removes the content of a comment. -- -- /See:/ 'commentsRemoveContent' smart constructor.-data CommentsRemoveContent = CommentsRemoveContent'+data CommentsRemoveContent =+ CommentsRemoveContent' { _crcBlogId :: !Text , _crcPostId :: !Text , _crcCommentId :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CommentsRemoveContent' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,11 +82,12 @@ -> Text -- ^ 'crcCommentId' -> CommentsRemoveContent commentsRemoveContent pCrcBlogId_ pCrcPostId_ pCrcCommentId_ =- CommentsRemoveContent'+ CommentsRemoveContent' { _crcBlogId = pCrcBlogId_ , _crcPostId = pCrcPostId_ , _crcCommentId = pCrcCommentId_ }+ -- | The ID of the Blog. crcBlogId :: Lens' CommentsRemoveContent Text
gen/Network/Google/Resource/Blogger/PageViews/Get.hs view
@@ -54,11 +54,14 @@ -- | Retrieve pageview stats for a Blog. -- -- /See:/ 'pageViewsGet' smart constructor.-data PageViewsGet = PageViewsGet'+data PageViewsGet =+ PageViewsGet' { _pvgBlogId :: !Text , _pvgRange :: !(Maybe [PageViewsGetRange])- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PageViewsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,10 +73,8 @@ :: Text -- ^ 'pvgBlogId' -> PageViewsGet pageViewsGet pPvgBlogId_ =- PageViewsGet'- { _pvgBlogId = pPvgBlogId_- , _pvgRange = Nothing- }+ PageViewsGet' {_pvgBlogId = pPvgBlogId_, _pvgRange = Nothing}+ -- | The ID of the blog to get. pvgBlogId :: Lens' PageViewsGet Text
gen/Network/Google/Resource/Blogger/Pages/Delete.hs view
@@ -54,11 +54,14 @@ -- | Delete a page by ID. -- -- /See:/ 'pagesDelete' smart constructor.-data PagesDelete = PagesDelete'+data PagesDelete =+ PagesDelete' { _pddBlogId :: !Text , _pddPageId :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PagesDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@ -> Text -- ^ 'pddPageId' -> PagesDelete pagesDelete pPddBlogId_ pPddPageId_ =- PagesDelete'- { _pddBlogId = pPddBlogId_- , _pddPageId = pPddPageId_- }+ PagesDelete' {_pddBlogId = pPddBlogId_, _pddPageId = pPddPageId_}+ -- | The ID of the Blog. pddBlogId :: Lens' PagesDelete Text
gen/Network/Google/Resource/Blogger/Pages/Get.hs view
@@ -56,12 +56,15 @@ -- | Gets one blog page by ID. -- -- /See:/ 'pagesGet' smart constructor.-data PagesGet = PagesGet'+data PagesGet =+ PagesGet' { _pgBlogId :: !Text , _pgPageId :: !Text , _pgView :: !(Maybe PagesGetView)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PagesGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,11 +79,8 @@ -> Text -- ^ 'pgPageId' -> PagesGet pagesGet pPgBlogId_ pPgPageId_ =- PagesGet'- { _pgBlogId = pPgBlogId_- , _pgPageId = pPgPageId_- , _pgView = Nothing- }+ PagesGet' {_pgBlogId = pPgBlogId_, _pgPageId = pPgPageId_, _pgView = Nothing}+ -- | ID of the blog containing the page. pgBlogId :: Lens' PagesGet Text
gen/Network/Google/Resource/Blogger/Pages/Insert.hs view
@@ -56,12 +56,15 @@ -- | Add a page. -- -- /See:/ 'pagesInsert' smart constructor.-data PagesInsert = PagesInsert'+data PagesInsert =+ PagesInsert' { _piIsDraft :: !(Maybe Bool) , _piBlogId :: !Text , _piPayload :: !Page- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PagesInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,11 +79,9 @@ -> Page -- ^ 'piPayload' -> PagesInsert pagesInsert pPiBlogId_ pPiPayload_ =- PagesInsert'- { _piIsDraft = Nothing- , _piBlogId = pPiBlogId_- , _piPayload = pPiPayload_- }+ PagesInsert'+ {_piIsDraft = Nothing, _piBlogId = pPiBlogId_, _piPayload = pPiPayload_}+ -- | Whether to create the page as a draft (default: false). piIsDraft :: Lens' PagesInsert (Maybe Bool)
gen/Network/Google/Resource/Blogger/Pages/List.hs view
@@ -62,15 +62,18 @@ -- | Retrieves the pages for a blog, optionally including non-LIVE statuses. -- -- /See:/ 'pagesList' smart constructor.-data PagesList = PagesList'+data PagesList =+ PagesList' { _plStatus :: !(Maybe [PagesListStatus]) , _plBlogId :: !Text , _plFetchBodies :: !(Maybe Bool) , _plView :: !(Maybe PagesListView) , _plPageToken :: !(Maybe Text) , _plMaxResults :: !(Maybe (Textual Word32))- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PagesList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -90,7 +93,7 @@ :: Text -- ^ 'plBlogId' -> PagesList pagesList pPlBlogId_ =- PagesList'+ PagesList' { _plStatus = Nothing , _plBlogId = pPlBlogId_ , _plFetchBodies = Nothing@@ -98,6 +101,7 @@ , _plPageToken = Nothing , _plMaxResults = Nothing }+ plStatus :: Lens' PagesList [PagesListStatus] plStatus
gen/Network/Google/Resource/Blogger/Pages/Patch.hs view
@@ -60,14 +60,17 @@ -- | Update a page. This method supports patch semantics. -- -- /See:/ 'pagesPatch' smart constructor.-data PagesPatch = PagesPatch'+data PagesPatch =+ PagesPatch' { _ppBlogId :: !Text , _ppPageId :: !Text , _ppPayload :: !Page , _ppRevert :: !(Maybe Bool) , _ppPublish :: !(Maybe Bool)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PagesPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,13 +90,14 @@ -> Page -- ^ 'ppPayload' -> PagesPatch pagesPatch pPpBlogId_ pPpPageId_ pPpPayload_ =- PagesPatch'+ PagesPatch' { _ppBlogId = pPpBlogId_ , _ppPageId = pPpPageId_ , _ppPayload = pPpPayload_ , _ppRevert = Nothing , _ppPublish = Nothing }+ -- | The ID of the Blog. ppBlogId :: Lens' PagesPatch Text
gen/Network/Google/Resource/Blogger/Pages/Publish.hs view
@@ -55,11 +55,14 @@ -- | Publishes a draft page. -- -- /See:/ 'pagesPublish' smart constructor.-data PagesPublish = PagesPublish'+data PagesPublish =+ PagesPublish' { _pagaBlogId :: !Text , _pagaPageId :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PagesPublish' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +75,8 @@ -> Text -- ^ 'pagaPageId' -> PagesPublish pagesPublish pPagaBlogId_ pPagaPageId_ =- PagesPublish'- { _pagaBlogId = pPagaBlogId_- , _pagaPageId = pPagaPageId_- }+ PagesPublish' {_pagaBlogId = pPagaBlogId_, _pagaPageId = pPagaPageId_}+ -- | The ID of the blog. pagaBlogId :: Lens' PagesPublish Text
gen/Network/Google/Resource/Blogger/Pages/Revert.hs view
@@ -55,11 +55,14 @@ -- | Revert a published or scheduled page to draft state. -- -- /See:/ 'pagesRevert' smart constructor.-data PagesRevert = PagesRevert'+data PagesRevert =+ PagesRevert' { _pagBlogId :: !Text , _pagPageId :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PagesRevert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +75,8 @@ -> Text -- ^ 'pagPageId' -> PagesRevert pagesRevert pPagBlogId_ pPagPageId_ =- PagesRevert'- { _pagBlogId = pPagBlogId_- , _pagPageId = pPagPageId_- }+ PagesRevert' {_pagBlogId = pPagBlogId_, _pagPageId = pPagPageId_}+ -- | The ID of the blog. pagBlogId :: Lens' PagesRevert Text
gen/Network/Google/Resource/Blogger/Pages/Update.hs view
@@ -60,14 +60,17 @@ -- | Update a page. -- -- /See:/ 'pagesUpdate' smart constructor.-data PagesUpdate = PagesUpdate'+data PagesUpdate =+ PagesUpdate' { _puuBlogId :: !Text , _puuPageId :: !Text , _puuPayload :: !Page , _puuRevert :: !(Maybe Bool) , _puuPublish :: !(Maybe Bool)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PagesUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,13 +90,14 @@ -> Page -- ^ 'puuPayload' -> PagesUpdate pagesUpdate pPuuBlogId_ pPuuPageId_ pPuuPayload_ =- PagesUpdate'+ PagesUpdate' { _puuBlogId = pPuuBlogId_ , _puuPageId = pPuuPageId_ , _puuPayload = pPuuPayload_ , _puuRevert = Nothing , _puuPublish = Nothing }+ -- | The ID of the Blog. puuBlogId :: Lens' PagesUpdate Text
gen/Network/Google/Resource/Blogger/PostUserInfos/Get.hs view
@@ -63,13 +63,16 @@ -- rights, specific to the user. -- -- /See:/ 'postUserInfosGet' smart constructor.-data PostUserInfosGet = PostUserInfosGet'+data PostUserInfosGet =+ PostUserInfosGet' { _puigBlogId :: !Text , _puigMaxComments :: !(Maybe (Textual Word32)) , _puigUserId :: !Text , _puigPostId :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostUserInfosGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,12 +90,13 @@ -> Text -- ^ 'puigPostId' -> PostUserInfosGet postUserInfosGet pPuigBlogId_ pPuigUserId_ pPuigPostId_ =- PostUserInfosGet'+ PostUserInfosGet' { _puigBlogId = pPuigBlogId_ , _puigMaxComments = Nothing , _puigUserId = pPuigUserId_ , _puigPostId = pPuigPostId_ }+ -- | The ID of the blog. puigBlogId :: Lens' PostUserInfosGet Text
gen/Network/Google/Resource/Blogger/PostUserInfos/List.hs view
@@ -78,7 +78,8 @@ -- access rights, specific to the user. -- -- /See:/ 'postUserInfosList'' smart constructor.-data PostUserInfosList' = PostUserInfosList''+data PostUserInfosList' =+ PostUserInfosList'' { _puilStatus :: !(Maybe [PostUserInfosListStatus]) , _puilOrderBy :: !PostUserInfosListOrderBy , _puilEndDate :: !(Maybe DateTime')@@ -90,8 +91,10 @@ , _puilLabels :: !(Maybe Text) , _puilPageToken :: !(Maybe Text) , _puilMaxResults :: !(Maybe (Textual Word32))- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostUserInfosList'' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -122,7 +125,7 @@ -> Text -- ^ 'puilUserId' -> PostUserInfosList' postUserInfosList' pPuilBlogId_ pPuilUserId_ =- PostUserInfosList''+ PostUserInfosList'' { _puilStatus = Nothing , _puilOrderBy = PUILOBPublished , _puilEndDate = Nothing@@ -135,6 +138,7 @@ , _puilPageToken = Nothing , _puilMaxResults = Nothing }+ puilStatus :: Lens' PostUserInfosList' [PostUserInfosListStatus] puilStatus
gen/Network/Google/Resource/Blogger/Posts/Delete.hs view
@@ -54,11 +54,14 @@ -- | Delete a post by ID. -- -- /See:/ 'postsDelete' smart constructor.-data PostsDelete = PostsDelete'+data PostsDelete =+ PostsDelete' { _pdBlogId :: !Text , _pdPostId :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@ -> Text -- ^ 'pdPostId' -> PostsDelete postsDelete pPdBlogId_ pPdPostId_ =- PostsDelete'- { _pdBlogId = pPdBlogId_- , _pdPostId = pPdPostId_- }+ PostsDelete' {_pdBlogId = pPdBlogId_, _pdPostId = pPdPostId_}+ -- | The ID of the Blog. pdBlogId :: Lens' PostsDelete Text
gen/Network/Google/Resource/Blogger/Posts/Get.hs view
@@ -62,15 +62,18 @@ -- | Get a post by ID. -- -- /See:/ 'postsGet' smart constructor.-data PostsGet = PostsGet'+data PostsGet =+ PostsGet' { _pggFetchBody :: !Bool , _pggFetchImages :: !(Maybe Bool) , _pggBlogId :: !Text , _pggMaxComments :: !(Maybe (Textual Word32)) , _pggView :: !(Maybe PostsGetView) , _pggPostId :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -91,7 +94,7 @@ -> Text -- ^ 'pggPostId' -> PostsGet postsGet pPggBlogId_ pPggPostId_ =- PostsGet'+ PostsGet' { _pggFetchBody = True , _pggFetchImages = Nothing , _pggBlogId = pPggBlogId_@@ -99,6 +102,7 @@ , _pggView = Nothing , _pggPostId = pPggPostId_ }+ -- | Whether the body content of the post is included (default: true). This -- should be set to false when the post bodies are not required, to help
gen/Network/Google/Resource/Blogger/Posts/GetByPath.hs view
@@ -59,13 +59,16 @@ -- | Retrieve a Post by Path. -- -- /See:/ 'postsGetByPath' smart constructor.-data PostsGetByPath = PostsGetByPath'+data PostsGetByPath =+ PostsGetByPath' { _pgbpPath :: !Text , _pgbpBlogId :: !Text , _pgbpMaxComments :: !(Maybe (Textual Word32)) , _pgbpView :: !(Maybe PostsGetByPathView)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostsGetByPath' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,12 +85,13 @@ -> Text -- ^ 'pgbpBlogId' -> PostsGetByPath postsGetByPath pPgbpPath_ pPgbpBlogId_ =- PostsGetByPath'+ PostsGetByPath' { _pgbpPath = pPgbpPath_ , _pgbpBlogId = pPgbpBlogId_ , _pgbpMaxComments = Nothing , _pgbpView = Nothing }+ -- | Path of the Post to retrieve. pgbpPath :: Lens' PostsGetByPath Text
gen/Network/Google/Resource/Blogger/Posts/Insert.hs view
@@ -60,14 +60,17 @@ -- | Add a post. -- -- /See:/ 'postsInsert' smart constructor.-data PostsInsert = PostsInsert'+data PostsInsert =+ PostsInsert' { _posFetchBody :: !Bool , _posIsDraft :: !(Maybe Bool) , _posFetchImages :: !(Maybe Bool) , _posBlogId :: !Text , _posPayload :: !Post'- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostsInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -86,13 +89,14 @@ -> Post' -- ^ 'posPayload' -> PostsInsert postsInsert pPosBlogId_ pPosPayload_ =- PostsInsert'+ PostsInsert' { _posFetchBody = True , _posIsDraft = Nothing , _posFetchImages = Nothing , _posBlogId = pPosBlogId_ , _posPayload = pPosPayload_ }+ -- | Whether the body content of the post is included with the result -- (default: true).
gen/Network/Google/Resource/Blogger/Posts/List.hs view
@@ -73,7 +73,8 @@ -- | Retrieves a list of posts, possibly filtered. -- -- /See:/ 'postsList' smart constructor.-data PostsList = PostsList'+data PostsList =+ PostsList' { _pllStatus :: !(Maybe [PostsListStatus]) , _pllOrderBy :: !PostsListOrderBy , _pllFetchImages :: !(Maybe Bool)@@ -85,8 +86,10 @@ , _pllLabels :: !(Maybe Text) , _pllPageToken :: !(Maybe Text) , _pllMaxResults :: !(Maybe (Textual Word32))- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -116,7 +119,7 @@ :: Text -- ^ 'pllBlogId' -> PostsList postsList pPllBlogId_ =- PostsList'+ PostsList' { _pllStatus = Nothing , _pllOrderBy = Published , _pllFetchImages = Nothing@@ -129,6 +132,7 @@ , _pllPageToken = Nothing , _pllMaxResults = Nothing }+ -- | Statuses to include in the results. pllStatus :: Lens' PostsList [PostsListStatus]
gen/Network/Google/Resource/Blogger/Posts/Patch.hs view
@@ -66,7 +66,8 @@ -- | Update a post. This method supports patch semantics. -- -- /See:/ 'postsPatch' smart constructor.-data PostsPatch = PostsPatch'+data PostsPatch =+ PostsPatch' { _posoFetchBody :: !Bool , _posoFetchImages :: !(Maybe Bool) , _posoBlogId :: !Text@@ -75,8 +76,10 @@ , _posoRevert :: !(Maybe Bool) , _posoPostId :: !Text , _posoPublish :: !(Maybe Bool)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -102,7 +105,7 @@ -> Text -- ^ 'posoPostId' -> PostsPatch postsPatch pPosoBlogId_ pPosoPayload_ pPosoPostId_ =- PostsPatch'+ PostsPatch' { _posoFetchBody = True , _posoFetchImages = Nothing , _posoBlogId = pPosoBlogId_@@ -112,6 +115,7 @@ , _posoPostId = pPosoPostId_ , _posoPublish = Nothing }+ -- | Whether the body content of the post is included with the result -- (default: true).
gen/Network/Google/Resource/Blogger/Posts/Publish.hs view
@@ -59,12 +59,15 @@ -- publishDate parameter. -- -- /See:/ 'postsPublish' smart constructor.-data PostsPublish = PostsPublish'+data PostsPublish =+ PostsPublish' { _pppPublishDate :: !(Maybe DateTime') , _pppBlogId :: !Text , _pppPostId :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostsPublish' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,11 +82,12 @@ -> Text -- ^ 'pppPostId' -> PostsPublish postsPublish pPppBlogId_ pPppPostId_ =- PostsPublish'+ PostsPublish' { _pppPublishDate = Nothing , _pppBlogId = pPppBlogId_ , _pppPostId = pPppPostId_ }+ -- | Optional date and time to schedule the publishing of the Blog. If no -- publishDate parameter is given, the post is either published at the a
gen/Network/Google/Resource/Blogger/Posts/Revert.hs view
@@ -55,11 +55,14 @@ -- | Revert a published or scheduled post to draft state. -- -- /See:/ 'postsRevert' smart constructor.-data PostsRevert = PostsRevert'+data PostsRevert =+ PostsRevert' { _prBlogId :: !Text , _prPostId :: !Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostsRevert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +75,8 @@ -> Text -- ^ 'prPostId' -> PostsRevert postsRevert pPrBlogId_ pPrPostId_ =- PostsRevert'- { _prBlogId = pPrBlogId_- , _prPostId = pPrPostId_- }+ PostsRevert' {_prBlogId = pPrBlogId_, _prPostId = pPrPostId_}+ -- | The ID of the Blog. prBlogId :: Lens' PostsRevert Text
gen/Network/Google/Resource/Blogger/Posts/Search.hs view
@@ -59,13 +59,16 @@ -- | Search for a post. -- -- /See:/ 'postsSearch' smart constructor.-data PostsSearch = PostsSearch'+data PostsSearch =+ PostsSearch' { _psOrderBy :: !PostsSearchOrderBy , _psBlogId :: !Text , _psQ :: !Text , _psFetchBodies :: !Bool- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostsSearch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,12 +85,13 @@ -> Text -- ^ 'psQ' -> PostsSearch postsSearch pPsBlogId_ pPsQ_ =- PostsSearch'+ PostsSearch' { _psOrderBy = PSOBPublished , _psBlogId = pPsBlogId_ , _psQ = pPsQ_ , _psFetchBodies = True }+ -- | Sort search results psOrderBy :: Lens' PostsSearch PostsSearchOrderBy
gen/Network/Google/Resource/Blogger/Posts/Update.hs view
@@ -66,7 +66,8 @@ -- | Update a post. -- -- /See:/ 'postsUpdate' smart constructor.-data PostsUpdate = PostsUpdate'+data PostsUpdate =+ PostsUpdate' { _puFetchBody :: !Bool , _puFetchImages :: !(Maybe Bool) , _puBlogId :: !Text@@ -75,8 +76,10 @@ , _puRevert :: !(Maybe Bool) , _puPostId :: !Text , _puPublish :: !(Maybe Bool)- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PostsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -102,7 +105,7 @@ -> Text -- ^ 'puPostId' -> PostsUpdate postsUpdate pPuBlogId_ pPuPayload_ pPuPostId_ =- PostsUpdate'+ PostsUpdate' { _puFetchBody = True , _puFetchImages = Nothing , _puBlogId = pPuBlogId_@@ -112,6 +115,7 @@ , _puPostId = pPuPostId_ , _puPublish = Nothing }+ -- | Whether the body content of the post is included with the result -- (default: true).
gen/Network/Google/Resource/Blogger/Users/Get.hs view
@@ -51,10 +51,13 @@ -- | Gets one user by ID. -- -- /See:/ 'usersGet' smart constructor.-newtype UsersGet = UsersGet'+newtype UsersGet =+ UsersGet' { _ugUserId :: Text- } deriving (Eq,Show,Data,Typeable,Generic)+ }+ deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UsersGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +66,8 @@ usersGet :: Text -- ^ 'ugUserId' -> UsersGet-usersGet pUgUserId_ =- UsersGet'- { _ugUserId = pUgUserId_- }+usersGet pUgUserId_ = UsersGet' {_ugUserId = pUgUserId_}+ -- | The ID of the user to get. ugUserId :: Lens' UsersGet Text
gogol-blogger.cabal view
@@ -1,5 +1,5 @@ name: gogol-blogger-version: 0.4.0+version: 0.5.0 synopsis: Google Blogger SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues@@ -78,5 +78,5 @@ , Network.Google.Blogger.Types.Sum build-depends:- gogol-core == 0.4.0.*+ gogol-core == 0.5.0.* , base >= 4.7 && < 5