gogol-apps-tasks 0.4.0 → 0.5.0

raw patch · 19 files changed

+146/−106 lines, 19 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/AppsTasks.hs +1/−1
• gen/Network/Google/AppsTasks/Types.hs +2/−2
• gen/Network/Google/AppsTasks/Types/Product.hs +37/−20
• gen/Network/Google/Resource/Tasks/TaskLists/Delete.hs +7/−6
• gen/Network/Google/Resource/Tasks/TaskLists/Get.hs +7/−6
• gen/Network/Google/Resource/Tasks/TaskLists/Insert.hs +7/−6
• gen/Network/Google/Resource/Tasks/TaskLists/List.hs +8/−7
• gen/Network/Google/Resource/Tasks/TaskLists/Patch.hs +7/−6
• gen/Network/Google/Resource/Tasks/TaskLists/Update.hs +7/−6
• gen/Network/Google/Resource/Tasks/Tasks/Clear.hs +7/−6
• gen/Network/Google/Resource/Tasks/Tasks/Delete.hs +7/−6
• gen/Network/Google/Resource/Tasks/Tasks/Get.hs +7/−6
• gen/Network/Google/Resource/Tasks/Tasks/Insert.hs +7/−3
• gen/Network/Google/Resource/Tasks/Tasks/List.hs +8/−4
• gen/Network/Google/Resource/Tasks/Tasks/Move.hs +7/−3
• gen/Network/Google/Resource/Tasks/Tasks/Patch.hs +8/−7
• gen/Network/Google/Resource/Tasks/Tasks/Update.hs +8/−7
• gogol-apps-tasks.cabal +3/−3

@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description

@@ -13,7 +13,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lets you manage your tasks and task lists.+-- Manages your tasks and task lists. -- -- /See:/ <https://developers.google.com/google-apps/tasks/firstapp Tasks API Reference> module Network.Google.AppsTasks

@@ -88,8 +88,8 @@  -- | View your tasks tasksReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/tasks.readonly"]-tasksReadOnlyScope = Proxy;+tasksReadOnlyScope = Proxy  -- | Create, edit, organize, and delete all your tasks tasksScope :: Proxy '["https://www.googleapis.com/auth/tasks"]-tasksScope = Proxy;+tasksScope = Proxy

