gogol-blogger 0.0.1 → 0.1.0

raw patch · 39 files changed

+570/−483 lines, 39 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +3/−3
• gen/Network/Google/Blogger.hs +5/−1
• gen/Network/Google/Blogger/Types.hs +8/−7
• gen/Network/Google/Blogger/Types/Product.hs +141/−141
• gen/Network/Google/Blogger/Types/Sum.hs +196/−196
• gen/Network/Google/Resource/Blogger/BlogUserInfos/Get.hs +7/−4
• gen/Network/Google/Resource/Blogger/Blogs/Get.hs +7/−4
• gen/Network/Google/Resource/Blogger/Blogs/GetByURL.hs +7/−4
• gen/Network/Google/Resource/Blogger/Blogs/ListByUser.hs +7/−4
• gen/Network/Google/Resource/Blogger/Comments/Approve.hs +6/−4
• gen/Network/Google/Resource/Blogger/Comments/Delete.hs +6/−4
• gen/Network/Google/Resource/Blogger/Comments/Get.hs +7/−4
• gen/Network/Google/Resource/Blogger/Comments/List.hs +7/−4
• gen/Network/Google/Resource/Blogger/Comments/ListByBlog.hs +7/−4
• gen/Network/Google/Resource/Blogger/Comments/MarkAsSpam.hs +6/−4
• gen/Network/Google/Resource/Blogger/Comments/RemoveContent.hs +6/−4
• gen/Network/Google/Resource/Blogger/PageViews/Get.hs +6/−4
• gen/Network/Google/Resource/Blogger/Pages/Delete.hs +6/−4
• gen/Network/Google/Resource/Blogger/Pages/Get.hs +7/−4
• gen/Network/Google/Resource/Blogger/Pages/Insert.hs +6/−4
• gen/Network/Google/Resource/Blogger/Pages/List.hs +7/−4
• gen/Network/Google/Resource/Blogger/Pages/Patch.hs +6/−4
• gen/Network/Google/Resource/Blogger/Pages/Publish.hs +6/−4
• gen/Network/Google/Resource/Blogger/Pages/Revert.hs +6/−4
• gen/Network/Google/Resource/Blogger/Pages/Update.hs +6/−4
• gen/Network/Google/Resource/Blogger/PostUserInfos/Get.hs +7/−4
• gen/Network/Google/Resource/Blogger/PostUserInfos/List.hs +7/−4
• gen/Network/Google/Resource/Blogger/Posts/Delete.hs +6/−4
• gen/Network/Google/Resource/Blogger/Posts/Get.hs +7/−4
• gen/Network/Google/Resource/Blogger/Posts/GetByPath.hs +7/−4
• gen/Network/Google/Resource/Blogger/Posts/Insert.hs +6/−4
• gen/Network/Google/Resource/Blogger/Posts/List.hs +7/−4
• gen/Network/Google/Resource/Blogger/Posts/Patch.hs +6/−4
• gen/Network/Google/Resource/Blogger/Posts/Publish.hs +6/−4
• gen/Network/Google/Resource/Blogger/Posts/Revert.hs +6/−4
• gen/Network/Google/Resource/Blogger/Posts/Search.hs +7/−4
• gen/Network/Google/Resource/Blogger/Posts/Update.hs +6/−4
• gen/Network/Google/Resource/Blogger/Users/Get.hs +7/−4
• gogol-blogger.cabal +3/−3

@@ -8,7 +8,7 @@  ## Version -`0.0.1`+`0.1.0`   ## Description@@ -18,9 +18,9 @@  ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues).+For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information.+> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information.   ## Licence

