on develop help sign in
Consitent naming of iso
3f294caBrendan Hay
core/src/Network/Google/Prelude.hs+2−2
@@ -107,8 +107,8 @@ class GoogleAuth a where
107
107
108newtype MediaDownload a = MediaDownload a
108newtype MediaDownload a = MediaDownload a
109
109
110−_Download :: Iso' (MediaDownload a) a
110+_MediaDownload :: Iso' (MediaDownload a) a
111−_Download = iso (\(MediaDownload x) -> x) MediaDownload
111+_MediaDownload = iso (\(MediaDownload x) -> x) MediaDownload
112
112
113instance GoogleAuth a => GoogleAuth (MediaDownload a) where
113instance GoogleAuth a => GoogleAuth (MediaDownload a) where
114 authKey = _MediaDownload . authKey
114 authKey = _MediaDownload . authKey