@@ -22,12 +22,15 @@  -- -- /See:/ 'taskLinksItem' smart constructor.-data TaskLinksItem = TaskLinksItem'+data TaskLinksItem =+  TaskLinksItem'     { _tliLink        :: !(Maybe Text)     , _tliType        :: !(Maybe Text)     , _tliDescription :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TaskLinksItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -40,12 +43,10 @@ taskLinksItem     :: TaskLinksItem taskLinksItem =-    TaskLinksItem'-    { _tliLink = Nothing-    , _tliType = Nothing-    , _tliDescription = Nothing-    }+  TaskLinksItem'+    {_tliLink = Nothing, _tliType = Nothing, _tliDescription = Nothing} + -- | The URL. tliLink :: Lens' TaskLinksItem (Maybe Text) tliLink = lens _tliLink (\ s a -> s{_tliLink = a})@@ -54,7 +55,7 @@ tliType :: Lens' TaskLinksItem (Maybe Text) tliType = lens _tliType (\ s a -> s{_tliType = a}) --- | The description. In HTML speak: Everything between and.+-- | The description. In HTML speak: Everything between and . tliDescription :: Lens' TaskLinksItem (Maybe Text) tliDescription   = lens _tliDescription@@ -77,13 +78,16 @@  -- -- /See:/ 'tasks' smart constructor.-data Tasks = Tasks'+data Tasks =+  Tasks'     { _tEtag          :: !(Maybe Text)     , _tNextPageToken :: !(Maybe Text)     , _tKind          :: !Text     , _tItems         :: !(Maybe [Task])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Tasks' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -98,13 +102,14 @@ tasks     :: Tasks tasks =-    Tasks'+  Tasks'     { _tEtag = Nothing     , _tNextPageToken = Nothing     , _tKind = "tasks#tasks"     , _tItems = Nothing     } + -- | ETag of the resource. tEtag :: Lens' Tasks (Maybe Text) tEtag = lens _tEtag (\ s a -> s{_tEtag = a})@@ -144,13 +149,16 @@  -- -- /See:/ 'taskLists' smart constructor.-data TaskLists = TaskLists'+data TaskLists =+  TaskLists'     { _tlEtag          :: !(Maybe Text)     , _tlNextPageToken :: !(Maybe Text)     , _tlKind          :: !Text     , _tlItems         :: !(Maybe [TaskList])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TaskLists' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -165,13 +173,14 @@ taskLists     :: TaskLists taskLists =-    TaskLists'+  TaskLists'     { _tlEtag = Nothing     , _tlNextPageToken = Nothing     , _tlKind = "tasks#taskLists"     , _tlItems = Nothing     } + -- | ETag of the resource. tlEtag :: Lens' TaskLists (Maybe Text) tlEtag = lens _tlEtag (\ s a -> s{_tlEtag = a})@@ -211,15 +220,18 @@  -- -- /See:/ 'taskList' smart constructor.-data TaskList = TaskList'+data TaskList =+  TaskList'     { _tasEtag     :: !(Maybe Text)     , _tasKind     :: !Text     , _tasSelfLink :: !(Maybe Text)     , _tasId       :: !(Maybe Text)     , _tasUpdated  :: !(Maybe DateTime')     , _tasTitle    :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TaskList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -238,7 +250,7 @@ taskList     :: TaskList taskList =-    TaskList'+  TaskList'     { _tasEtag = Nothing     , _tasKind = "tasks#taskList"     , _tasSelfLink = Nothing@@ -247,6 +259,7 @@     , _tasTitle = Nothing     } + -- | ETag of the resource. tasEtag :: Lens' TaskList (Maybe Text) tasEtag = lens _tasEtag (\ s a -> s{_tasEtag = a})@@ -298,7 +311,8 @@  -- -- /See:/ 'task' smart constructor.-data Task = Task'+data Task =+  Task'     { _ttParent    :: !(Maybe Text)     , _ttStatus    :: !(Maybe Text)     , _ttDue       :: !(Maybe DateTime')@@ -314,8 +328,10 @@     , _ttLinks     :: !(Maybe [TaskLinksItem])     , _ttNotes     :: !(Maybe Text)     , _ttPosition  :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Task' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -352,7 +368,7 @@ task     :: Task task =-    Task'+  Task'     { _ttParent = Nothing     , _ttStatus = Nothing     , _ttDue = Nothing@@ -369,6 +385,7 @@     , _ttNotes = Nothing     , _ttPosition = Nothing     }+  -- | Parent task identifier. This field is omitted if it is a top-level task. -- This field is read-only. Use the \"move\" method to move the task under

@@ -53,10 +53,13 @@ -- | Deletes the authenticated user\'s specified task list. -- -- /See:/ 'taskListsDelete' smart constructor.-newtype TaskListsDelete = TaskListsDelete'+newtype TaskListsDelete =+  TaskListsDelete'     { _tldTaskList :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TaskListsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,10 +68,8 @@ taskListsDelete     :: Text -- ^ 'tldTaskList'     -> TaskListsDelete-taskListsDelete pTldTaskList_ =-    TaskListsDelete'-    { _tldTaskList = pTldTaskList_-    }+taskListsDelete pTldTaskList_ = TaskListsDelete' {_tldTaskList = pTldTaskList_}+  -- | Task list identifier. tldTaskList :: Lens' TaskListsDelete Text

