git.iko.soy/gogol
on develop help sign in
Renaming MediaDownload -> Download
commit2bf7b22762bfee7c25781ef34d1b3043179095f8 authorBrendan Hay <brendan.g.hay@gmail.com> dateTue 20 Oct 2015, 10:58 (11 years ago) parent7c6465b
4 files changed+9−8
compare with develop
unifiedsplit
core/src/Network/Google/Types.hs+3−3 gen/src/Gen/Syntax.hs+2−2 gen/src/Gen/Text.hs+1 gogol/src/Network/Google.hs+3−3
core/src/Network/Google/Types.hs+3−3
@@ -78,10 +78,10 @@ newtype OAuthToken = OAuthToken { tokenToBS :: ByteString }
7878instance FromJSON OAuthToken where
7979 parseJSON = withText "oauth_token" (pure . OAuthToken . Text.encodeUtf8)
8080
81−newtype MediaDownload a = MediaDownload a
81+newtype Download a = Download a
8282
83−_MediaDownload :: Iso' (MediaDownload a) a
84−_MediaDownload = iso (\(MediaDownload x) -> x) MediaDownload
83+_Download :: Iso' (Download a) a
84+_Download = iso (\(Download x) -> x) Download
8585
8686_Coerce :: (Coercible a b, Coercible b a) => Iso' a b
8787_Coerce = iso coerce coerce
gen/src/Gen/Syntax.hs+2−2
@@ -146,7 +146,7 @@ downloadDecl :: Global
146146downloadDecl n p api url fs m =
147147 googleRequestDecl n ty rs alt p api url fs m pat prec
148148 where
149− ty = TyApp (TyCon "MediaDownload") (tycon n)
149+ ty = TyApp (TyCon "Download") (tycon n)
150150 rs = InsType noLoc (TyApp (TyCon "Rs") ty) (TyCon "Stream")
151151
152152 alt = Just (var "AltMedia")
@@ -154,7 +154,7 @@ downloadDecl n p api url fs m =
154154 pat | _mSupportsMediaDownload m = PInfixApp PWildCard (UnQual (sym ":<|>")) (pvar "go")
155155 | otherwise = pvar "go"
156156
157− prec = PApp (UnQual "MediaDownload")
157+ prec = PApp (UnQual "Download")
158158 [ PRec (UnQual (dname n)) [PFieldWildcard | not (null fs)]
159159 ]
160160
gen/src/Gen/Text.hs+1
@@ -135,6 +135,7 @@ renameReserved x
135135 , "Data"
136136 , "TimeOfDay"
137137 , "LocalTime"
138+ , "Download"
138139 ] ++ map Text.pack (reservedNames haskellDef)
139140
140141camelAcronym :: Text -> Text
gogol/src/Network/Google.hs+3−3
@@ -175,10 +175,10 @@ send x = liftGoogle $ do
175175-- to retrieve the streaming media.
176176--
177177-- Throws 'Error'.
178−download :: (MonadGoogle m, GoogleRequest (MediaDownload a))
178+download :: (MonadGoogle m, GoogleRequest (Download a))
179179 => a
180− -> m (Rs (MediaDownload a))
181−download = send . MediaDownload
180+ -> m (Rs (Download a))
181+download = send . Download
182182
183183hoistError :: MonadThrow m => Either Error a -> m a
184184hoistError = either (throwingM _Error) return