@@ -7,7 +7,7 @@  -- | -- Module      : Network.Google.Blogger--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -20,6 +20,10 @@     (     -- * Service Configuration       bloggerService++    -- * OAuth Scopes+    , bloggerScope+    , bloggerReadOnlyScope      -- * API Declaration     , BloggerAPI

@@ -1,3 +1,4 @@+{-# LANGUAGE DataKinds          #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE NoImplicitPrelude  #-}@@ -7,7 +8,7 @@  -- | -- Module      : Network.Google.Blogger.Types--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -20,7 +21,7 @@      -- * OAuth Scopes     , bloggerScope-    , bloggerReadonlyScope+    , bloggerReadOnlyScope      -- * PostsListOrderBy     , PostsListOrderBy (..)@@ -379,15 +380,15 @@ import           Network.Google.Prelude  -- | Default request referring to version 'v3' of the Blogger API. This contains the host and root path used as a starting point for constructing service requests.-bloggerService :: Service+bloggerService :: ServiceConfig bloggerService   = defaultService (ServiceId "blogger:v3")       "www.googleapis.com"  -- | Manage your Blogger account-bloggerScope :: OAuthScope-bloggerScope = "https://www.googleapis.com/auth/blogger";+bloggerScope :: Proxy '["https://www.googleapis.com/auth/blogger"]+bloggerScope = Proxy;  -- | View your Blogger account-bloggerReadonlyScope :: OAuthScope-bloggerReadonlyScope = "https://www.googleapis.com/auth/blogger.readonly";+bloggerReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/blogger.readonly"]+bloggerReadOnlyScope = Proxy;

@@ -9,7 +9,7 @@  -- | -- Module      : Network.Google.Blogger.Types.Product--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -22,7 +22,7 @@  -- -- /See:/ 'postUserInfo' smart constructor.-data PostUserInfo = PostUserInfo+data PostUserInfo = PostUserInfo'     { _puiPostUserInfo :: !(Maybe PostPerUserInfo)     , _puiPost         :: !(Maybe Post')     , _puiKind         :: !Text@@ -40,7 +40,7 @@ postUserInfo     :: PostUserInfo postUserInfo =-    PostUserInfo+    PostUserInfo'     { _puiPostUserInfo = Nothing     , _puiPost = Nothing     , _puiKind = "blogger#postUserInfo"@@ -64,12 +64,12 @@         parseJSON           = withObject "PostUserInfo"               (\ o ->-                 PostUserInfo <$>+                 PostUserInfo' <$>                    (o .:? "post_user_info") <*> (o .:? "post") <*>                      (o .:? "kind" .!= "blogger#postUserInfo"))  instance ToJSON PostUserInfo where-        toJSON PostUserInfo{..}+        toJSON PostUserInfo'{..}           = object               (catMaybes                  [("post_user_info" .=) <$> _puiPostUserInfo,@@ -78,7 +78,7 @@ -- | The Post author\'s avatar. -- -- /See:/ 'postAuthorImage' smart constructor.-newtype PostAuthorImage = PostAuthorImage+newtype PostAuthorImage = PostAuthorImage'     { _paiURL :: Maybe Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -90,7 +90,7 @@ postAuthorImage     :: PostAuthorImage postAuthorImage =-    PostAuthorImage+    PostAuthorImage'     { _paiURL = Nothing     } @@ -101,15 +101,15 @@ instance FromJSON PostAuthorImage where         parseJSON           = withObject "PostAuthorImage"-              (\ o -> PostAuthorImage <$> (o .:? "url"))+              (\ o -> PostAuthorImage' <$> (o .:? "url"))  instance ToJSON PostAuthorImage where-        toJSON PostAuthorImage{..}+        toJSON PostAuthorImage'{..}           = object (catMaybes [("url" .=) <$> _paiURL])  -- -- /See:/ 'postList' smart constructor.-data PostList = PostList+data PostList = PostList'     { _plEtag          :: !(Maybe Text)     , _plNextPageToken :: !(Maybe Text)     , _plKind          :: !Text@@ -130,7 +130,7 @@ postList     :: PostList postList =-    PostList+    PostList'     { _plEtag = Nothing     , _plNextPageToken = Nothing     , _plKind = "blogger#postList"@@ -161,13 +161,13 @@         parseJSON           = withObject "PostList"               (\ o ->-                 PostList <$>+                 PostList' <$>                    (o .:? "etag") <*> (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "blogger#postList")                      <*> (o .:? "items" .!= mempty))  instance ToJSON PostList where-        toJSON PostList{..}+        toJSON PostList'{..}           = object               (catMaybes                  [("etag" .=) <$> _plEtag,@@ -177,7 +177,7 @@ -- | 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) @@ -189,7 +189,7 @@ commentInReplyTo     :: CommentInReplyTo commentInReplyTo =-    CommentInReplyTo+    CommentInReplyTo'     { _cirtId = Nothing     } @@ -200,16 +200,16 @@ instance FromJSON CommentInReplyTo where         parseJSON           = withObject "CommentInReplyTo"-              (\ o -> CommentInReplyTo <$> (o .:? "id"))+              (\ o -> CommentInReplyTo' <$> (o .:? "id"))  instance ToJSON CommentInReplyTo where-        toJSON CommentInReplyTo{..}+        toJSON CommentInReplyTo'{..}           = object (catMaybes [("id" .=) <$> _cirtId])  -- | 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) @@ -221,7 +221,7 @@ commentBlog     :: CommentBlog commentBlog =-    CommentBlog+    CommentBlog'     { _cbId = Nothing     } @@ -232,15 +232,15 @@ instance FromJSON CommentBlog where         parseJSON           = withObject "CommentBlog"-              (\ o -> CommentBlog <$> (o .:? "id"))+              (\ o -> CommentBlog' <$> (o .:? "id"))  instance ToJSON CommentBlog where-        toJSON CommentBlog{..}+        toJSON CommentBlog'{..}           = object (catMaybes [("id" .=) <$> _cbId])  -- -- /See:/ 'pageviews' smart constructor.-data Pageviews = Pageviews+data Pageviews = Pageviews'     { _pKind   :: !Text     , _pCounts :: !(Maybe [PageviewsCountsItem])     , _pBlogId :: !(Maybe Text)@@ -258,7 +258,7 @@ pageviews     :: Pageviews pageviews =-    Pageviews+    Pageviews'     { _pKind = "blogger#page_views"     , _pCounts = Nothing     , _pBlogId = Nothing@@ -282,13 +282,13 @@         parseJSON           = withObject "Pageviews"               (\ o ->-                 Pageviews <$>+                 Pageviews' <$>                    (o .:? "kind" .!= "blogger#page_views") <*>                      (o .:? "counts" .!= mempty)                      <*> (o .:? "blogId"))  instance ToJSON Pageviews where-        toJSON Pageviews{..}+        toJSON Pageviews'{..}           = object               (catMaybes                  [Just ("kind" .= _pKind), ("counts" .=) <$> _pCounts,@@ -297,7 +297,7 @@ -- | 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)@@ -318,7 +318,7 @@ postLocation     :: PostLocation postLocation =-    PostLocation+    PostLocation'     { _plSpan = Nothing     , _plLat = Nothing     , _plName = Nothing@@ -349,12 +349,12 @@         parseJSON           = withObject "PostLocation"               (\ o ->-                 PostLocation <$>+                 PostLocation' <$>                    (o .:? "span") <*> (o .:? "lat") <*> (o .:? "name")                      <*> (o .:? "lng"))  instance ToJSON PostLocation where-        toJSON PostLocation{..}+        toJSON PostLocation'{..}           = object               (catMaybes                  [("span" .=) <$> _plSpan, ("lat" .=) <$> _plLat,@@ -363,7 +363,7 @@ -- | 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)@@ -381,7 +381,7 @@ blogPosts     :: BlogPosts blogPosts =-    BlogPosts+    BlogPosts'     { _bpTotalItems = Nothing     , _bpItems = Nothing     , _bpSelfLink = Nothing@@ -408,12 +408,12 @@         parseJSON           = withObject "BlogPosts"               (\ o ->-                 BlogPosts <$>+                 BlogPosts' <$>                    (o .:? "totalItems") <*> (o .:? "items" .!= mempty)                      <*> (o .:? "selfLink"))  instance ToJSON BlogPosts where-        toJSON BlogPosts{..}+        toJSON BlogPosts'{..}           = object               (catMaybes                  [("totalItems" .=) <$> _bpTotalItems,@@ -422,7 +422,7 @@  -- -- /See:/ 'post' smart constructor.-data Post' = Post'+data Post' = Post''     { _posImages         :: !(Maybe [PostImagesItem])     , _posStatus         :: !(Maybe Text)     , _posEtag           :: !(Maybe Text)@@ -488,7 +488,7 @@ post     :: Post' post =-    Post'+    Post''     { _posImages = Nothing     , _posStatus = Nothing     , _posEtag = Nothing@@ -611,7 +611,7 @@         parseJSON           = withObject "Post"               (\ o ->-                 Post' <$>+                 Post'' <$>                    (o .:? "images" .!= mempty) <*> (o .:? "status") <*>                      (o .:? "etag")                      <*> (o .:? "readerComments")@@ -632,7 +632,7 @@                      <*> (o .:? "title"))  instance ToJSON Post' where-        toJSON Post'{..}+        toJSON Post''{..}           = object               (catMaybes                  [("images" .=) <$> _posImages,@@ -655,7 +655,7 @@  -- -- /See:/ 'page' smart constructor.-data Page = Page+data Page = Page'     { _pagStatus    :: !(Maybe Text)     , _pagEtag      :: !(Maybe Text)     , _pagKind      :: !Text@@ -700,7 +700,7 @@ page     :: Page page =-    Page+    Page'     { _pagStatus = Nothing     , _pagEtag = Nothing     , _pagKind = "blogger#page"@@ -776,7 +776,7 @@         parseJSON           = withObject "Page"               (\ o ->-                 Page <$>+                 Page' <$>                    (o .:? "status") <*> (o .:? "etag") <*>                      (o .:? "kind" .!= "blogger#page")                      <*> (o .:? "published")@@ -790,7 +790,7 @@                      <*> (o .:? "title"))  instance ToJSON Page where-        toJSON Page{..}+        toJSON Page'{..}           = object               (catMaybes                  [("status" .=) <$> _pagStatus,@@ -806,7 +806,7 @@ -- | 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)@@ -824,7 +824,7 @@ blogLocale     :: BlogLocale blogLocale =-    BlogLocale+    BlogLocale'     { _blVariant = Nothing     , _blCountry = Nothing     , _blLanguage = Nothing@@ -849,12 +849,12 @@         parseJSON           = withObject "BlogLocale"               (\ o ->-                 BlogLocale <$>+                 BlogLocale' <$>                    (o .:? "variant") <*> (o .:? "country") <*>                      (o .:? "language"))  instance ToJSON BlogLocale where-        toJSON BlogLocale{..}+        toJSON BlogLocale'{..}           = object               (catMaybes                  [("variant" .=) <$> _blVariant,@@ -864,7 +864,7 @@ -- | The author of this Page. -- -- /See:/ 'pageAuthor' smart constructor.-data PageAuthor = PageAuthor+data PageAuthor = PageAuthor'     { _paImage       :: !(Maybe PageAuthorImage)     , _paURL         :: !(Maybe Text)     , _paDisplayName :: !(Maybe Text)@@ -885,7 +885,7 @@ pageAuthor     :: PageAuthor pageAuthor =-    PageAuthor+    PageAuthor'     { _paImage = Nothing     , _paURL = Nothing     , _paDisplayName = Nothing@@ -914,13 +914,13 @@         parseJSON           = withObject "PageAuthor"               (\ o ->-                 PageAuthor <$>+                 PageAuthor' <$>                    (o .:? "image") <*> (o .:? "url") <*>                      (o .:? "displayName")                      <*> (o .:? "id"))  instance ToJSON PageAuthor where-        toJSON PageAuthor{..}+        toJSON PageAuthor'{..}           = object               (catMaybes                  [("image" .=) <$> _paImage, ("url" .=) <$> _paURL,@@ -929,7 +929,7 @@  -- -- /See:/ 'blog' smart constructor.-data Blog = Blog+data Blog = Blog'     { _bStatus         :: !(Maybe Text)     , _bKind           :: !Text     , _bPages          :: !(Maybe BlogPages)@@ -977,7 +977,7 @@ blog     :: Blog blog =-    Blog+    Blog'     { _bStatus = Nothing     , _bKind = "blogger#blog"     , _bPages = Nothing@@ -1057,7 +1057,7 @@         parseJSON           = withObject "Blog"               (\ o ->-                 Blog <$>+                 Blog' <$>                    (o .:? "status") <*>                      (o .:? "kind" .!= "blogger#blog")                      <*> (o .:? "pages")@@ -1073,7 +1073,7 @@                      <*> (o .:? "description"))  instance ToJSON Blog where-        toJSON Blog{..}+        toJSON Blog'{..}           = object               (catMaybes                  [("status" .=) <$> _bStatus, Just ("kind" .= _bKind),@@ -1090,7 +1090,7 @@ -- | 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)@@ -1105,7 +1105,7 @@ blogPages     :: BlogPages blogPages =-    BlogPages+    BlogPages'     { _bpsTotalItems = Nothing     , _bpsSelfLink = Nothing     }@@ -1126,11 +1126,11 @@         parseJSON           = withObject "BlogPages"               (\ o ->-                 BlogPages <$>+                 BlogPages' <$>                    (o .:? "totalItems") <*> (o .:? "selfLink"))  instance ToJSON BlogPages where-        toJSON BlogPages{..}+        toJSON BlogPages'{..}           = object               (catMaybes                  [("totalItems" .=) <$> _bpsTotalItems,@@ -1139,7 +1139,7 @@ -- | 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) @@ -1151,7 +1151,7 @@ postBlog     :: PostBlog postBlog =-    PostBlog+    PostBlog'     { _pbId = Nothing     } @@ -1162,15 +1162,15 @@ instance FromJSON PostBlog where         parseJSON           = withObject "PostBlog"-              (\ o -> PostBlog <$> (o .:? "id"))+              (\ o -> PostBlog' <$> (o .:? "id"))  instance ToJSON PostBlog where-        toJSON PostBlog{..}+        toJSON PostBlog'{..}           = object (catMaybes [("id" .=) <$> _pbId])  -- -- /See:/ 'pageList' smart constructor.-data PageList = PageList+data PageList = PageList'     { _pllEtag          :: !(Maybe Text)     , _pllNextPageToken :: !(Maybe Text)     , _pllKind          :: !Text@@ -1191,7 +1191,7 @@ pageList     :: PageList pageList =-    PageList+    PageList'     { _pllEtag = Nothing     , _pllNextPageToken = Nothing     , _pllKind = "blogger#pageList"@@ -1223,13 +1223,13 @@         parseJSON           = withObject "PageList"               (\ o ->-                 PageList <$>+                 PageList' <$>                    (o .:? "etag") <*> (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "blogger#pageList")                      <*> (o .:? "items" .!= mempty))  instance ToJSON PageList where-        toJSON PageList{..}+        toJSON PageList'{..}           = object               (catMaybes                  [("etag" .=) <$> _pllEtag,@@ -1240,7 +1240,7 @@ -- | This user\'s locale -- -- /See:/ 'userLocale' smart constructor.-data UserLocale = UserLocale+data UserLocale = UserLocale'     { _ulVariant  :: !(Maybe Text)     , _ulCountry  :: !(Maybe Text)     , _ulLanguage :: !(Maybe Text)@@ -1258,7 +1258,7 @@ userLocale     :: UserLocale userLocale =-    UserLocale+    UserLocale'     { _ulVariant = Nothing     , _ulCountry = Nothing     , _ulLanguage = Nothing@@ -1283,12 +1283,12 @@         parseJSON           = withObject "UserLocale"               (\ o ->-                 UserLocale <$>+                 UserLocale' <$>                    (o .:? "variant") <*> (o .:? "country") <*>                      (o .:? "language"))  instance ToJSON UserLocale where-        toJSON UserLocale{..}+        toJSON UserLocale'{..}           = object               (catMaybes                  [("variant" .=) <$> _ulVariant,@@ -1298,7 +1298,7 @@ -- | The comment creator\'s avatar. -- -- /See:/ 'commentAuthorImage' smart constructor.-newtype CommentAuthorImage = CommentAuthorImage+newtype CommentAuthorImage = CommentAuthorImage'     { _caiURL :: Maybe Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -1310,7 +1310,7 @@ commentAuthorImage     :: CommentAuthorImage commentAuthorImage =-    CommentAuthorImage+    CommentAuthorImage'     { _caiURL = Nothing     } @@ -1321,15 +1321,15 @@ instance FromJSON CommentAuthorImage where         parseJSON           = withObject "CommentAuthorImage"-              (\ o -> CommentAuthorImage <$> (o .:? "url"))+              (\ o -> CommentAuthorImage' <$> (o .:? "url"))  instance ToJSON CommentAuthorImage where-        toJSON CommentAuthorImage{..}+        toJSON CommentAuthorImage'{..}           = object (catMaybes [("url" .=) <$> _caiURL])  -- -- /See:/ 'user' smart constructor.-data User = User+data User = User'     { _uBlogs       :: !(Maybe UserBlogs)     , _uKind        :: !Text     , _uCreated     :: !(Maybe DateTime')@@ -1365,7 +1365,7 @@ user     :: User user =-    User+    User'     { _uBlogs = Nothing     , _uKind = "blogger#user"     , _uCreated = Nothing@@ -1421,7 +1421,7 @@         parseJSON           = withObject "User"               (\ o ->-                 User <$>+                 User' <$>                    (o .:? "blogs") <*> (o .:? "kind" .!= "blogger#user")                      <*> (o .:? "created")                      <*> (o .:? "locale")@@ -1432,7 +1432,7 @@                      <*> (o .:? "id"))  instance ToJSON User where-        toJSON User{..}+        toJSON User'{..}           = object               (catMaybes                  [("blogs" .=) <$> _uBlogs, Just ("kind" .= _uKind),@@ -1446,7 +1446,7 @@ -- | 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) @@ -1458,7 +1458,7 @@ userBlogs     :: UserBlogs userBlogs =-    UserBlogs+    UserBlogs'     { _ubSelfLink = Nothing     } @@ -1470,17 +1470,17 @@ instance FromJSON UserBlogs where         parseJSON           = withObject "UserBlogs"-              (\ o -> UserBlogs <$> (o .:? "selfLink"))+              (\ o -> UserBlogs' <$> (o .:? "selfLink"))  instance ToJSON UserBlogs where-        toJSON UserBlogs{..}+        toJSON UserBlogs'{..}           = object               (catMaybes [("selfLink" .=) <$> _ubSelfLink])  -- | 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)@@ -1498,7 +1498,7 @@ postReplies     :: PostReplies postReplies =-    PostReplies+    PostReplies'     { _prTotalItems = Nothing     , _prItems = Nothing     , _prSelfLink = Nothing@@ -1525,12 +1525,12 @@         parseJSON           = withObject "PostReplies"               (\ o ->-                 PostReplies <$>+                 PostReplies' <$>                    (o .:? "totalItems") <*> (o .:? "items" .!= mempty)                      <*> (o .:? "selfLink"))  instance ToJSON PostReplies where-        toJSON PostReplies{..}+        toJSON PostReplies'{..}           = object               (catMaybes                  [("totalItems" .=) <$> _prTotalItems,@@ -1539,7 +1539,7 @@  -- -- /See:/ 'blogList' smart constructor.-data BlogList = BlogList+data BlogList = BlogList'     { _blKind          :: !Text     , _blItems         :: !(Maybe [Blog])     , _blBlogUserInfos :: !(Maybe [BlogUserInfo])@@ -1557,7 +1557,7 @@ blogList     :: BlogList blogList =-    BlogList+    BlogList'     { _blKind = "blogger#blogList"     , _blItems = Nothing     , _blBlogUserInfos = Nothing@@ -1585,13 +1585,13 @@         parseJSON           = withObject "BlogList"               (\ o ->-                 BlogList <$>+                 BlogList' <$>                    (o .:? "kind" .!= "blogger#blogList") <*>                      (o .:? "items" .!= mempty)                      <*> (o .:? "blogUserInfos" .!= mempty))  instance ToJSON BlogList where-        toJSON BlogList{..}+        toJSON BlogList'{..}           = object               (catMaybes                  [Just ("kind" .= _blKind), ("items" .=) <$> _blItems,@@ -1600,7 +1600,7 @@ -- | 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) @@ -1612,7 +1612,7 @@ pageBlog     :: PageBlog pageBlog =-    PageBlog+    PageBlog'     { _pId = Nothing     } @@ -1623,16 +1623,16 @@ instance FromJSON PageBlog where         parseJSON           = withObject "PageBlog"-              (\ o -> PageBlog <$> (o .:? "id"))+              (\ o -> PageBlog' <$> (o .:? "id"))  instance ToJSON PageBlog where-        toJSON PageBlog{..}+        toJSON PageBlog'{..}           = object (catMaybes [("id" .=) <$> _pId])  -- | The author of this Post. -- -- /See:/ 'postAuthor' smart constructor.-data PostAuthor = PostAuthor+data PostAuthor = PostAuthor'     { _paaImage       :: !(Maybe PostAuthorImage)     , _paaURL         :: !(Maybe Text)     , _paaDisplayName :: !(Maybe Text)@@ -1653,7 +1653,7 @@ postAuthor     :: PostAuthor postAuthor =-    PostAuthor+    PostAuthor'     { _paaImage = Nothing     , _paaURL = Nothing     , _paaDisplayName = Nothing@@ -1682,13 +1682,13 @@         parseJSON           = withObject "PostAuthor"               (\ o ->-                 PostAuthor <$>+                 PostAuthor' <$>                    (o .:? "image") <*> (o .:? "url") <*>                      (o .:? "displayName")                      <*> (o .:? "id"))  instance ToJSON PostAuthor where-        toJSON PostAuthor{..}+        toJSON PostAuthor'{..}           = object               (catMaybes                  [("image" .=) <$> _paaImage, ("url" .=) <$> _paaURL,@@ -1697,7 +1697,7 @@  -- -- /See:/ 'postPerUserInfo' smart constructor.-data PostPerUserInfo = PostPerUserInfo+data PostPerUserInfo = PostPerUserInfo'     { _ppuiKind          :: !Text     , _ppuiBlogId        :: !(Maybe Text)     , _ppuiUserId        :: !(Maybe Text)@@ -1721,7 +1721,7 @@ postPerUserInfo     :: PostPerUserInfo postPerUserInfo =-    PostPerUserInfo+    PostPerUserInfo'     { _ppuiKind = "blogger#postPerUserInfo"     , _ppuiBlogId = Nothing     , _ppuiUserId = Nothing@@ -1758,7 +1758,7 @@         parseJSON           = withObject "PostPerUserInfo"               (\ o ->-                 PostPerUserInfo <$>+                 PostPerUserInfo' <$>                    (o .:? "kind" .!= "blogger#postPerUserInfo") <*>                      (o .:? "blogId")                      <*> (o .:? "userId")@@ -1766,7 +1766,7 @@                      <*> (o .:? "postId"))  instance ToJSON PostPerUserInfo where-        toJSON PostPerUserInfo{..}+        toJSON PostPerUserInfo'{..}           = object               (catMaybes                  [Just ("kind" .= _ppuiKind),@@ -1777,7 +1777,7 @@  -- -- /See:/ 'pageviewsCountsItem' smart constructor.-data PageviewsCountsItem = PageviewsCountsItem+data PageviewsCountsItem = PageviewsCountsItem'     { _pciTimeRange :: !(Maybe Text)     , _pciCount     :: !(Maybe (Textual Int64))     } deriving (Eq,Show,Data,Typeable,Generic)@@ -1792,7 +1792,7 @@ pageviewsCountsItem     :: PageviewsCountsItem pageviewsCountsItem =-    PageviewsCountsItem+    PageviewsCountsItem'     { _pciTimeRange = Nothing     , _pciCount = Nothing     }@@ -1812,11 +1812,11 @@         parseJSON           = withObject "PageviewsCountsItem"               (\ o ->-                 PageviewsCountsItem <$>+                 PageviewsCountsItem' <$>                    (o .:? "timeRange") <*> (o .:? "count"))  instance ToJSON PageviewsCountsItem where-        toJSON PageviewsCountsItem{..}+        toJSON PageviewsCountsItem'{..}           = object               (catMaybes                  [("timeRange" .=) <$> _pciTimeRange,@@ -1824,7 +1824,7 @@  -- -- /See:/ 'comment' smart constructor.-data Comment = Comment+data Comment = Comment'     { _cStatus    :: !(Maybe Text)     , _cPost      :: !(Maybe CommentPost)     , _cKind      :: !Text@@ -1866,7 +1866,7 @@ comment     :: Comment comment =-    Comment+    Comment'     { _cStatus = Nothing     , _cPost = Nothing     , _cKind = "blogger#comment"@@ -1934,7 +1934,7 @@         parseJSON           = withObject "Comment"               (\ o ->-                 Comment <$>+                 Comment' <$>                    (o .:? "status") <*> (o .:? "post") <*>                      (o .:? "kind" .!= "blogger#comment")                      <*> (o .:? "published")@@ -1947,7 +1947,7 @@                      <*> (o .:? "inReplyTo"))  instance ToJSON Comment where-        toJSON Comment{..}+        toJSON Comment'{..}           = object               (catMaybes                  [("status" .=) <$> _cStatus, ("post" .=) <$> _cPost,@@ -1962,7 +1962,7 @@ -- | 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) @@ -1974,7 +1974,7 @@ commentPost     :: CommentPost commentPost =-    CommentPost+    CommentPost'     { _cpId = Nothing     } @@ -1985,15 +1985,15 @@ instance FromJSON CommentPost where         parseJSON           = withObject "CommentPost"-              (\ o -> CommentPost <$> (o .:? "id"))+              (\ o -> CommentPost' <$> (o .:? "id"))  instance ToJSON CommentPost where-        toJSON CommentPost{..}+        toJSON CommentPost'{..}           = object (catMaybes [("id" .=) <$> _cpId])  -- -- /See:/ 'blogPerUserInfo' smart constructor.-data BlogPerUserInfo = BlogPerUserInfo+data BlogPerUserInfo = BlogPerUserInfo'     { _bpuiPhotosAlbumKey :: !(Maybe Text)     , _bpuiKind           :: !Text     , _bpuiBlogId         :: !(Maybe Text)@@ -2020,7 +2020,7 @@ blogPerUserInfo     :: BlogPerUserInfo blogPerUserInfo =-    BlogPerUserInfo+    BlogPerUserInfo'     { _bpuiPhotosAlbumKey = Nothing     , _bpuiKind = "blogger#blogPerUserInfo"     , _bpuiBlogId = Nothing@@ -2064,7 +2064,7 @@         parseJSON           = withObject "BlogPerUserInfo"               (\ o ->-                 BlogPerUserInfo <$>+                 BlogPerUserInfo' <$>                    (o .:? "photosAlbumKey") <*>                      (o .:? "kind" .!= "blogger#blogPerUserInfo")                      <*> (o .:? "blogId")@@ -2073,7 +2073,7 @@                      <*> (o .:? "hasAdminAccess"))  instance ToJSON BlogPerUserInfo where-        toJSON BlogPerUserInfo{..}+        toJSON BlogPerUserInfo'{..}           = object               (catMaybes                  [("photosAlbumKey" .=) <$> _bpuiPhotosAlbumKey,@@ -2085,7 +2085,7 @@  -- -- /See:/ 'postUserInfosList' smart constructor.-data PostUserInfosList = PostUserInfosList+data PostUserInfosList = PostUserInfosList'     { _puilNextPageToken :: !(Maybe Text)     , _puilKind          :: !Text     , _puilItems         :: !(Maybe [PostUserInfo])@@ -2103,7 +2103,7 @@ postUserInfosList     :: PostUserInfosList postUserInfosList =-    PostUserInfosList+    PostUserInfosList'     { _puilNextPageToken = Nothing     , _puilKind = "blogger#postUserInfosList"     , _puilItems = Nothing@@ -2130,13 +2130,13 @@         parseJSON           = withObject "PostUserInfosList"               (\ o ->-                 PostUserInfosList <$>+                 PostUserInfosList' <$>                    (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "blogger#postUserInfosList")                      <*> (o .:? "items" .!= mempty))  instance ToJSON PostUserInfosList where-        toJSON PostUserInfosList{..}+        toJSON PostUserInfosList'{..}           = object               (catMaybes                  [("nextPageToken" .=) <$> _puilNextPageToken,@@ -2146,7 +2146,7 @@ -- | The author of this Comment. -- -- /See:/ 'commentAuthor' smart constructor.-data CommentAuthor = CommentAuthor+data CommentAuthor = CommentAuthor'     { _caImage       :: !(Maybe CommentAuthorImage)     , _caURL         :: !(Maybe Text)     , _caDisplayName :: !(Maybe Text)@@ -2167,7 +2167,7 @@ commentAuthor     :: CommentAuthor commentAuthor =-    CommentAuthor+    CommentAuthor'     { _caImage = Nothing     , _caURL = Nothing     , _caDisplayName = Nothing@@ -2196,13 +2196,13 @@         parseJSON           = withObject "CommentAuthor"               (\ o ->-                 CommentAuthor <$>+                 CommentAuthor' <$>                    (o .:? "image") <*> (o .:? "url") <*>                      (o .:? "displayName")                      <*> (o .:? "id"))  instance ToJSON CommentAuthor where-        toJSON CommentAuthor{..}+        toJSON CommentAuthor'{..}           = object               (catMaybes                  [("image" .=) <$> _caImage, ("url" .=) <$> _caURL,@@ -2211,7 +2211,7 @@  -- -- /See:/ 'blogUserInfo' smart constructor.-data BlogUserInfo = BlogUserInfo+data BlogUserInfo = BlogUserInfo'     { _buiKind         :: !Text     , _buiBlog         :: !(Maybe Blog)     , _buiBlogUserInfo :: !(Maybe BlogPerUserInfo)@@ -2229,7 +2229,7 @@ blogUserInfo     :: BlogUserInfo blogUserInfo =-    BlogUserInfo+    BlogUserInfo'     { _buiKind = "blogger#blogUserInfo"     , _buiBlog = Nothing     , _buiBlogUserInfo = Nothing@@ -2253,13 +2253,13 @@         parseJSON           = withObject "BlogUserInfo"               (\ o ->-                 BlogUserInfo <$>+                 BlogUserInfo' <$>                    (o .:? "kind" .!= "blogger#blogUserInfo") <*>                      (o .:? "blog")                      <*> (o .:? "blog_user_info"))  instance ToJSON BlogUserInfo where-        toJSON BlogUserInfo{..}+        toJSON BlogUserInfo'{..}           = object               (catMaybes                  [Just ("kind" .= _buiKind), ("blog" .=) <$> _buiBlog,@@ -2268,7 +2268,7 @@ -- | The page author\'s avatar. -- -- /See:/ 'pageAuthorImage' smart constructor.-newtype PageAuthorImage = PageAuthorImage+newtype PageAuthorImage = PageAuthorImage'     { _pURL :: Maybe Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -2280,7 +2280,7 @@ pageAuthorImage     :: PageAuthorImage pageAuthorImage =-    PageAuthorImage+    PageAuthorImage'     { _pURL = Nothing     } @@ -2291,15 +2291,15 @@ instance FromJSON PageAuthorImage where         parseJSON           = withObject "PageAuthorImage"-              (\ o -> PageAuthorImage <$> (o .:? "url"))+              (\ o -> PageAuthorImage' <$> (o .:? "url"))  instance ToJSON PageAuthorImage where-        toJSON PageAuthorImage{..}+        toJSON PageAuthorImage'{..}           = object (catMaybes [("url" .=) <$> _pURL])  -- -- /See:/ 'commentList' smart constructor.-data CommentList = CommentList+data CommentList = CommentList'     { _clEtag          :: !(Maybe Text)     , _clNextPageToken :: !(Maybe Text)     , _clKind          :: !Text@@ -2323,7 +2323,7 @@ commentList     :: CommentList commentList =-    CommentList+    CommentList'     { _clEtag = Nothing     , _clNextPageToken = Nothing     , _clKind = "blogger#commentList"@@ -2361,14 +2361,14 @@         parseJSON           = withObject "CommentList"               (\ o ->-                 CommentList <$>+                 CommentList' <$>                    (o .:? "etag") <*> (o .:? "nextPageToken") <*>                      (o .:? "kind" .!= "blogger#commentList")                      <*> (o .:? "items" .!= mempty)                      <*> (o .:? "prevPageToken"))  instance ToJSON CommentList where-        toJSON CommentList{..}+        toJSON CommentList'{..}           = object               (catMaybes                  [("etag" .=) <$> _clEtag,@@ -2378,7 +2378,7 @@  -- -- /See:/ 'postImagesItem' smart constructor.-newtype PostImagesItem = PostImagesItem+newtype PostImagesItem = PostImagesItem'     { _piiURL :: Maybe Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -2390,7 +2390,7 @@ postImagesItem     :: PostImagesItem postImagesItem =-    PostImagesItem+    PostImagesItem'     { _piiURL = Nothing     } @@ -2400,8 +2400,8 @@ instance FromJSON PostImagesItem where         parseJSON           = withObject "PostImagesItem"-              (\ o -> PostImagesItem <$> (o .:? "url"))+              (\ o -> PostImagesItem' <$> (o .:? "url"))  instance ToJSON PostImagesItem where-        toJSON PostImagesItem{..}+        toJSON PostImagesItem'{..}           = object (catMaybes [("url" .=) <$> _piiURL])

@@ -8,7 +8,7 @@  -- | -- Module      : Network.Google.Blogger.Types.Sum--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -26,18 +26,18 @@     | Updated       -- ^ @updated@       -- Order by the date the post was last updated-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable PostsListOrderBy -instance FromText PostsListOrderBy where-    fromText = \case-        "published" -> Just Published-        "updated" -> Just Updated-        _ -> Nothing+instance FromHttpApiData PostsListOrderBy where+    parseQueryParam = \case+        "published" -> Right Published+        "updated" -> Right Updated+        x -> Left ("Unable to parse PostsListOrderBy from: " <> x) -instance ToText PostsListOrderBy where-    toText = \case+instance ToHttpApiData PostsListOrderBy where+    toQueryParam = \case         Published -> "published"         Updated -> "updated" @@ -59,19 +59,19 @@     | Reader       -- ^ @READER@       -- Reader level detail-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable PostsListView -instance FromText PostsListView where-    fromText = \case-        "ADMIN" -> Just Admin-        "AUTHOR" -> Just Author-        "READER" -> Just Reader-        _ -> Nothing+instance FromHttpApiData PostsListView where+    parseQueryParam = \case+        "ADMIN" -> Right Admin+        "AUTHOR" -> Right Author+        "READER" -> Right Reader+        x -> Left ("Unable to parse PostsListView from: " <> x) -instance ToText PostsListView where-    toText = \case+instance ToHttpApiData PostsListView where+    toQueryParam = \case         Admin -> "ADMIN"         Author -> "AUTHOR"         Reader -> "READER"@@ -92,19 +92,19 @@     | PVGRAll       -- ^ @all@       -- Total page view counts from all time.-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable PageViewsGetRange -instance FromText PageViewsGetRange where-    fromText = \case-        "30DAYS" -> Just PVGR30DAYS-        "7DAYS" -> Just PVGR7DAYS-        "all" -> Just PVGRAll-        _ -> Nothing+instance FromHttpApiData PageViewsGetRange where+    parseQueryParam = \case+        "30DAYS" -> Right PVGR30DAYS+        "7DAYS" -> Right PVGR7DAYS+        "all" -> Right PVGRAll+        x -> Left ("Unable to parse PageViewsGetRange from: " <> x) -instance ToText PageViewsGetRange where-    toText = \case+instance ToHttpApiData PageViewsGetRange where+    toQueryParam = \case         PVGR30DAYS -> "30DAYS"         PVGR7DAYS -> "7DAYS"         PVGRAll -> "all"@@ -127,19 +127,19 @@     | CLVReader       -- ^ @READER@       -- Reader level detail-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable CommentsListView -instance FromText CommentsListView where-    fromText = \case-        "ADMIN" -> Just CLVAdmin-        "AUTHOR" -> Just CLVAuthor-        "READER" -> Just CLVReader-        _ -> Nothing+instance FromHttpApiData CommentsListView where+    parseQueryParam = \case+        "ADMIN" -> Right CLVAdmin+        "AUTHOR" -> Right CLVAuthor+        "READER" -> Right CLVReader+        x -> Left ("Unable to parse CommentsListView from: " <> x) -instance ToText CommentsListView where-    toText = \case+instance ToHttpApiData CommentsListView where+    toQueryParam = \case         CLVAdmin -> "ADMIN"         CLVAuthor -> "AUTHOR"         CLVReader -> "READER"@@ -160,19 +160,19 @@     | Scheduled       -- ^ @scheduled@       -- Posts that are scheduled to publish in future.-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable PostUserInfosListStatus -instance FromText PostUserInfosListStatus where-    fromText = \case-        "draft" -> Just Draft-        "live" -> Just Live-        "scheduled" -> Just Scheduled-        _ -> Nothing+instance FromHttpApiData PostUserInfosListStatus where+    parseQueryParam = \case+        "draft" -> Right Draft+        "live" -> Right Live+        "scheduled" -> Right Scheduled+        x -> Left ("Unable to parse PostUserInfosListStatus from: " <> x) -instance ToText PostUserInfosListStatus where-    toText = \case+instance ToHttpApiData PostUserInfosListStatus where+    toQueryParam = \case         Draft -> "draft"         Live -> "live"         Scheduled -> "scheduled"@@ -195,19 +195,19 @@     | PGVReader       -- ^ @READER@       -- Reader level detail-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable PostsGetView -instance FromText PostsGetView where-    fromText = \case-        "ADMIN" -> Just PGVAdmin-        "AUTHOR" -> Just PGVAuthor-        "READER" -> Just PGVReader-        _ -> Nothing+instance FromHttpApiData PostsGetView where+    parseQueryParam = \case+        "ADMIN" -> Right PGVAdmin+        "AUTHOR" -> Right PGVAuthor+        "READER" -> Right PGVReader+        x -> Left ("Unable to parse PostsGetView from: " <> x) -instance ToText PostsGetView where-    toText = \case+instance ToHttpApiData PostsGetView where+    toQueryParam = \case         PGVAdmin -> "ADMIN"         PGVAuthor -> "AUTHOR"         PGVReader -> "READER"@@ -226,18 +226,18 @@     | PSOBUpdated       -- ^ @updated@       -- Order by the date the post was last updated-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable PostsSearchOrderBy -instance FromText PostsSearchOrderBy where-    fromText = \case-        "published" -> Just PSOBPublished-        "updated" -> Just PSOBUpdated-        _ -> Nothing+instance FromHttpApiData PostsSearchOrderBy where+    parseQueryParam = \case+        "published" -> Right PSOBPublished+        "updated" -> Right PSOBUpdated+        x -> Left ("Unable to parse PostsSearchOrderBy from: " <> x) -instance ToText PostsSearchOrderBy where-    toText = \case+instance ToHttpApiData PostsSearchOrderBy where+    toQueryParam = \case         PSOBPublished -> "published"         PSOBUpdated -> "updated" @@ -260,20 +260,20 @@     | CLBBSSpam       -- ^ @spam@       -- Comments marked as spam by the administrator-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable CommentsListByBlogStatus -instance FromText CommentsListByBlogStatus where-    fromText = \case-        "emptied" -> Just CLBBSEmptied-        "live" -> Just CLBBSLive-        "pending" -> Just CLBBSPending-        "spam" -> Just CLBBSSpam-        _ -> Nothing+instance FromHttpApiData CommentsListByBlogStatus where+    parseQueryParam = \case+        "emptied" -> Right CLBBSEmptied+        "live" -> Right CLBBSLive+        "pending" -> Right CLBBSPending+        "spam" -> Right CLBBSSpam+        x -> Left ("Unable to parse CommentsListByBlogStatus from: " <> x) -instance ToText CommentsListByBlogStatus where-    toText = \case+instance ToHttpApiData CommentsListByBlogStatus where+    toQueryParam = \case         CLBBSEmptied -> "emptied"         CLBBSLive -> "live"         CLBBSPending -> "pending"@@ -295,19 +295,19 @@     | PReader       -- ^ @READER@       -- Reader level detail-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable PagesGetView -instance FromText PagesGetView where-    fromText = \case-        "ADMIN" -> Just PAdmin-        "AUTHOR" -> Just PAuthor-        "READER" -> Just PReader-        _ -> Nothing+instance FromHttpApiData PagesGetView where+    parseQueryParam = \case+        "ADMIN" -> Right PAdmin+        "AUTHOR" -> Right PAuthor+        "READER" -> Right PReader+        x -> Left ("Unable to parse PagesGetView from: " <> x) -instance ToText PagesGetView where-    toText = \case+instance ToHttpApiData PagesGetView where+    toQueryParam = \case         PAdmin -> "ADMIN"         PAuthor -> "AUTHOR"         PReader -> "READER"@@ -326,18 +326,18 @@     | PUILOBUpdated       -- ^ @updated@       -- Order by the date the post was last updated-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable PostUserInfosListOrderBy -instance FromText PostUserInfosListOrderBy where-    fromText = \case-        "published" -> Just PUILOBPublished-        "updated" -> Just PUILOBUpdated-        _ -> Nothing+instance FromHttpApiData PostUserInfosListOrderBy where+    parseQueryParam = \case+        "published" -> Right PUILOBPublished+        "updated" -> Right PUILOBUpdated+        x -> Left ("Unable to parse PostUserInfosListOrderBy from: " <> x) -instance ToText PostUserInfosListOrderBy where-    toText = \case+instance ToHttpApiData PostUserInfosListOrderBy where+    toQueryParam = \case         PUILOBPublished -> "published"         PUILOBUpdated -> "updated" @@ -359,19 +359,19 @@     | BGVReader       -- ^ @READER@       -- Reader level detail.-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable BlogsGetView -instance FromText BlogsGetView where-    fromText = \case-        "ADMIN" -> Just BGVAdmin-        "AUTHOR" -> Just BGVAuthor-        "READER" -> Just BGVReader-        _ -> Nothing+instance FromHttpApiData BlogsGetView where+    parseQueryParam = \case+        "ADMIN" -> Right BGVAdmin+        "AUTHOR" -> Right BGVAuthor+        "READER" -> Right BGVReader+        x -> Left ("Unable to parse BlogsGetView from: " <> x) -instance ToText BlogsGetView where-    toText = \case+instance ToHttpApiData BlogsGetView where+    toQueryParam = \case         BGVAdmin -> "ADMIN"         BGVAuthor -> "AUTHOR"         BGVReader -> "READER"@@ -394,19 +394,19 @@     | BGBUVReader       -- ^ @READER@       -- Reader level detail.-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable BlogsGetByURLView -instance FromText BlogsGetByURLView where-    fromText = \case-        "ADMIN" -> Just BGBUVAdmin-        "AUTHOR" -> Just BGBUVAuthor-        "READER" -> Just BGBUVReader-        _ -> Nothing+instance FromHttpApiData BlogsGetByURLView where+    parseQueryParam = \case+        "ADMIN" -> Right BGBUVAdmin+        "AUTHOR" -> Right BGBUVAuthor+        "READER" -> Right BGBUVReader+        x -> Left ("Unable to parse BlogsGetByURLView from: " <> x) -instance ToText BlogsGetByURLView where-    toText = \case+instance ToHttpApiData BlogsGetByURLView where+    toQueryParam = \case         BGBUVAdmin -> "ADMIN"         BGBUVAuthor -> "AUTHOR"         BGBUVReader -> "READER"@@ -430,20 +430,20 @@     | CLSSpam       -- ^ @spam@       -- Comments marked as spam by the administrator-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable CommentsListStatus -instance FromText CommentsListStatus where-    fromText = \case-        "emptied" -> Just CLSEmptied-        "live" -> Just CLSLive-        "pending" -> Just CLSPending-        "spam" -> Just CLSSpam-        _ -> Nothing+instance FromHttpApiData CommentsListStatus where+    parseQueryParam = \case+        "emptied" -> Right CLSEmptied+        "live" -> Right CLSLive+        "pending" -> Right CLSPending+        "spam" -> Right CLSSpam+        x -> Left ("Unable to parse CommentsListStatus from: " <> x) -instance ToText CommentsListStatus where-    toText = \case+instance ToHttpApiData CommentsListStatus where+    toQueryParam = \case         CLSEmptied -> "emptied"         CLSLive -> "live"         CLSPending -> "pending"@@ -464,18 +464,18 @@     | BLBUSLive       -- ^ @LIVE@       -- Blog is currently live.-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable BlogsListByUserStatus -instance FromText BlogsListByUserStatus where-    fromText = \case-        "DELETED" -> Just BLBUSDeleted-        "LIVE" -> Just BLBUSLive-        _ -> Nothing+instance FromHttpApiData BlogsListByUserStatus where+    parseQueryParam = \case+        "DELETED" -> Right BLBUSDeleted+        "LIVE" -> Right BLBUSLive+        x -> Left ("Unable to parse BlogsListByUserStatus from: " <> x) -instance ToText BlogsListByUserStatus where-    toText = \case+instance ToHttpApiData BlogsListByUserStatus where+    toQueryParam = \case         BLBUSDeleted -> "DELETED"         BLBUSLive -> "LIVE" @@ -497,19 +497,19 @@     | PLVReader       -- ^ @READER@       -- Reader level detail-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable PagesListView -instance FromText PagesListView where-    fromText = \case-        "ADMIN" -> Just PLVAdmin-        "AUTHOR" -> Just PLVAuthor-        "READER" -> Just PLVReader-        _ -> Nothing+instance FromHttpApiData PagesListView where+    parseQueryParam = \case+        "ADMIN" -> Right PLVAdmin+        "AUTHOR" -> Right PLVAuthor+        "READER" -> Right PLVReader+        x -> Left ("Unable to parse PagesListView from: " <> x) -instance ToText PagesListView where-    toText = \case+instance ToHttpApiData PagesListView where+    toQueryParam = \case         PLVAdmin -> "ADMIN"         PLVAuthor -> "AUTHOR"         PLVReader -> "READER"@@ -531,19 +531,19 @@     | PLSScheduled       -- ^ @scheduled@       -- Posts that are scheduled to publish in the future.-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable PostsListStatus -instance FromText PostsListStatus where-    fromText = \case-        "draft" -> Just PLSDraft-        "live" -> Just PLSLive-        "scheduled" -> Just PLSScheduled-        _ -> Nothing+instance FromHttpApiData PostsListStatus where+    parseQueryParam = \case+        "draft" -> Right PLSDraft+        "live" -> Right PLSLive+        "scheduled" -> Right PLSScheduled+        x -> Left ("Unable to parse PostsListStatus from: " <> x) -instance ToText PostsListStatus where-    toText = \case+instance ToHttpApiData PostsListStatus where+    toQueryParam = \case         PLSDraft -> "draft"         PLSLive -> "live"         PLSScheduled -> "scheduled"@@ -566,19 +566,19 @@     | BLBUVReader       -- ^ @READER@       -- Reader level detail.-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable BlogsListByUserView -instance FromText BlogsListByUserView where-    fromText = \case-        "ADMIN" -> Just BLBUVAdmin-        "AUTHOR" -> Just BLBUVAuthor-        "READER" -> Just BLBUVReader-        _ -> Nothing+instance FromHttpApiData BlogsListByUserView where+    parseQueryParam = \case+        "ADMIN" -> Right BLBUVAdmin+        "AUTHOR" -> Right BLBUVAuthor+        "READER" -> Right BLBUVReader+        x -> Left ("Unable to parse BlogsListByUserView from: " <> x) -instance ToText BlogsListByUserView where-    toText = \case+instance ToHttpApiData BlogsListByUserView where+    toQueryParam = \case         BLBUVAdmin -> "ADMIN"         BLBUVAuthor -> "AUTHOR"         BLBUVReader -> "READER"@@ -601,19 +601,19 @@     | PUILVReader       -- ^ @READER@       -- Reader level detail-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable PostUserInfosListView -instance FromText PostUserInfosListView where-    fromText = \case-        "ADMIN" -> Just PUILVAdmin-        "AUTHOR" -> Just PUILVAuthor-        "READER" -> Just PUILVReader-        _ -> Nothing+instance FromHttpApiData PostUserInfosListView where+    parseQueryParam = \case+        "ADMIN" -> Right PUILVAdmin+        "AUTHOR" -> Right PUILVAuthor+        "READER" -> Right PUILVReader+        x -> Left ("Unable to parse PostUserInfosListView from: " <> x) -instance ToText PostUserInfosListView where-    toText = \case+instance ToHttpApiData PostUserInfosListView where+    toQueryParam = \case         PUILVAdmin -> "ADMIN"         PUILVAuthor -> "AUTHOR"         PUILVReader -> "READER"@@ -638,19 +638,19 @@     | CGVReader       -- ^ @READER@       -- Admin level detail-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable CommentsGetView -instance FromText CommentsGetView where-    fromText = \case-        "ADMIN" -> Just CGVAdmin-        "AUTHOR" -> Just CGVAuthor-        "READER" -> Just CGVReader-        _ -> Nothing+instance FromHttpApiData CommentsGetView where+    parseQueryParam = \case+        "ADMIN" -> Right CGVAdmin+        "AUTHOR" -> Right CGVAuthor+        "READER" -> Right CGVReader+        x -> Left ("Unable to parse CommentsGetView from: " <> x) -instance ToText CommentsGetView where-    toText = \case+instance ToHttpApiData CommentsGetView where+    toQueryParam = \case         CGVAdmin -> "ADMIN"         CGVAuthor -> "AUTHOR"         CGVReader -> "READER"@@ -673,19 +673,19 @@     | PGBPVReader       -- ^ @READER@       -- Reader level detail-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable PostsGetByPathView -instance FromText PostsGetByPathView where-    fromText = \case-        "ADMIN" -> Just PGBPVAdmin-        "AUTHOR" -> Just PGBPVAuthor-        "READER" -> Just PGBPVReader-        _ -> Nothing+instance FromHttpApiData PostsGetByPathView where+    parseQueryParam = \case+        "ADMIN" -> Right PGBPVAdmin+        "AUTHOR" -> Right PGBPVAuthor+        "READER" -> Right PGBPVReader+        x -> Left ("Unable to parse PostsGetByPathView from: " <> x) -instance ToText PostsGetByPathView where-    toText = \case+instance ToHttpApiData PostsGetByPathView where+    toQueryParam = \case         PGBPVAdmin -> "ADMIN"         PGBPVAuthor -> "AUTHOR"         PGBPVReader -> "READER"@@ -703,18 +703,18 @@     | PLive       -- ^ @live@       -- Pages that are publicly visible-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable PagesListStatus -instance FromText PagesListStatus where-    fromText = \case-        "draft" -> Just PDraft-        "live" -> Just PLive-        _ -> Nothing+instance FromHttpApiData PagesListStatus where+    parseQueryParam = \case+        "draft" -> Right PDraft+        "live" -> Right PLive+        x -> Left ("Unable to parse PagesListStatus from: " <> x) -instance ToText PagesListStatus where-    toText = \case+instance ToHttpApiData PagesListStatus where+    toQueryParam = \case         PDraft -> "draft"         PLive -> "live" @@ -738,19 +738,19 @@       -- ^ @READER@       -- Reader role - Blogs where the user has Reader level access (to a private       -- blog).-      deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable BlogsListByUserRole -instance FromText BlogsListByUserRole where-    fromText = \case-        "ADMIN" -> Just BLBURAdmin-        "AUTHOR" -> Just BLBURAuthor-        "READER" -> Just BLBURReader-        _ -> Nothing+instance FromHttpApiData BlogsListByUserRole where+    parseQueryParam = \case+        "ADMIN" -> Right BLBURAdmin+        "AUTHOR" -> Right BLBURAuthor+        "READER" -> Right BLBURReader+        x -> Left ("Unable to parse BlogsListByUserRole from: " <> x) -instance ToText BlogsListByUserRole where-    toText = \case+instance ToHttpApiData BlogsListByUserRole where+    toQueryParam = \case         BLBURAdmin -> "ADMIN"         BLBURAuthor -> "AUTHOR"         BLBURReader -> "READER"

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.BlogUserInfos.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- | 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))@@ -76,7 +76,7 @@     -> Text -- ^ 'buigUserId'     -> BlogUserInfosGet blogUserInfosGet pBuigBlogId_ pBuigUserId_ =-    BlogUserInfosGet+    BlogUserInfosGet'     { _buigBlogId = pBuigBlogId_     , _buigUserId = pBuigUserId_     , _buigMaxPosts = Nothing@@ -101,7 +101,10 @@  instance GoogleRequest BlogUserInfosGet where         type Rs BlogUserInfosGet = BlogUserInfo-        requestClient BlogUserInfosGet{..}+        type Scopes BlogUserInfosGet =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient BlogUserInfosGet'{..}           = go _buigUserId _buigBlogId _buigMaxPosts               (Just AltJSON)               bloggerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Blogs.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | Gets one blog by ID. -- -- /See:/ 'blogsGet' smart constructor.-data BlogsGet = BlogsGet+data BlogsGet = BlogsGet'     { _bgBlogId   :: !Text     , _bgMaxPosts :: !(Maybe (Textual Word32))     , _bgView     :: !(Maybe BlogsGetView)@@ -74,7 +74,7 @@     :: Text -- ^ 'bgBlogId'     -> BlogsGet blogsGet pBgBlogId_ =-    BlogsGet+    BlogsGet'     { _bgBlogId = pBgBlogId_     , _bgMaxPosts = Nothing     , _bgView = Nothing@@ -97,7 +97,10 @@  instance GoogleRequest BlogsGet where         type Rs BlogsGet = Blog-        requestClient BlogsGet{..}+        type Scopes BlogsGet =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient BlogsGet'{..}           = go _bgBlogId _bgMaxPosts _bgView (Just AltJSON)               bloggerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Blogs.GetByURL--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | 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)@@ -70,7 +70,7 @@     :: Text -- ^ 'bgbuURL'     -> BlogsGetByURL blogsGetByURL pBgbuURL_ =-    BlogsGetByURL+    BlogsGetByURL'     { _bgbuURL = pBgbuURL_     , _bgbuView = Nothing     }@@ -86,7 +86,10 @@  instance GoogleRequest BlogsGetByURL where         type Rs BlogsGetByURL = Blog-        requestClient BlogsGetByURL{..}+        type Scopes BlogsGetByURL =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient BlogsGetByURL'{..}           = go (Just _bgbuURL) _bgbuView (Just AltJSON)               bloggerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Blogs.ListByUser--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -60,7 +60,7 @@ -- | Retrieves a list of blogs, possibly filtered. -- -- /See:/ 'blogsListByUser' smart constructor.-data BlogsListByUser = BlogsListByUser+data BlogsListByUser = BlogsListByUser'     { _blbuStatus        :: ![BlogsListByUserStatus]     , _blbuFetchUserInfo :: !(Maybe Bool)     , _blbuUserId        :: !Text@@ -85,7 +85,7 @@     :: Text -- ^ 'blbuUserId'     -> BlogsListByUser blogsListByUser pBlbuUserId_ =-    BlogsListByUser+    BlogsListByUser'     { _blbuStatus = [BLBUSLive]     , _blbuFetchUserInfo = Nothing     , _blbuUserId = pBlbuUserId_@@ -129,7 +129,10 @@  instance GoogleRequest BlogsListByUser where         type Rs BlogsListByUser = BlogList-        requestClient BlogsListByUser{..}+        type Scopes BlogsListByUser =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient BlogsListByUser'{..}           = go _blbuUserId _blbuStatus _blbuFetchUserInfo               (_blbuRole ^. _Default)               _blbuView

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Comments.Approve--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Marks a comment as not spam. -- -- /See:/ 'commentsApprove' smart constructor.-data CommentsApprove = CommentsApprove+data CommentsApprove = CommentsApprove'     { _caBlogId    :: !Text     , _caPostId    :: !Text     , _caCommentId :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'caCommentId'     -> CommentsApprove commentsApprove pCaBlogId_ pCaPostId_ pCaCommentId_ =-    CommentsApprove+    CommentsApprove'     { _caBlogId = pCaBlogId_     , _caPostId = pCaPostId_     , _caCommentId = pCaCommentId_@@ -100,7 +100,9 @@  instance GoogleRequest CommentsApprove where         type Rs CommentsApprove = Comment-        requestClient CommentsApprove{..}+        type Scopes CommentsApprove =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient CommentsApprove'{..}           = go _caBlogId _caPostId _caCommentId (Just AltJSON)               bloggerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Comments.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -57,7 +57,7 @@ -- | Delete a comment by ID. -- -- /See:/ 'commentsDelete' smart constructor.-data CommentsDelete = CommentsDelete+data CommentsDelete = CommentsDelete'     { _cdBlogId    :: !Text     , _cdPostId    :: !Text     , _cdCommentId :: !Text@@ -78,7 +78,7 @@     -> Text -- ^ 'cdCommentId'     -> CommentsDelete commentsDelete pCdBlogId_ pCdPostId_ pCdCommentId_ =-    CommentsDelete+    CommentsDelete'     { _cdBlogId = pCdBlogId_     , _cdPostId = pCdPostId_     , _cdCommentId = pCdCommentId_@@ -99,7 +99,9 @@  instance GoogleRequest CommentsDelete where         type Rs CommentsDelete = ()-        requestClient CommentsDelete{..}+        type Scopes CommentsDelete =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient CommentsDelete'{..}           = go _cdBlogId _cdPostId _cdCommentId (Just AltJSON)               bloggerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Comments.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@ -- | Gets one comment by ID. -- -- /See:/ 'commentsGet' smart constructor.-data CommentsGet = CommentsGet+data CommentsGet = CommentsGet'     { _cgBlogId    :: !Text     , _cgView      :: !(Maybe CommentsGetView)     , _cgPostId    :: !Text@@ -83,7 +83,7 @@     -> Text -- ^ 'cgCommentId'     -> CommentsGet commentsGet pCgBlogId_ pCgPostId_ pCgCommentId_ =-    CommentsGet+    CommentsGet'     { _cgBlogId = pCgBlogId_     , _cgView = Nothing     , _cgPostId = pCgPostId_@@ -112,7 +112,10 @@  instance GoogleRequest CommentsGet where         type Rs CommentsGet = Comment-        requestClient CommentsGet{..}+        type Scopes CommentsGet =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient CommentsGet'{..}           = go _cgBlogId _cgPostId _cgCommentId _cgView               (Just AltJSON)               bloggerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Comments.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -70,7 +70,7 @@ -- | 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@@ -108,7 +108,7 @@     -> Text -- ^ 'clPostId'     -> CommentsList commentsList pClBlogId_ pClPostId_ =-    CommentsList+    CommentsList'     { _clStatus = Nothing     , _clEndDate = Nothing     , _clBlogId = pClBlogId_@@ -170,7 +170,10 @@  instance GoogleRequest CommentsList where         type Rs CommentsList = CommentList-        requestClient CommentsList{..}+        type Scopes CommentsList =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient CommentsList'{..}           = go _clBlogId _clPostId (_clStatus ^. _Default)               _clEndDate               _clStartDate

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Comments.ListByBlog--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@ -- | 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@@ -95,7 +95,7 @@     :: Text -- ^ 'clbbBlogId'     -> CommentsListByBlog commentsListByBlog pClbbBlogId_ =-    CommentsListByBlog+    CommentsListByBlog'     { _clbbStatus = Nothing     , _clbbEndDate = Nothing     , _clbbBlogId = pClbbBlogId_@@ -150,7 +150,10 @@  instance GoogleRequest CommentsListByBlog where         type Rs CommentsListByBlog = CommentList-        requestClient CommentsListByBlog{..}+        type Scopes CommentsListByBlog =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient CommentsListByBlog'{..}           = go _clbbBlogId (_clbbStatus ^. _Default)               _clbbEndDate               _clbbStartDate

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Comments.MarkAsSpam--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Marks a comment as spam. -- -- /See:/ 'commentsMarkAsSpam' smart constructor.-data CommentsMarkAsSpam = CommentsMarkAsSpam+data CommentsMarkAsSpam = CommentsMarkAsSpam'     { _cmasBlogId    :: !Text     , _cmasPostId    :: !Text     , _cmasCommentId :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'cmasCommentId'     -> CommentsMarkAsSpam commentsMarkAsSpam pCmasBlogId_ pCmasPostId_ pCmasCommentId_ =-    CommentsMarkAsSpam+    CommentsMarkAsSpam'     { _cmasBlogId = pCmasBlogId_     , _cmasPostId = pCmasPostId_     , _cmasCommentId = pCmasCommentId_@@ -103,7 +103,9 @@  instance GoogleRequest CommentsMarkAsSpam where         type Rs CommentsMarkAsSpam = Comment-        requestClient CommentsMarkAsSpam{..}+        type Scopes CommentsMarkAsSpam =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient CommentsMarkAsSpam'{..}           = go _cmasBlogId _cmasPostId _cmasCommentId               (Just AltJSON)               bloggerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Comments.RemoveContent--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -58,7 +58,7 @@ -- | Removes the content of a comment. -- -- /See:/ 'commentsRemoveContent' smart constructor.-data CommentsRemoveContent = CommentsRemoveContent+data CommentsRemoveContent = CommentsRemoveContent'     { _crcBlogId    :: !Text     , _crcPostId    :: !Text     , _crcCommentId :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'crcCommentId'     -> CommentsRemoveContent commentsRemoveContent pCrcBlogId_ pCrcPostId_ pCrcCommentId_ =-    CommentsRemoveContent+    CommentsRemoveContent'     { _crcBlogId = pCrcBlogId_     , _crcPostId = pCrcPostId_     , _crcCommentId = pCrcCommentId_@@ -102,7 +102,9 @@  instance GoogleRequest CommentsRemoveContent where         type Rs CommentsRemoveContent = Comment-        requestClient CommentsRemoveContent{..}+        type Scopes CommentsRemoveContent =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient CommentsRemoveContent'{..}           = go _crcBlogId _crcPostId _crcCommentId               (Just AltJSON)               bloggerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.PageViews.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | 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)@@ -70,7 +70,7 @@     :: Text -- ^ 'pvgBlogId'     -> PageViewsGet pageViewsGet pPvgBlogId_ =-    PageViewsGet+    PageViewsGet'     { _pvgBlogId = pPvgBlogId_     , _pvgRange = Nothing     }@@ -88,7 +88,9 @@  instance GoogleRequest PageViewsGet where         type Rs PageViewsGet = Pageviews-        requestClient PageViewsGet{..}+        type Scopes PageViewsGet =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient PageViewsGet'{..}           = go _pvgBlogId (_pvgRange ^. _Default)               (Just AltJSON)               bloggerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Pages.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | 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)@@ -71,7 +71,7 @@     -> Text -- ^ 'pddPageId'     -> PagesDelete pagesDelete pPddBlogId_ pPddPageId_ =-    PagesDelete+    PagesDelete'     { _pddBlogId = pPddBlogId_     , _pddPageId = pPddPageId_     }@@ -88,7 +88,9 @@  instance GoogleRequest PagesDelete where         type Rs PagesDelete = ()-        requestClient PagesDelete{..}+        type Scopes PagesDelete =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient PagesDelete'{..}           = go _pddBlogId _pddPageId (Just AltJSON)               bloggerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Pages.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- | Gets one blog page by ID. -- -- /See:/ 'pagesGet' smart constructor.-data PagesGet = PagesGet+data PagesGet = PagesGet'     { _pgBlogId :: !Text     , _pgPageId :: !Text     , _pgView   :: !(Maybe PagesGetView)@@ -76,7 +76,7 @@     -> Text -- ^ 'pgPageId'     -> PagesGet pagesGet pPgBlogId_ pPgPageId_ =-    PagesGet+    PagesGet'     { _pgBlogId = pPgBlogId_     , _pgPageId = pPgPageId_     , _pgView = Nothing@@ -95,7 +95,10 @@  instance GoogleRequest PagesGet where         type Rs PagesGet = Page-        requestClient PagesGet{..}+        type Scopes PagesGet =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient PagesGet'{..}           = go _pgBlogId _pgPageId _pgView (Just AltJSON)               bloggerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Pages.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -56,7 +56,7 @@ -- | Add a page. -- -- /See:/ 'pagesInsert' smart constructor.-data PagesInsert = PagesInsert+data PagesInsert = PagesInsert'     { _piIsDraft :: !(Maybe Bool)     , _piBlogId  :: !Text     , _piPayload :: !Page@@ -76,7 +76,7 @@     -> Page -- ^ 'piPayload'     -> PagesInsert pagesInsert pPiBlogId_ pPiPayload_ =-    PagesInsert+    PagesInsert'     { _piIsDraft = Nothing     , _piBlogId = pPiBlogId_     , _piPayload = pPiPayload_@@ -98,7 +98,9 @@  instance GoogleRequest PagesInsert where         type Rs PagesInsert = Page-        requestClient PagesInsert{..}+        type Scopes PagesInsert =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient PagesInsert'{..}           = go _piBlogId _piIsDraft (Just AltJSON) _piPayload               bloggerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Pages.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@ -- | 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)@@ -90,7 +90,7 @@     :: Text -- ^ 'plBlogId'     -> PagesList pagesList pPlBlogId_ =-    PagesList+    PagesList'     { _plStatus = Nothing     , _plBlogId = pPlBlogId_     , _plFetchBodies = Nothing@@ -133,7 +133,10 @@  instance GoogleRequest PagesList where         type Rs PagesList = PageList-        requestClient PagesList{..}+        type Scopes PagesList =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient PagesList'{..}           = go _plBlogId (_plStatus ^. _Default) _plFetchBodies               _plView               _plPageToken

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Pages.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -60,7 +60,7 @@ -- | Update a page. This method supports patch semantics. -- -- /See:/ 'pagesPatch' smart constructor.-data PagesPatch = PagesPatch+data PagesPatch = PagesPatch'     { _ppBlogId  :: !Text     , _ppPageId  :: !Text     , _ppPayload :: !Page@@ -87,7 +87,7 @@     -> Page -- ^ 'ppPayload'     -> PagesPatch pagesPatch pPpBlogId_ pPpPageId_ pPpPayload_ =-    PagesPatch+    PagesPatch'     { _ppBlogId = pPpBlogId_     , _ppPageId = pPpPageId_     , _ppPayload = pPpPayload_@@ -121,7 +121,9 @@  instance GoogleRequest PagesPatch where         type Rs PagesPatch = Page-        requestClient PagesPatch{..}+        type Scopes PagesPatch =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient PagesPatch'{..}           = go _ppBlogId _ppPageId _ppRevert _ppPublish               (Just AltJSON)               _ppPayload

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Pages.Publish--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | Publishes a draft page. -- -- /See:/ 'pagesPublish' smart constructor.-data PagesPublish = PagesPublish+data PagesPublish = PagesPublish'     { _pagaBlogId :: !Text     , _pagaPageId :: !Text     } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@     -> Text -- ^ 'pagaPageId'     -> PagesPublish pagesPublish pPagaBlogId_ pPagaPageId_ =-    PagesPublish+    PagesPublish'     { _pagaBlogId = pPagaBlogId_     , _pagaPageId = pPagaPageId_     }@@ -89,7 +89,9 @@  instance GoogleRequest PagesPublish where         type Rs PagesPublish = Page-        requestClient PagesPublish{..}+        type Scopes PagesPublish =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient PagesPublish'{..}           = go _pagaBlogId _pagaPageId (Just AltJSON)               bloggerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Pages.Revert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | 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)@@ -72,7 +72,7 @@     -> Text -- ^ 'pagPageId'     -> PagesRevert pagesRevert pPagBlogId_ pPagPageId_ =-    PagesRevert+    PagesRevert'     { _pagBlogId = pPagBlogId_     , _pagPageId = pPagPageId_     }@@ -89,7 +89,9 @@  instance GoogleRequest PagesRevert where         type Rs PagesRevert = Page-        requestClient PagesRevert{..}+        type Scopes PagesRevert =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient PagesRevert'{..}           = go _pagBlogId _pagPageId (Just AltJSON)               bloggerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Pages.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -60,7 +60,7 @@ -- | Update a page. -- -- /See:/ 'pagesUpdate' smart constructor.-data PagesUpdate = PagesUpdate+data PagesUpdate = PagesUpdate'     { _puuBlogId  :: !Text     , _puuPageId  :: !Text     , _puuPayload :: !Page@@ -87,7 +87,7 @@     -> Page -- ^ 'puuPayload'     -> PagesUpdate pagesUpdate pPuuBlogId_ pPuuPageId_ pPuuPayload_ =-    PagesUpdate+    PagesUpdate'     { _puuBlogId = pPuuBlogId_     , _puuPageId = pPuuPageId_     , _puuPayload = pPuuPayload_@@ -124,7 +124,9 @@  instance GoogleRequest PagesUpdate where         type Rs PagesUpdate = Page-        requestClient PagesUpdate{..}+        type Scopes PagesUpdate =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient PagesUpdate'{..}           = go _puuBlogId _puuPageId _puuRevert _puuPublish               (Just AltJSON)               _puuPayload

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.PostUserInfos.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@ -- rights, specific to the user. -- -- /See:/ 'postUserInfosGet' smart constructor.-data PostUserInfosGet = PostUserInfosGet+data PostUserInfosGet = PostUserInfosGet'     { _puigBlogId      :: !Text     , _puigMaxComments :: !(Maybe (Textual Word32))     , _puigUserId      :: !Text@@ -87,7 +87,7 @@     -> Text -- ^ 'puigPostId'     -> PostUserInfosGet postUserInfosGet pPuigBlogId_ pPuigUserId_ pPuigPostId_ =-    PostUserInfosGet+    PostUserInfosGet'     { _puigBlogId = pPuigBlogId_     , _puigMaxComments = Nothing     , _puigUserId = pPuigUserId_@@ -119,7 +119,10 @@  instance GoogleRequest PostUserInfosGet where         type Rs PostUserInfosGet = PostUserInfo-        requestClient PostUserInfosGet{..}+        type Scopes PostUserInfosGet =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient PostUserInfosGet'{..}           = go _puigUserId _puigBlogId _puigPostId               _puigMaxComments               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.PostUserInfos.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -78,7 +78,7 @@ -- access rights, specific to the user. -- -- /See:/ 'postUserInfosList'' smart constructor.-data PostUserInfosList' = PostUserInfosList'+data PostUserInfosList' = PostUserInfosList''     { _puilStatus      :: !(Maybe [PostUserInfosListStatus])     , _puilOrderBy     :: !PostUserInfosListOrderBy     , _puilEndDate     :: !(Maybe DateTime')@@ -122,7 +122,7 @@     -> Text -- ^ 'puilUserId'     -> PostUserInfosList' postUserInfosList' pPuilBlogId_ pPuilUserId_ =-    PostUserInfosList'+    PostUserInfosList''     { _puilStatus = Nothing     , _puilOrderBy = PUILOBPublished     , _puilEndDate = Nothing@@ -202,7 +202,10 @@  instance GoogleRequest PostUserInfosList' where         type Rs PostUserInfosList' = PostUserInfosList-        requestClient PostUserInfosList'{..}+        type Scopes PostUserInfosList' =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient PostUserInfosList''{..}           = go _puilUserId _puilBlogId               (_puilStatus ^. _Default)               (Just _puilOrderBy)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Posts.Delete--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -54,7 +54,7 @@ -- | 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)@@ -71,7 +71,7 @@     -> Text -- ^ 'pdPostId'     -> PostsDelete postsDelete pPdBlogId_ pPdPostId_ =-    PostsDelete+    PostsDelete'     { _pdBlogId = pPdBlogId_     , _pdPostId = pPdPostId_     }@@ -86,7 +86,9 @@  instance GoogleRequest PostsDelete where         type Rs PostsDelete = ()-        requestClient PostsDelete{..}+        type Scopes PostsDelete =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient PostsDelete'{..}           = go _pdBlogId _pdPostId (Just AltJSON)               bloggerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Posts.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@ -- | Get a post by ID. -- -- /See:/ 'postsGet' smart constructor.-data PostsGet = PostsGet+data PostsGet = PostsGet'     { _pggFetchBody   :: !Bool     , _pggFetchImages :: !(Maybe Bool)     , _pggBlogId      :: !Text@@ -91,7 +91,7 @@     -> Text -- ^ 'pggPostId'     -> PostsGet postsGet pPggBlogId_ pPggPostId_ =-    PostsGet+    PostsGet'     { _pggFetchBody = True     , _pggFetchImages = Nothing     , _pggBlogId = pPggBlogId_@@ -137,7 +137,10 @@  instance GoogleRequest PostsGet where         type Rs PostsGet = Post'-        requestClient PostsGet{..}+        type Scopes PostsGet =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient PostsGet'{..}           = go _pggBlogId _pggPostId (Just _pggFetchBody)               _pggFetchImages               _pggMaxComments

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Posts.GetByPath--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@ -- | Retrieve a Post by Path. -- -- /See:/ 'postsGetByPath' smart constructor.-data PostsGetByPath = PostsGetByPath+data PostsGetByPath = PostsGetByPath'     { _pgbpPath        :: !Text     , _pgbpBlogId      :: !Text     , _pgbpMaxComments :: !(Maybe (Textual Word32))@@ -82,7 +82,7 @@     -> Text -- ^ 'pgbpBlogId'     -> PostsGetByPath postsGetByPath pPgbpPath_ pPgbpBlogId_ =-    PostsGetByPath+    PostsGetByPath'     { _pgbpPath = pPgbpPath_     , _pgbpBlogId = pPgbpBlogId_     , _pgbpMaxComments = Nothing@@ -112,7 +112,10 @@  instance GoogleRequest PostsGetByPath where         type Rs PostsGetByPath = Post'-        requestClient PostsGetByPath{..}+        type Scopes PostsGetByPath =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient PostsGetByPath'{..}           = go _pgbpBlogId (Just _pgbpPath) _pgbpMaxComments               _pgbpView               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Posts.Insert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -60,7 +60,7 @@ -- | Add a post. -- -- /See:/ 'postsInsert' smart constructor.-data PostsInsert = PostsInsert+data PostsInsert = PostsInsert'     { _posFetchBody   :: !Bool     , _posIsDraft     :: !(Maybe Bool)     , _posFetchImages :: !(Maybe Bool)@@ -86,7 +86,7 @@     -> Post' -- ^ 'posPayload'     -> PostsInsert postsInsert pPosBlogId_ pPosPayload_ =-    PostsInsert+    PostsInsert'     { _posFetchBody = True     , _posIsDraft = Nothing     , _posFetchImages = Nothing@@ -124,7 +124,9 @@  instance GoogleRequest PostsInsert where         type Rs PostsInsert = Post'-        requestClient PostsInsert{..}+        type Scopes PostsInsert =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient PostsInsert'{..}           = go _posBlogId (Just _posFetchBody) _posIsDraft               _posFetchImages               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Posts.List--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -73,7 +73,7 @@ -- | 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)@@ -116,7 +116,7 @@     :: Text -- ^ 'pllBlogId'     -> PostsList postsList pPllBlogId_ =-    PostsList+    PostsList'     { _pllStatus = Nothing     , _pllOrderBy = Published     , _pllFetchImages = Nothing@@ -197,7 +197,10 @@  instance GoogleRequest PostsList where         type Rs PostsList = PostList-        requestClient PostsList{..}+        type Scopes PostsList =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient PostsList'{..}           = go _pllBlogId (_pllStatus ^. _Default)               (Just _pllOrderBy)               _pllFetchImages

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Posts.Patch--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -66,7 +66,7 @@ -- | 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@@ -102,7 +102,7 @@     -> Text -- ^ 'posoPostId'     -> PostsPatch postsPatch pPosoBlogId_ pPosoPayload_ pPosoPostId_ =-    PostsPatch+    PostsPatch'     { _posoFetchBody = True     , _posoFetchImages = Nothing     , _posoBlogId = pPosoBlogId_@@ -163,7 +163,9 @@  instance GoogleRequest PostsPatch where         type Rs PostsPatch = Post'-        requestClient PostsPatch{..}+        type Scopes PostsPatch =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient PostsPatch'{..}           = go _posoBlogId _posoPostId (Just _posoFetchBody)               _posoFetchImages               _posoMaxComments

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Posts.Publish--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@ -- publishDate parameter. -- -- /See:/ 'postsPublish' smart constructor.-data PostsPublish = PostsPublish+data PostsPublish = PostsPublish'     { _pppPublishDate :: !(Maybe DateTime')     , _pppBlogId      :: !Text     , _pppPostId      :: !Text@@ -79,7 +79,7 @@     -> Text -- ^ 'pppPostId'     -> PostsPublish postsPublish pPppBlogId_ pPppPostId_ =-    PostsPublish+    PostsPublish'     { _pppPublishDate = Nothing     , _pppBlogId = pPppBlogId_     , _pppPostId = pPppPostId_@@ -107,7 +107,9 @@  instance GoogleRequest PostsPublish where         type Rs PostsPublish = Post'-        requestClient PostsPublish{..}+        type Scopes PostsPublish =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient PostsPublish'{..}           = go _pppBlogId _pppPostId _pppPublishDate               (Just AltJSON)               bloggerService

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Posts.Revert--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -55,7 +55,7 @@ -- | 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)@@ -72,7 +72,7 @@     -> Text -- ^ 'prPostId'     -> PostsRevert postsRevert pPrBlogId_ pPrPostId_ =-    PostsRevert+    PostsRevert'     { _prBlogId = pPrBlogId_     , _prPostId = pPrPostId_     }@@ -87,7 +87,9 @@  instance GoogleRequest PostsRevert where         type Rs PostsRevert = Post'-        requestClient PostsRevert{..}+        type Scopes PostsRevert =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient PostsRevert'{..}           = go _prBlogId _prPostId (Just AltJSON)               bloggerService           where go

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Posts.Search--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -59,7 +59,7 @@ -- | Search for a post. -- -- /See:/ 'postsSearch' smart constructor.-data PostsSearch = PostsSearch+data PostsSearch = PostsSearch'     { _psOrderBy     :: !PostsSearchOrderBy     , _psBlogId      :: !Text     , _psQ           :: !Text@@ -82,7 +82,7 @@     -> Text -- ^ 'psQ'     -> PostsSearch postsSearch pPsBlogId_ pPsQ_ =-    PostsSearch+    PostsSearch'     { _psOrderBy = PSOBPublished     , _psBlogId = pPsBlogId_     , _psQ = pPsQ_@@ -112,7 +112,10 @@  instance GoogleRequest PostsSearch where         type Rs PostsSearch = PostList-        requestClient PostsSearch{..}+        type Scopes PostsSearch =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient PostsSearch'{..}           = go _psBlogId (Just _psQ) (Just _psOrderBy)               (Just _psFetchBodies)               (Just AltJSON)

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Posts.Update--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -66,7 +66,7 @@ -- | Update a post. -- -- /See:/ 'postsUpdate' smart constructor.-data PostsUpdate = PostsUpdate+data PostsUpdate = PostsUpdate'     { _puFetchBody   :: !Bool     , _puFetchImages :: !(Maybe Bool)     , _puBlogId      :: !Text@@ -102,7 +102,7 @@     -> Text -- ^ 'puPostId'     -> PostsUpdate postsUpdate pPuBlogId_ pPuPayload_ pPuPostId_ =-    PostsUpdate+    PostsUpdate'     { _puFetchBody = True     , _puFetchImages = Nothing     , _puBlogId = pPuBlogId_@@ -159,7 +159,9 @@  instance GoogleRequest PostsUpdate where         type Rs PostsUpdate = Post'-        requestClient PostsUpdate{..}+        type Scopes PostsUpdate =+             '["https://www.googleapis.com/auth/blogger"]+        requestClient PostsUpdate'{..}           = go _puBlogId _puPostId (Just _puFetchBody)               _puFetchImages               _puMaxComments

@@ -14,7 +14,7 @@  -- | -- Module      : Network.Google.Resource.Blogger.Users.Get--- Copyright   : (c) 2015 Brendan Hay+-- Copyright   : (c) 2015-2016 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated@@ -51,7 +51,7 @@ -- | Gets one user by ID. -- -- /See:/ 'usersGet' smart constructor.-newtype UsersGet = UsersGet+newtype UsersGet = UsersGet'     { _ugUserId :: Text     } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@     :: Text -- ^ 'ugUserId'     -> UsersGet usersGet pUgUserId_ =-    UsersGet+    UsersGet'     { _ugUserId = pUgUserId_     } @@ -74,7 +74,10 @@  instance GoogleRequest UsersGet where         type Rs UsersGet = User-        requestClient UsersGet{..}+        type Scopes UsersGet =+             '["https://www.googleapis.com/auth/blogger",+               "https://www.googleapis.com/auth/blogger.readonly"]+        requestClient UsersGet'{..}           = go _ugUserId (Just AltJSON) bloggerService           where go                   = buildClient (Proxy :: Proxy UsersGetResource)

@@ -1,5 +1,5 @@ name:                  gogol-blogger-version:               0.0.1+version:               0.1.0 synopsis:              Google Blogger SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2015 Brendan Hay+copyright:             Copyright (c) 2015-2016 Brendan Hay category:              Network, Google, Cloud build-type:            Simple cabal-version:         >= 1.10@@ -78,5 +78,5 @@         , Network.Google.Blogger.Types.Sum      build-depends:-          gogol-core == 0.0.1.*+          gogol-core == 0.1.0.*         , base       >= 4.7 && < 5