diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -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
diff --git a/gen/Network/Google/Blogger.hs b/gen/Network/Google/Blogger.hs
--- a/gen/Network/Google/Blogger.hs
+++ b/gen/Network/Google/Blogger.hs
@@ -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
diff --git a/gen/Network/Google/Blogger/Types.hs b/gen/Network/Google/Blogger/Types.hs
--- a/gen/Network/Google/Blogger/Types.hs
+++ b/gen/Network/Google/Blogger/Types.hs
@@ -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;
diff --git a/gen/Network/Google/Blogger/Types/Product.hs b/gen/Network/Google/Blogger/Types/Product.hs
--- a/gen/Network/Google/Blogger/Types/Product.hs
+++ b/gen/Network/Google/Blogger/Types/Product.hs
@@ -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])
diff --git a/gen/Network/Google/Blogger/Types/Sum.hs b/gen/Network/Google/Blogger/Types/Sum.hs
--- a/gen/Network/Google/Blogger/Types/Sum.hs
+++ b/gen/Network/Google/Blogger/Types/Sum.hs
@@ -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"
diff --git a/gen/Network/Google/Resource/Blogger/BlogUserInfos/Get.hs b/gen/Network/Google/Resource/Blogger/BlogUserInfos/Get.hs
--- a/gen/Network/Google/Resource/Blogger/BlogUserInfos/Get.hs
+++ b/gen/Network/Google/Resource/Blogger/BlogUserInfos/Get.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Blogs/Get.hs b/gen/Network/Google/Resource/Blogger/Blogs/Get.hs
--- a/gen/Network/Google/Resource/Blogger/Blogs/Get.hs
+++ b/gen/Network/Google/Resource/Blogger/Blogs/Get.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Blogs/GetByURL.hs b/gen/Network/Google/Resource/Blogger/Blogs/GetByURL.hs
--- a/gen/Network/Google/Resource/Blogger/Blogs/GetByURL.hs
+++ b/gen/Network/Google/Resource/Blogger/Blogs/GetByURL.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Blogs/ListByUser.hs b/gen/Network/Google/Resource/Blogger/Blogs/ListByUser.hs
--- a/gen/Network/Google/Resource/Blogger/Blogs/ListByUser.hs
+++ b/gen/Network/Google/Resource/Blogger/Blogs/ListByUser.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Comments/Approve.hs b/gen/Network/Google/Resource/Blogger/Comments/Approve.hs
--- a/gen/Network/Google/Resource/Blogger/Comments/Approve.hs
+++ b/gen/Network/Google/Resource/Blogger/Comments/Approve.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Comments/Delete.hs b/gen/Network/Google/Resource/Blogger/Comments/Delete.hs
--- a/gen/Network/Google/Resource/Blogger/Comments/Delete.hs
+++ b/gen/Network/Google/Resource/Blogger/Comments/Delete.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Comments/Get.hs b/gen/Network/Google/Resource/Blogger/Comments/Get.hs
--- a/gen/Network/Google/Resource/Blogger/Comments/Get.hs
+++ b/gen/Network/Google/Resource/Blogger/Comments/Get.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Comments/List.hs b/gen/Network/Google/Resource/Blogger/Comments/List.hs
--- a/gen/Network/Google/Resource/Blogger/Comments/List.hs
+++ b/gen/Network/Google/Resource/Blogger/Comments/List.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Comments/ListByBlog.hs b/gen/Network/Google/Resource/Blogger/Comments/ListByBlog.hs
--- a/gen/Network/Google/Resource/Blogger/Comments/ListByBlog.hs
+++ b/gen/Network/Google/Resource/Blogger/Comments/ListByBlog.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Comments/MarkAsSpam.hs b/gen/Network/Google/Resource/Blogger/Comments/MarkAsSpam.hs
--- a/gen/Network/Google/Resource/Blogger/Comments/MarkAsSpam.hs
+++ b/gen/Network/Google/Resource/Blogger/Comments/MarkAsSpam.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Comments/RemoveContent.hs b/gen/Network/Google/Resource/Blogger/Comments/RemoveContent.hs
--- a/gen/Network/Google/Resource/Blogger/Comments/RemoveContent.hs
+++ b/gen/Network/Google/Resource/Blogger/Comments/RemoveContent.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/PageViews/Get.hs b/gen/Network/Google/Resource/Blogger/PageViews/Get.hs
--- a/gen/Network/Google/Resource/Blogger/PageViews/Get.hs
+++ b/gen/Network/Google/Resource/Blogger/PageViews/Get.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Pages/Delete.hs b/gen/Network/Google/Resource/Blogger/Pages/Delete.hs
--- a/gen/Network/Google/Resource/Blogger/Pages/Delete.hs
+++ b/gen/Network/Google/Resource/Blogger/Pages/Delete.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Pages/Get.hs b/gen/Network/Google/Resource/Blogger/Pages/Get.hs
--- a/gen/Network/Google/Resource/Blogger/Pages/Get.hs
+++ b/gen/Network/Google/Resource/Blogger/Pages/Get.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Pages/Insert.hs b/gen/Network/Google/Resource/Blogger/Pages/Insert.hs
--- a/gen/Network/Google/Resource/Blogger/Pages/Insert.hs
+++ b/gen/Network/Google/Resource/Blogger/Pages/Insert.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Pages/List.hs b/gen/Network/Google/Resource/Blogger/Pages/List.hs
--- a/gen/Network/Google/Resource/Blogger/Pages/List.hs
+++ b/gen/Network/Google/Resource/Blogger/Pages/List.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Pages/Patch.hs b/gen/Network/Google/Resource/Blogger/Pages/Patch.hs
--- a/gen/Network/Google/Resource/Blogger/Pages/Patch.hs
+++ b/gen/Network/Google/Resource/Blogger/Pages/Patch.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Pages/Publish.hs b/gen/Network/Google/Resource/Blogger/Pages/Publish.hs
--- a/gen/Network/Google/Resource/Blogger/Pages/Publish.hs
+++ b/gen/Network/Google/Resource/Blogger/Pages/Publish.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Pages/Revert.hs b/gen/Network/Google/Resource/Blogger/Pages/Revert.hs
--- a/gen/Network/Google/Resource/Blogger/Pages/Revert.hs
+++ b/gen/Network/Google/Resource/Blogger/Pages/Revert.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Pages/Update.hs b/gen/Network/Google/Resource/Blogger/Pages/Update.hs
--- a/gen/Network/Google/Resource/Blogger/Pages/Update.hs
+++ b/gen/Network/Google/Resource/Blogger/Pages/Update.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/PostUserInfos/Get.hs b/gen/Network/Google/Resource/Blogger/PostUserInfos/Get.hs
--- a/gen/Network/Google/Resource/Blogger/PostUserInfos/Get.hs
+++ b/gen/Network/Google/Resource/Blogger/PostUserInfos/Get.hs
@@ -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)
diff --git a/gen/Network/Google/Resource/Blogger/PostUserInfos/List.hs b/gen/Network/Google/Resource/Blogger/PostUserInfos/List.hs
--- a/gen/Network/Google/Resource/Blogger/PostUserInfos/List.hs
+++ b/gen/Network/Google/Resource/Blogger/PostUserInfos/List.hs
@@ -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)
diff --git a/gen/Network/Google/Resource/Blogger/Posts/Delete.hs b/gen/Network/Google/Resource/Blogger/Posts/Delete.hs
--- a/gen/Network/Google/Resource/Blogger/Posts/Delete.hs
+++ b/gen/Network/Google/Resource/Blogger/Posts/Delete.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Posts/Get.hs b/gen/Network/Google/Resource/Blogger/Posts/Get.hs
--- a/gen/Network/Google/Resource/Blogger/Posts/Get.hs
+++ b/gen/Network/Google/Resource/Blogger/Posts/Get.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Posts/GetByPath.hs b/gen/Network/Google/Resource/Blogger/Posts/GetByPath.hs
--- a/gen/Network/Google/Resource/Blogger/Posts/GetByPath.hs
+++ b/gen/Network/Google/Resource/Blogger/Posts/GetByPath.hs
@@ -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)
diff --git a/gen/Network/Google/Resource/Blogger/Posts/Insert.hs b/gen/Network/Google/Resource/Blogger/Posts/Insert.hs
--- a/gen/Network/Google/Resource/Blogger/Posts/Insert.hs
+++ b/gen/Network/Google/Resource/Blogger/Posts/Insert.hs
@@ -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)
diff --git a/gen/Network/Google/Resource/Blogger/Posts/List.hs b/gen/Network/Google/Resource/Blogger/Posts/List.hs
--- a/gen/Network/Google/Resource/Blogger/Posts/List.hs
+++ b/gen/Network/Google/Resource/Blogger/Posts/List.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Posts/Patch.hs b/gen/Network/Google/Resource/Blogger/Posts/Patch.hs
--- a/gen/Network/Google/Resource/Blogger/Posts/Patch.hs
+++ b/gen/Network/Google/Resource/Blogger/Posts/Patch.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Posts/Publish.hs b/gen/Network/Google/Resource/Blogger/Posts/Publish.hs
--- a/gen/Network/Google/Resource/Blogger/Posts/Publish.hs
+++ b/gen/Network/Google/Resource/Blogger/Posts/Publish.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Posts/Revert.hs b/gen/Network/Google/Resource/Blogger/Posts/Revert.hs
--- a/gen/Network/Google/Resource/Blogger/Posts/Revert.hs
+++ b/gen/Network/Google/Resource/Blogger/Posts/Revert.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Posts/Search.hs b/gen/Network/Google/Resource/Blogger/Posts/Search.hs
--- a/gen/Network/Google/Resource/Blogger/Posts/Search.hs
+++ b/gen/Network/Google/Resource/Blogger/Posts/Search.hs
@@ -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)
diff --git a/gen/Network/Google/Resource/Blogger/Posts/Update.hs b/gen/Network/Google/Resource/Blogger/Posts/Update.hs
--- a/gen/Network/Google/Resource/Blogger/Posts/Update.hs
+++ b/gen/Network/Google/Resource/Blogger/Posts/Update.hs
@@ -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
diff --git a/gen/Network/Google/Resource/Blogger/Users/Get.hs b/gen/Network/Google/Resource/Blogger/Users/Get.hs
--- a/gen/Network/Google/Resource/Blogger/Users/Get.hs
+++ b/gen/Network/Google/Resource/Blogger/Users/Get.hs
@@ -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)
diff --git a/gogol-blogger.cabal b/gogol-blogger.cabal
--- a/gogol-blogger.cabal
+++ b/gogol-blogger.cabal
@@ -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