@@ -53,10 +53,13 @@ -- | Returns the authenticated user\'s specified task list. -- -- /See:/ 'taskListsGet' smart constructor.-newtype TaskListsGet = TaskListsGet'+newtype TaskListsGet =+  TaskListsGet'     { _tlgTaskList :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TaskListsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,10 +68,8 @@ taskListsGet     :: Text -- ^ 'tlgTaskList'     -> TaskListsGet-taskListsGet pTlgTaskList_ =-    TaskListsGet'-    { _tlgTaskList = pTlgTaskList_-    }+taskListsGet pTlgTaskList_ = TaskListsGet' {_tlgTaskList = pTlgTaskList_}+  -- | Task list identifier. tlgTaskList :: Lens' TaskListsGet Text

@@ -55,10 +55,13 @@ -- lists. -- -- /See:/ 'taskListsInsert' smart constructor.-newtype TaskListsInsert = TaskListsInsert'+newtype TaskListsInsert =+  TaskListsInsert'     { _tliPayload :: TaskList-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TaskListsInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,10 +70,8 @@ taskListsInsert     :: TaskList -- ^ 'tliPayload'     -> TaskListsInsert-taskListsInsert pTliPayload_ =-    TaskListsInsert'-    { _tliPayload = pTliPayload_-    }+taskListsInsert pTliPayload_ = TaskListsInsert' {_tliPayload = pTliPayload_}+  -- | Multipart request metadata. tliPayload :: Lens' TaskListsInsert TaskList

@@ -55,11 +55,14 @@ -- | Returns all the authenticated user\'s task lists. -- -- /See:/ 'taskListsList' smart constructor.-data TaskListsList = TaskListsList'+data TaskListsList =+  TaskListsList'     { _tllPageToken  :: !(Maybe Text)     , _tllMaxResults :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TaskListsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,18 +73,16 @@ taskListsList     :: TaskListsList taskListsList =-    TaskListsList'-    { _tllPageToken = Nothing-    , _tllMaxResults = Nothing-    }+  TaskListsList' {_tllPageToken = Nothing, _tllMaxResults = Nothing} + -- | Token specifying the result page to return. Optional. tllPageToken :: Lens' TaskListsList (Maybe Text) tllPageToken   = lens _tllPageToken (\ s a -> s{_tllPageToken = a})  -- | Maximum number of task lists returned on one page. Optional. The default--- is 100.+-- is 20 (max allowed: 100). tllMaxResults :: Lens' TaskListsList (Maybe Int64) tllMaxResults   = lens _tllMaxResults

@@ -57,11 +57,14 @@ -- supports patch semantics. -- -- /See:/ 'taskListsPatch' smart constructor.-data TaskListsPatch = TaskListsPatch'+data TaskListsPatch =+  TaskListsPatch'     { _tlpPayload  :: !TaskList     , _tlpTaskList :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TaskListsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,10 +77,8 @@     -> Text -- ^ 'tlpTaskList'     -> TaskListsPatch taskListsPatch pTlpPayload_ pTlpTaskList_ =-    TaskListsPatch'-    { _tlpPayload = pTlpPayload_-    , _tlpTaskList = pTlpTaskList_-    }+  TaskListsPatch' {_tlpPayload = pTlpPayload_, _tlpTaskList = pTlpTaskList_}+  -- | Multipart request metadata. tlpPayload :: Lens' TaskListsPatch TaskList

@@ -55,11 +55,14 @@ -- | Updates the authenticated user\'s specified task list. -- -- /See:/ 'taskListsUpdate' smart constructor.-data TaskListsUpdate = TaskListsUpdate'+data TaskListsUpdate =+  TaskListsUpdate'     { _tluPayload  :: !TaskList     , _tluTaskList :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TaskListsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +75,8 @@     -> Text -- ^ 'tluTaskList'     -> TaskListsUpdate taskListsUpdate pTluPayload_ pTluTaskList_ =-    TaskListsUpdate'-    { _tluPayload = pTluPayload_-    , _tluTaskList = pTluTaskList_-    }+  TaskListsUpdate' {_tluPayload = pTluPayload_, _tluTaskList = pTluTaskList_}+  -- | Multipart request metadata. tluPayload :: Lens' TaskListsUpdate TaskList

@@ -56,10 +56,13 @@ -- when retrieving all tasks for a task list. -- -- /See:/ 'tasksClear' smart constructor.-newtype TasksClear = TasksClear'+newtype TasksClear =+  TasksClear'     { _tcTaskList :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TasksClear' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,10 +71,8 @@ tasksClear     :: Text -- ^ 'tcTaskList'     -> TasksClear-tasksClear pTcTaskList_ =-    TasksClear'-    { _tcTaskList = pTcTaskList_-    }+tasksClear pTcTaskList_ = TasksClear' {_tcTaskList = pTcTaskList_}+  -- | Task list identifier. tcTaskList :: Lens' TasksClear Text

@@ -54,11 +54,14 @@ -- | Deletes the specified task from the task list. -- -- /See:/ 'tasksDelete' smart constructor.-data TasksDelete = TasksDelete'+data TasksDelete =+  TasksDelete'     { _tdTaskList :: !Text     , _tdTask     :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TasksDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Text -- ^ 'tdTask'     -> TasksDelete tasksDelete pTdTaskList_ pTdTask_ =-    TasksDelete'-    { _tdTaskList = pTdTaskList_-    , _tdTask = pTdTask_-    }+  TasksDelete' {_tdTaskList = pTdTaskList_, _tdTask = pTdTask_}+  -- | Task list identifier. tdTaskList :: Lens' TasksDelete Text

@@ -54,11 +54,14 @@ -- | Returns the specified task. -- -- /See:/ 'tasksGet' smart constructor.-data TasksGet = TasksGet'+data TasksGet =+  TasksGet'     { _tgTaskList :: !Text     , _tgTask     :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TasksGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,8 @@     -> Text -- ^ 'tgTask'     -> TasksGet tasksGet pTgTaskList_ pTgTask_ =-    TasksGet'-    { _tgTaskList = pTgTaskList_-    , _tgTask = pTgTask_-    }+  TasksGet' {_tgTaskList = pTgTaskList_, _tgTask = pTgTask_}+  -- | Task list identifier. tgTaskList :: Lens' TasksGet Text

@@ -58,13 +58,16 @@ -- | Creates a new task on the specified task list. -- -- /See:/ 'tasksInsert' smart constructor.-data TasksInsert = TasksInsert'+data TasksInsert =+  TasksInsert'     { _tiParent   :: !(Maybe Text)     , _tiPayload  :: !Task     , _tiTaskList :: !Text     , _tiPrevious :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TasksInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -81,12 +84,13 @@     -> Text -- ^ 'tiTaskList'     -> TasksInsert tasksInsert pTiPayload_ pTiTaskList_ =-    TasksInsert'+  TasksInsert'     { _tiParent = Nothing     , _tiPayload = pTiPayload_     , _tiTaskList = pTiTaskList_     , _tiPrevious = Nothing     }+  -- | Parent task identifier. If the task is created at the top level, this -- parameter is omitted. Optional.

@@ -72,7 +72,8 @@ -- | Returns all tasks in the specified task list. -- -- /See:/ 'tasksList' smart constructor.-data TasksList = TasksList'+data TasksList =+  TasksList'     { _tlDueMax        :: !(Maybe Text)     , _tlShowDeleted   :: !(Maybe Bool)     , _tlShowCompleted :: !(Maybe Bool)@@ -84,8 +85,10 @@     , _tlCompletedMin  :: !(Maybe Text)     , _tlPageToken     :: !(Maybe Text)     , _tlMaxResults    :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TasksList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -115,7 +118,7 @@     :: Text -- ^ 'tlTaskList'     -> TasksList tasksList pTlTaskList_ =-    TasksList'+  TasksList'     { _tlDueMax = Nothing     , _tlShowDeleted = Nothing     , _tlShowCompleted = Nothing@@ -129,6 +132,7 @@     , _tlMaxResults = Nothing     } + -- | Upper bound for a task\'s due date (as a RFC 3339 timestamp) to filter -- by. Optional. The default is not to filter by due date. tlDueMax :: Lens' TasksList (Maybe Text)@@ -191,7 +195,7 @@   = lens _tlPageToken (\ s a -> s{_tlPageToken = a})  -- | Maximum number of task lists returned on one page. Optional. The default--- is 100.+-- is 20 (max allowed: 100). tlMaxResults :: Lens' TasksList (Maybe Int64) tlMaxResults   = lens _tlMaxResults (\ s a -> s{_tlMaxResults = a})

@@ -63,13 +63,16 @@ -- a different position among its sibling tasks. -- -- /See:/ 'tasksMove' smart constructor.-data TasksMove = TasksMove'+data TasksMove =+  TasksMove'     { _tmParent   :: !(Maybe Text)     , _tmTaskList :: !Text     , _tmTask     :: !Text     , _tmPrevious :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TasksMove' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -86,12 +89,13 @@     -> Text -- ^ 'tmTask'     -> TasksMove tasksMove pTmTaskList_ pTmTask_ =-    TasksMove'+  TasksMove'     { _tmParent = Nothing     , _tmTaskList = pTmTaskList_     , _tmTask = pTmTask_     , _tmPrevious = Nothing     }+  -- | New parent task identifier. If the task is moved to the top level, this -- parameter is omitted. Optional.

@@ -56,12 +56,15 @@ -- | Updates the specified task. This method supports patch semantics. -- -- /See:/ 'tasksPatch' smart constructor.-data TasksPatch = TasksPatch'+data TasksPatch =+  TasksPatch'     { _tpPayload  :: !Task     , _tpTaskList :: !Text     , _tpTask     :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TasksPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,11 +80,9 @@     -> Text -- ^ 'tpTask'     -> TasksPatch tasksPatch pTpPayload_ pTpTaskList_ pTpTask_ =-    TasksPatch'-    { _tpPayload = pTpPayload_-    , _tpTaskList = pTpTaskList_-    , _tpTask = pTpTask_-    }+  TasksPatch'+    {_tpPayload = pTpPayload_, _tpTaskList = pTpTaskList_, _tpTask = pTpTask_}+  -- | Multipart request metadata. tpPayload :: Lens' TasksPatch Task

@@ -56,12 +56,15 @@ -- | Updates the specified task. -- -- /See:/ 'tasksUpdate' smart constructor.-data TasksUpdate = TasksUpdate'+data TasksUpdate =+  TasksUpdate'     { _tuPayload  :: !Task     , _tuTaskList :: !Text     , _tuTask     :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TasksUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,11 +80,9 @@     -> Text -- ^ 'tuTask'     -> TasksUpdate tasksUpdate pTuPayload_ pTuTaskList_ pTuTask_ =-    TasksUpdate'-    { _tuPayload = pTuPayload_-    , _tuTaskList = pTuTaskList_-    , _tuTask = pTuTask_-    }+  TasksUpdate'+    {_tuPayload = pTuPayload_, _tuTaskList = pTuTaskList_, _tuTask = pTuTask_}+  -- | Multipart request metadata. tuPayload :: Lens' TasksUpdate Task

@@ -1,5 +1,5 @@ name:                  gogol-apps-tasks-version:               0.4.0+version:               0.5.0 synopsis:              Google Tasks SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -14,7 +14,7 @@ extra-source-files:    README.md src/.gitkeep  description:-    Lets you manage your tasks and task lists.+    Manages your tasks and task lists.     .     /Warning:/ This is an experimental prototype/preview release which is still     under exploratory development and not intended for public use, caveat emptor!@@ -55,5 +55,5 @@         , Network.Google.AppsTasks.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5