git.iko.soy/gogol
on develop help sign in
Merge pull request #11 from brendanhay/feature/issue-10
dc736d9Brendan Hay
gen/src/Gen/Syntax.hs+3−3
compare with develop
unifiedsplit
@@ -461,7 +461,7 @@ ctorDecl n p rs = sfun noLoc c ps (UnGuardedRhs rhs) noBinds
461 | otherwise = RecConstr (UnQual d) $
461 | otherwise = RecConstr (UnQual d) $
462 map (uncurry (fieldUpdate p)) (Map.toList rs)
462 map (uncurry (fieldUpdate p)) (Map.toList rs)
463
463
464− ps = map (pname p) . Map.keys $ Map.filter required rs
464+ ps = map (pname p) . Map.keys $ Map.filter parameter rs
465
465
466fieldUpdate :: Prefix -> Local -> Solved -> FieldUpdate
466fieldUpdate :: Prefix -> Local -> Solved -> FieldUpdate
467fieldUpdate p l s = FieldUpdate (UnQual (fname p l)) rhs
467fieldUpdate p l s = FieldUpdate (UnQual (fname p l)) rhs
@@ -469,7 +469,7 @@ fieldUpdate p l s = FieldUpdate (UnQual (fname p l)) rhs
469 rhs | Just x <- def s, s ^. iRepeated = listE [x]
469 rhs | Just x <- def s, s ^. iRepeated = listE [x]
470 | Just x <- def s = x
470 | Just x <- def s = x
471 | Just x <- iso (_type s) = infixApp x "#" v
471 | Just x <- iso (_type s) = infixApp x "#" v
472− | required s = v
472+ | parameter s = v
473 | otherwise = var (name "Nothing")
473 | otherwise = var (name "Nothing")
474
474
475 v = var (pname p l)
475 v = var (pname p l)
@@ -491,7 +491,7 @@ lensDecl p l s = sfun noLoc (lname p l) [] (UnGuardedRhs rhs) noBinds
491 (RecUpdate (var "s") [FieldUpdate (UnQual f) (var "a")])))
491 (RecUpdate (var "s") [FieldUpdate (UnQual f) (var "a")])))
492
492
493parameters :: [Solved] -> [Type]
493parameters :: [Solved] -> [Type]
494−parameters = map (externalType . _type) . filter required
494+parameters = map (externalType . _type) . filter parameter
495
495
496def :: Solved -> Maybe Exp
496def :: Solved -> Maybe Exp
497def s
497def s
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Create.hs+1−2
@@ -79,9 +79,8 @@ data UsersDraftsCreate = UsersDraftsCreate
79-- * 'udcUserId'
79-- * 'udcUserId'
80usersDraftsCreate
80usersDraftsCreate
81 :: Draft -- ^ 'udcPayload'
81 :: Draft -- ^ 'udcPayload'
82− -> Text
83 -> UsersDraftsCreate
82 -> UsersDraftsCreate
84−usersDraftsCreate pUdcPayload_ pUdcUserId_ =
83+usersDraftsCreate pUdcPayload_ =
85 UsersDraftsCreate
84 UsersDraftsCreate
86 { _udcPayload = pUdcPayload_
85 { _udcPayload = pUdcPayload_
87 , _udcUserId = "me"
86 , _udcUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Delete.hs+1−2
@@ -70,9 +70,8 @@ data UsersDraftsDelete = UsersDraftsDelete
70-- * 'uddId'
70-- * 'uddId'
71usersDraftsDelete
71usersDraftsDelete
72 :: Text -- ^ 'uddId'
72 :: Text -- ^ 'uddId'
73− -> Text
74 -> UsersDraftsDelete
73 -> UsersDraftsDelete
75−usersDraftsDelete pUddUserId_ pUddId_ =
74+usersDraftsDelete pUddId_ =
76 UsersDraftsDelete
75 UsersDraftsDelete
77 { _uddUserId = "me"
76 { _uddUserId = "me"
78 , _uddId = pUddId_
77 , _uddId = pUddId_
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Get.hs+1−2
@@ -73,9 +73,8 @@ data UsersDraftsGet = UsersDraftsGet
73-- * 'udgId'
73-- * 'udgId'
74usersDraftsGet
74usersDraftsGet
75 :: Text -- ^ 'udgId'
75 :: Text -- ^ 'udgId'
76− -> Text
77 -> UsersDraftsGet
76 -> UsersDraftsGet
78−usersDraftsGet pUdgUserId_ pUdgId_ =
77+usersDraftsGet pUdgId_ =
79 UsersDraftsGet
78 UsersDraftsGet
80 { _udgFormat = UDGFFull
79 { _udgFormat = UDGFFull
81 , _udgUserId = "me"
80 , _udgUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/List.hs+2−3
@@ -73,9 +73,8 @@ data UsersDraftsList = UsersDraftsList
73--
73--
74-- * 'udlMaxResults'
74-- * 'udlMaxResults'
75usersDraftsList
75usersDraftsList
76− :: Text
77− -> UsersDraftsList
76+ :: UsersDraftsList
78−usersDraftsList pUdlUserId_ =
77+usersDraftsList =
79 UsersDraftsList
78 UsersDraftsList
80 { _udlUserId = "me"
79 { _udlUserId = "me"
81 , _udlPageToken = Nothing
80 , _udlPageToken = Nothing
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Send.hs+1−2
@@ -83,9 +83,8 @@ data UsersDraftsSend = UsersDraftsSend
83-- * 'udsUserId'
83-- * 'udsUserId'
84usersDraftsSend
84usersDraftsSend
85 :: Draft -- ^ 'udsPayload'
85 :: Draft -- ^ 'udsPayload'
86− -> Text
87 -> UsersDraftsSend
86 -> UsersDraftsSend
88−usersDraftsSend pUdsPayload_ pUdsUserId_ =
87+usersDraftsSend pUdsPayload_ =
89 UsersDraftsSend
88 UsersDraftsSend
90 { _udsPayload = pUdsPayload_
89 { _udsPayload = pUdsPayload_
91 , _udsUserId = "me"
90 , _udsUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Drafts/Update.hs+1−2
@@ -86,9 +86,8 @@ data UsersDraftsUpdate = UsersDraftsUpdate
86usersDraftsUpdate
86usersDraftsUpdate
87 :: Draft -- ^ 'uduPayload'
87 :: Draft -- ^ 'uduPayload'
88 -> Text -- ^ 'uduId'
88 -> Text -- ^ 'uduId'
89− -> Text
90 -> UsersDraftsUpdate
89 -> UsersDraftsUpdate
91−usersDraftsUpdate pUduPayload_ pUduUserId_ pUduId_ =
90+usersDraftsUpdate pUduPayload_ pUduId_ =
92 UsersDraftsUpdate
91 UsersDraftsUpdate
93 { _uduPayload = pUduPayload_
92 { _uduPayload = pUduPayload_
94 , _uduUserId = "me"
93 , _uduUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/GetProFile.hs+2−3
@@ -62,9 +62,8 @@ newtype UsersGetProFile = UsersGetProFile
62--
62--
63-- * 'ugpfUserId'
63-- * 'ugpfUserId'
64usersGetProFile
64usersGetProFile
65− :: Text
66− -> UsersGetProFile
65+ :: UsersGetProFile
67−usersGetProFile pUgpfUserId_ =
66+usersGetProFile =
68 UsersGetProFile
67 UsersGetProFile
69 { _ugpfUserId = "me"
68 { _ugpfUserId = "me"
70 }
69 }
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/History/List.hs+2−3
@@ -85,9 +85,8 @@ data UsersHistoryList = UsersHistoryList
85--
85--
86-- * 'uhlMaxResults'
86-- * 'uhlMaxResults'
87usersHistoryList
87usersHistoryList
88− :: Text
89− -> UsersHistoryList
88+ :: UsersHistoryList
90−usersHistoryList pUhlUserId_ =
89+usersHistoryList =
91 UsersHistoryList
90 UsersHistoryList
92 { _uhlUserId = "me"
91 { _uhlUserId = "me"
93 , _uhlStartHistoryId = Nothing
92 , _uhlStartHistoryId = Nothing
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Create.hs+1−2
@@ -68,9 +68,8 @@ data UsersLabelsCreate = UsersLabelsCreate
68-- * 'ulcUserId'
68-- * 'ulcUserId'
69usersLabelsCreate
69usersLabelsCreate
70 :: Label -- ^ 'ulcPayload'
70 :: Label -- ^ 'ulcPayload'
71− -> Text
72 -> UsersLabelsCreate
71 -> UsersLabelsCreate
73−usersLabelsCreate pUlcPayload_ pUlcUserId_ =
72+usersLabelsCreate pUlcPayload_ =
74 UsersLabelsCreate
73 UsersLabelsCreate
75 { _ulcPayload = pUlcPayload_
74 { _ulcPayload = pUlcPayload_
76 , _ulcUserId = "me"
75 , _ulcUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Delete.hs+1−2
@@ -70,9 +70,8 @@ data UsersLabelsDelete = UsersLabelsDelete
70-- * 'uldId'
70-- * 'uldId'
71usersLabelsDelete
71usersLabelsDelete
72 :: Text -- ^ 'uldId'
72 :: Text -- ^ 'uldId'
73− -> Text
74 -> UsersLabelsDelete
73 -> UsersLabelsDelete
75−usersLabelsDelete pUldUserId_ pUldId_ =
74+usersLabelsDelete pUldId_ =
76 UsersLabelsDelete
75 UsersLabelsDelete
77 { _uldUserId = "me"
76 { _uldUserId = "me"
78 , _uldId = pUldId_
77 , _uldId = pUldId_
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Get.hs+1−2
@@ -68,9 +68,8 @@ data UsersLabelsGet = UsersLabelsGet
68-- * 'ulgId'
68-- * 'ulgId'
69usersLabelsGet
69usersLabelsGet
70 :: Text -- ^ 'ulgId'
70 :: Text -- ^ 'ulgId'
71− -> Text
72 -> UsersLabelsGet
71 -> UsersLabelsGet
73−usersLabelsGet pUlgUserId_ pUlgId_ =
72+usersLabelsGet pUlgId_ =
74 UsersLabelsGet
73 UsersLabelsGet
75 { _ulgUserId = "me"
74 { _ulgUserId = "me"
76 , _ulgId = pUlgId_
75 , _ulgId = pUlgId_
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/List.hs+2−3
@@ -63,9 +63,8 @@ newtype UsersLabelsList = UsersLabelsList
63--
63--
64-- * 'ullUserId'
64-- * 'ullUserId'
65usersLabelsList
65usersLabelsList
66− :: Text
67− -> UsersLabelsList
66+ :: UsersLabelsList
68−usersLabelsList pUllUserId_ =
67+usersLabelsList =
69 UsersLabelsList
68 UsersLabelsList
70 { _ullUserId = "me"
69 { _ullUserId = "me"
71 }
70 }
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Patch.hs+1−2
@@ -74,9 +74,8 @@ data UsersLabelsPatch = UsersLabelsPatch
74usersLabelsPatch
74usersLabelsPatch
75 :: Label -- ^ 'ulpPayload'
75 :: Label -- ^ 'ulpPayload'
76 -> Text -- ^ 'ulpId'
76 -> Text -- ^ 'ulpId'
77− -> Text
78 -> UsersLabelsPatch
77 -> UsersLabelsPatch
79−usersLabelsPatch pUlpPayload_ pUlpUserId_ pUlpId_ =
78+usersLabelsPatch pUlpPayload_ pUlpId_ =
80 UsersLabelsPatch
79 UsersLabelsPatch
81 { _ulpPayload = pUlpPayload_
80 { _ulpPayload = pUlpPayload_
82 , _ulpUserId = "me"
81 , _ulpUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Labels/Update.hs+1−2
@@ -74,9 +74,8 @@ data UsersLabelsUpdate = UsersLabelsUpdate
74usersLabelsUpdate
74usersLabelsUpdate
75 :: Label -- ^ 'uluPayload'
75 :: Label -- ^ 'uluPayload'
76 -> Text -- ^ 'uluId'
76 -> Text -- ^ 'uluId'
77− -> Text
78 -> UsersLabelsUpdate
77 -> UsersLabelsUpdate
79−usersLabelsUpdate pUluPayload_ pUluUserId_ pUluId_ =
78+usersLabelsUpdate pUluPayload_ pUluId_ =
80 UsersLabelsUpdate
79 UsersLabelsUpdate
81 { _uluPayload = pUluPayload_
80 { _uluPayload = pUluPayload_
82 , _uluUserId = "me"
81 , _uluUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Attachments/Get.hs+1−2
@@ -76,9 +76,8 @@ data UsersMessagesAttachmentsGet = UsersMessagesAttachmentsGet
76usersMessagesAttachmentsGet
76usersMessagesAttachmentsGet
77 :: Text -- ^ 'umagId'
77 :: Text -- ^ 'umagId'
78 -> Text -- ^ 'umagMessageId'
78 -> Text -- ^ 'umagMessageId'
79− -> Text
80 -> UsersMessagesAttachmentsGet
79 -> UsersMessagesAttachmentsGet
81−usersMessagesAttachmentsGet pUmagUserId_ pUmagId_ pUmagMessageId_ =
80+usersMessagesAttachmentsGet pUmagId_ pUmagMessageId_ =
82 UsersMessagesAttachmentsGet
81 UsersMessagesAttachmentsGet
83 { _umagUserId = "me"
82 { _umagUserId = "me"
84 , _umagId = pUmagId_
83 , _umagId = pUmagId_
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Delete.hs+1−2
@@ -70,9 +70,8 @@ data UsersMessagesDelete = UsersMessagesDelete
70-- * 'umdId'
70-- * 'umdId'
71usersMessagesDelete
71usersMessagesDelete
72 :: Text -- ^ 'umdId'
72 :: Text -- ^ 'umdId'
73− -> Text
74 -> UsersMessagesDelete
73 -> UsersMessagesDelete
75−usersMessagesDelete pUmdUserId_ pUmdId_ =
74+usersMessagesDelete pUmdId_ =
76 UsersMessagesDelete
75 UsersMessagesDelete
77 { _umdUserId = "me"
76 { _umdUserId = "me"
78 , _umdId = pUmdId_
77 , _umdId = pUmdId_
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Get.hs+1−2
@@ -78,9 +78,8 @@ data UsersMessagesGet = UsersMessagesGet
78-- * 'umgMetadataHeaders'
78-- * 'umgMetadataHeaders'
79usersMessagesGet
79usersMessagesGet
80 :: Text -- ^ 'umgId'
80 :: Text -- ^ 'umgId'
81− -> Text
82 -> UsersMessagesGet
81 -> UsersMessagesGet
83−usersMessagesGet pUmgUserId_ pUmgId_ =
82+usersMessagesGet pUmgId_ =
84 UsersMessagesGet
83 UsersMessagesGet
85 { _umgFormat = Full
84 { _umgFormat = Full
86 , _umgUserId = "me"
85 , _umgUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Import.hs+1−2
@@ -113,9 +113,8 @@ data UsersMessagesImport = UsersMessagesImport
113-- * 'umiInternalDateSource'
113-- * 'umiInternalDateSource'
114usersMessagesImport
114usersMessagesImport
115 :: Message -- ^ 'umiPayload'
115 :: Message -- ^ 'umiPayload'
116− -> Text
117 -> UsersMessagesImport
116 -> UsersMessagesImport
118−usersMessagesImport pUmiPayload_ pUmiUserId_ =
117+usersMessagesImport pUmiPayload_ =
119 UsersMessagesImport
118 UsersMessagesImport
120 { _umiPayload = pUmiPayload_
119 { _umiPayload = pUmiPayload_
121 , _umiUserId = "me"
120 , _umiUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Insert.hs+1−2
@@ -99,9 +99,8 @@ data UsersMessagesInsert = UsersMessagesInsert
99-- * 'uInternalDateSource'
99-- * 'uInternalDateSource'
100usersMessagesInsert
100usersMessagesInsert
101 :: Message -- ^ 'uPayload'
101 :: Message -- ^ 'uPayload'
102− -> Text
103 -> UsersMessagesInsert
102 -> UsersMessagesInsert
104−usersMessagesInsert pUPayload_ pUUserId_ =
103+usersMessagesInsert pUPayload_ =
105 UsersMessagesInsert
104 UsersMessagesInsert
106 { _uPayload = pUPayload_
105 { _uPayload = pUPayload_
107 , _uUserId = "me"
106 , _uUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/List.hs+2−3
@@ -88,9 +88,8 @@ data UsersMessagesList = UsersMessagesList
88--
88--
89-- * 'umlMaxResults'
89-- * 'umlMaxResults'
90usersMessagesList
90usersMessagesList
91− :: Text
92− -> UsersMessagesList
91+ :: UsersMessagesList
93−usersMessagesList pUmlUserId_ =
92+usersMessagesList =
94 UsersMessagesList
93 UsersMessagesList
95 { _umlQ = Nothing
94 { _umlQ = Nothing
96 , _umlUserId = "me"
95 , _umlUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Modify.hs+1−2
@@ -76,9 +76,8 @@ data UsersMessagesModify = UsersMessagesModify
76usersMessagesModify
76usersMessagesModify
77 :: ModifyMessageRequest -- ^ 'ummPayload'
77 :: ModifyMessageRequest -- ^ 'ummPayload'
78 -> Text -- ^ 'ummId'
78 -> Text -- ^ 'ummId'
79− -> Text
80 -> UsersMessagesModify
79 -> UsersMessagesModify
81−usersMessagesModify pUmmPayload_ pUmmUserId_ pUmmId_ =
80+usersMessagesModify pUmmPayload_ pUmmId_ =
82 UsersMessagesModify
81 UsersMessagesModify
83 { _ummPayload = pUmmPayload_
82 { _ummPayload = pUmmPayload_
84 , _ummUserId = "me"
83 , _ummUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Send.hs+1−2
@@ -83,9 +83,8 @@ data UsersMessagesSend = UsersMessagesSend
83-- * 'umsUserId'
83-- * 'umsUserId'
84usersMessagesSend
84usersMessagesSend
85 :: Message -- ^ 'umsPayload'
85 :: Message -- ^ 'umsPayload'
86− -> Text
87 -> UsersMessagesSend
86 -> UsersMessagesSend
88−usersMessagesSend pUmsPayload_ pUmsUserId_ =
87+usersMessagesSend pUmsPayload_ =
89 UsersMessagesSend
88 UsersMessagesSend
90 { _umsPayload = pUmsPayload_
89 { _umsPayload = pUmsPayload_
91 , _umsUserId = "me"
90 , _umsUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Trash.hs+1−2
@@ -69,9 +69,8 @@ data UsersMessagesTrash = UsersMessagesTrash
69-- * 'umtId'
69-- * 'umtId'
70usersMessagesTrash
70usersMessagesTrash
71 :: Text -- ^ 'umtId'
71 :: Text -- ^ 'umtId'
72− -> Text
73 -> UsersMessagesTrash
72 -> UsersMessagesTrash
74−usersMessagesTrash pUmtUserId_ pUmtId_ =
73+usersMessagesTrash pUmtId_ =
75 UsersMessagesTrash
74 UsersMessagesTrash
76 { _umtUserId = "me"
75 { _umtUserId = "me"
77 , _umtId = pUmtId_
76 , _umtId = pUmtId_
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Messages/Untrash.hs+1−2
@@ -69,9 +69,8 @@ data UsersMessagesUntrash = UsersMessagesUntrash
69-- * 'umuId'
69-- * 'umuId'
70usersMessagesUntrash
70usersMessagesUntrash
71 :: Text -- ^ 'umuId'
71 :: Text -- ^ 'umuId'
72− -> Text
73 -> UsersMessagesUntrash
72 -> UsersMessagesUntrash
74−usersMessagesUntrash pUmuUserId_ pUmuId_ =
73+usersMessagesUntrash pUmuId_ =
75 UsersMessagesUntrash
74 UsersMessagesUntrash
76 { _umuUserId = "me"
75 { _umuUserId = "me"
77 , _umuId = pUmuId_
76 , _umuId = pUmuId_
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Stop.hs+2−3
@@ -61,9 +61,8 @@ newtype UsersStop = UsersStop
61--
61--
62-- * 'usUserId'
62-- * 'usUserId'
63usersStop
63usersStop
64− :: Text
65− -> UsersStop
64+ :: UsersStop
66−usersStop pUsUserId_ =
65+usersStop =
67 UsersStop
66 UsersStop
68 { _usUserId = "me"
67 { _usUserId = "me"
69 }
68 }
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Delete.hs+1−2
@@ -70,9 +70,8 @@ data UsersThreadsDelete = UsersThreadsDelete
70-- * 'utdId'
70-- * 'utdId'
71usersThreadsDelete
71usersThreadsDelete
72 :: Text -- ^ 'utdId'
72 :: Text -- ^ 'utdId'
73− -> Text
74 -> UsersThreadsDelete
73 -> UsersThreadsDelete
75−usersThreadsDelete pUtdUserId_ pUtdId_ =
74+usersThreadsDelete pUtdId_ =
76 UsersThreadsDelete
75 UsersThreadsDelete
77 { _utdUserId = "me"
76 { _utdUserId = "me"
78 , _utdId = pUtdId_
77 , _utdId = pUtdId_
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Get.hs+1−2
@@ -78,9 +78,8 @@ data UsersThreadsGet = UsersThreadsGet
78-- * 'utgMetadataHeaders'
78-- * 'utgMetadataHeaders'
79usersThreadsGet
79usersThreadsGet
80 :: Text -- ^ 'utgId'
80 :: Text -- ^ 'utgId'
81− -> Text
82 -> UsersThreadsGet
81 -> UsersThreadsGet
83−usersThreadsGet pUtgUserId_ pUtgId_ =
82+usersThreadsGet pUtgId_ =
84 UsersThreadsGet
83 UsersThreadsGet
85 { _utgFormat = UTGFFull
84 { _utgFormat = UTGFFull
86 , _utgUserId = "me"
85 , _utgUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/List.hs+2−3
@@ -88,9 +88,8 @@ data UsersThreadsList = UsersThreadsList
88--
88--
89-- * 'utlMaxResults'
89-- * 'utlMaxResults'
90usersThreadsList
90usersThreadsList
91− :: Text
92− -> UsersThreadsList
91+ :: UsersThreadsList
93−usersThreadsList pUtlUserId_ =
92+usersThreadsList =
94 UsersThreadsList
93 UsersThreadsList
95 { _utlQ = Nothing
94 { _utlQ = Nothing
96 , _utlUserId = "me"
95 , _utlUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Modify.hs+1−2
@@ -78,9 +78,8 @@ data UsersThreadsModify = UsersThreadsModify
78usersThreadsModify
78usersThreadsModify
79 :: ModifyThreadRequest -- ^ 'utmPayload'
79 :: ModifyThreadRequest -- ^ 'utmPayload'
80 -> Text -- ^ 'utmId'
80 -> Text -- ^ 'utmId'
81− -> Text
82 -> UsersThreadsModify
81 -> UsersThreadsModify
83−usersThreadsModify pUtmPayload_ pUtmUserId_ pUtmId_ =
82+usersThreadsModify pUtmPayload_ pUtmId_ =
84 UsersThreadsModify
83 UsersThreadsModify
85 { _utmPayload = pUtmPayload_
84 { _utmPayload = pUtmPayload_
86 , _utmUserId = "me"
85 , _utmUserId = "me"
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Trash.hs+1−2
@@ -69,9 +69,8 @@ data UsersThreadsTrash = UsersThreadsTrash
69-- * 'uttId'
69-- * 'uttId'
70usersThreadsTrash
70usersThreadsTrash
71 :: Text -- ^ 'uttId'
71 :: Text -- ^ 'uttId'
72− -> Text
73 -> UsersThreadsTrash
72 -> UsersThreadsTrash
74−usersThreadsTrash pUttUserId_ pUttId_ =
73+usersThreadsTrash pUttId_ =
75 UsersThreadsTrash
74 UsersThreadsTrash
76 { _uttUserId = "me"
75 { _uttUserId = "me"
77 , _uttId = pUttId_
76 , _uttId = pUttId_
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Threads/Untrash.hs+1−2
@@ -69,9 +69,8 @@ data UsersThreadsUntrash = UsersThreadsUntrash
69-- * 'utuId'
69-- * 'utuId'
70usersThreadsUntrash
70usersThreadsUntrash
71 :: Text -- ^ 'utuId'
71 :: Text -- ^ 'utuId'
72− -> Text
73 -> UsersThreadsUntrash
72 -> UsersThreadsUntrash
74−usersThreadsUntrash pUtuUserId_ pUtuId_ =
73+usersThreadsUntrash pUtuId_ =
75 UsersThreadsUntrash
74 UsersThreadsUntrash
76 { _utuUserId = "me"
75 { _utuUserId = "me"
77 , _utuId = pUtuId_
76 , _utuId = pUtuId_
gogol-gmail/gen/Network/Google/Resource/Gmail/Users/Watch.hs+1−2
@@ -69,9 +69,8 @@ data UsersWatch = UsersWatch
69-- * 'uwUserId'
69-- * 'uwUserId'
70usersWatch
70usersWatch
71 :: WatchRequest -- ^ 'uwPayload'
71 :: WatchRequest -- ^ 'uwPayload'
72− -> Text
73 -> UsersWatch
72 -> UsersWatch
74−usersWatch pUwPayload_ pUwUserId_ =
73+usersWatch pUwPayload_ =
75 UsersWatch
74 UsersWatch
76 { _uwPayload = pUwPayload_
75 { _uwPayload = pUwPayload_
77 , _uwUserId = "me"
76 , _uwUserId = "me"