git.iko.soy/gogol
on develop help sign in
Disambiguating Download type
1eabc15Brendan Hay
core/src/Network/Google/Prelude.hs+6−6
compare with develop
unifiedsplit
@@ -105,14 +105,14 @@ class GoogleAuth a where
105 authToken :: Traversal' a OAuthToken
105 authToken :: Traversal' a OAuthToken
106 -- ^ only set if unset semantics?
106 -- ^ only set if unset semantics?
107
107
108−newtype Download a = Download a
108+newtype MediaDownload a = MediaDownload a
109
109
110−_Download :: Iso' (Download a) a
110+_Download :: Iso' (MediaDownload a) a
111−_Download = iso (\(Download x) -> x) Download
111+_Download = iso (\(MediaDownload x) -> x) MediaDownload
112
112
113−instance GoogleAuth a => GoogleAuth (Download a) where
113+instance GoogleAuth a => GoogleAuth (MediaDownload a) where
114− authKey = _Download . authKey
114+ authKey = _MediaDownload . authKey
115− authToken = _Download . authToken
115+ authToken = _MediaDownload . authToken
116
116
117data Body = Body -- MediaType
117data Body = Body -- MediaType
118 deriving (Eq, Show, Generic, Data, Typeable)
118 deriving (Eq, Show, Generic, Data, Typeable)
gen/src/Gen/Syntax.hs+2−2
@@ -136,7 +136,7 @@ downloadDecl :: Global
136downloadDecl n p api url fs m =
136downloadDecl n p api url fs m =
137 googleRequestDecl n ty rs alt p api url fs m pat prec
137 googleRequestDecl n ty rs alt p api url fs m pat prec
138 where
138 where
139− ty = TyApp (TyCon "Download") (tycon n)
139+ ty = TyApp (TyCon "MediaDownload") (tycon n)
140 rs = InsType noLoc (TyApp (TyCon "Rs") ty) (TyCon "Body")
140 rs = InsType noLoc (TyApp (TyCon "Rs") ty) (TyCon "Body")
141
141
142 alt = Just (var "AltMedia")
142 alt = Just (var "AltMedia")
@@ -144,7 +144,7 @@ downloadDecl n p api url fs m =
144 pat | _mSupportsMediaDownload m = PInfixApp PWildCard (UnQual (sym ":<|>")) (pvar "go")
144 pat | _mSupportsMediaDownload m = PInfixApp PWildCard (UnQual (sym ":<|>")) (pvar "go")
145 | otherwise = pvar "go"
145 | otherwise = pvar "go"
146
146
147− prec = PApp (UnQual "Download") [PRec (UnQual (dname n)) [PFieldWildcard]]
147+ prec = PApp (UnQual "MediaDownload") [PRec (UnQual (dname n)) [PFieldWildcard]]
148
148
149requestDecl :: Global
149requestDecl :: Global
150 -> Prefix
150 -> Prefix