gogol-core 0.3.0 → 0.4.0
raw patch · 4 files changed
+83/−76 lines, 4 filesdep ~aesondep ~conduitPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: aeson, conduit
API changes (from Hackage documentation)
- Network.Google.Data.Time: _Duration :: Iso' Duration Scientific
- Network.Google.Data.Time: data DateTime'
- Network.Google.Data.Time: data Duration
- Network.Google.Data.Time: instance Data.Aeson.Types.FromJSON.FromJSON Network.Google.Data.Time.Duration
- Network.Google.Data.Time: instance Data.Aeson.Types.ToJSON.ToJSON Network.Google.Data.Time.Duration
- Network.Google.Data.Time: instance Data.Data.Data Network.Google.Data.Time.Duration
- Network.Google.Data.Time: instance GHC.Classes.Eq Network.Google.Data.Time.Duration
- Network.Google.Data.Time: instance GHC.Classes.Ord Network.Google.Data.Time.Duration
- Network.Google.Data.Time: instance GHC.Generics.Generic Network.Google.Data.Time.Duration
- Network.Google.Data.Time: instance GHC.Read.Read Network.Google.Data.Time.Duration
- Network.Google.Data.Time: instance GHC.Show.Show Network.Google.Data.Time.Duration
- Network.Google.Data.Time: instance Web.Internal.HttpApiData.FromHttpApiData Network.Google.Data.Time.Duration
- Network.Google.Data.Time: instance Web.Internal.HttpApiData.ToHttpApiData Network.Google.Data.Time.Duration
- Network.Google.Types: Client :: !(Maybe MediaType) -> !Method -> !(Status -> Bool) -> !ServiceConfig -> !Request -> !(Stream -> ResourceT IO (Either (String, ByteString) a)) -> Client a
- Network.Google.Types: FieldMask :: Text -> FieldMask
- Network.Google.Types: Secret :: Text -> Secret
- Network.Google.Types: client :: (Stream -> ResourceT IO (Either (String, ByteString) a)) -> Maybe MediaType -> Method -> [Int] -> Request -> ServiceConfig -> Client a
- Network.Google.Types: data Client a
- Network.Google.Types: instance (Network.Google.Types.FromStream c a, cs' ~ (c : cs)) => Network.Google.Types.GoogleClient (Servant.API.Verbs.Post cs' a)
- Network.Google.Types: instance Data.Aeson.Types.FromJSON.FromJSON Network.Google.Types.FieldMask
- Network.Google.Types: instance Data.Aeson.Types.FromJSON.FromJSON Network.Google.Types.Secret
- Network.Google.Types: instance Data.Aeson.Types.ToJSON.ToJSON Network.Google.Types.FieldMask
- Network.Google.Types: instance Data.Aeson.Types.ToJSON.ToJSON Network.Google.Types.Secret
- Network.Google.Types: instance Data.Data.Data Network.Google.Types.FieldMask
- Network.Google.Types: instance Data.String.IsString Network.Google.Types.FieldMask
- Network.Google.Types: instance Data.String.IsString Network.Google.Types.Secret
- Network.Google.Types: instance GHC.Classes.Eq Network.Google.Types.FieldMask
- Network.Google.Types: instance GHC.Classes.Eq Network.Google.Types.Secret
- Network.Google.Types: instance GHC.Classes.Ord Network.Google.Types.FieldMask
- Network.Google.Types: instance GHC.Classes.Ord Network.Google.Types.Secret
- Network.Google.Types: instance GHC.Exception.Exception Network.Google.Types.Error
- Network.Google.Types: instance GHC.Generics.Generic Network.Google.Types.FieldMask
- Network.Google.Types: instance GHC.Generics.Generic Network.Google.Types.Secret
- Network.Google.Types: instance GHC.Read.Read Network.Google.Types.FieldMask
- Network.Google.Types: instance GHC.Read.Read Network.Google.Types.Secret
- Network.Google.Types: instance GHC.Show.Show Network.Google.Types.FieldMask
- Network.Google.Types: instance GHC.Show.Show Network.Google.Types.Secret
- Network.Google.Types: instance Network.Google.Types.AsError GHC.Exception.SomeException
- Network.Google.Types: instance Web.Internal.HttpApiData.FromHttpApiData Network.Google.Types.FieldMask
- Network.Google.Types: instance Web.Internal.HttpApiData.FromHttpApiData Network.Google.Types.Secret
- Network.Google.Types: instance Web.Internal.HttpApiData.ToHttpApiData Network.Google.Types.FieldMask
- Network.Google.Types: instance Web.Internal.HttpApiData.ToHttpApiData Network.Google.Types.Secret
- Network.Google.Types: newtype FieldMask
- Network.Google.Types: newtype Secret
+ Network.Google.Data.JSON: infixr 8 .=
+ Network.Google.Data.Time: DateTime' :: UTCTime -> DateTime'
+ Network.Google.Data.Time: [unDateTime] :: DateTime' -> UTCTime
+ Network.Google.Data.Time: _GDuration :: Iso' GDuration Scientific
+ Network.Google.Data.Time: data GDuration
+ Network.Google.Data.Time: instance Data.Aeson.Types.FromJSON.FromJSON Network.Google.Data.Time.GDuration
+ Network.Google.Data.Time: instance Data.Aeson.Types.ToJSON.ToJSON Network.Google.Data.Time.GDuration
+ Network.Google.Data.Time: instance Data.Data.Data Network.Google.Data.Time.GDuration
+ Network.Google.Data.Time: instance GHC.Classes.Eq Network.Google.Data.Time.GDuration
+ Network.Google.Data.Time: instance GHC.Classes.Ord Network.Google.Data.Time.GDuration
+ Network.Google.Data.Time: instance GHC.Generics.Generic Network.Google.Data.Time.GDuration
+ Network.Google.Data.Time: instance GHC.Read.Read Network.Google.Data.Time.GDuration
+ Network.Google.Data.Time: instance GHC.Show.Show Network.Google.Data.Time.GDuration
+ Network.Google.Data.Time: instance Web.Internal.HttpApiData.FromHttpApiData Network.Google.Data.Time.GDuration
+ Network.Google.Data.Time: instance Web.Internal.HttpApiData.ToHttpApiData Network.Google.Data.Time.GDuration
+ Network.Google.Data.Time: newtype DateTime'
+ Network.Google.Prelude: (!!) :: () => [a] -> Int -> a
+ Network.Google.Prelude: (#) :: () => AReview t b -> b -> t
+ Network.Google.Prelude: ($!) :: () => (a -> b) -> a -> b
+ Network.Google.Prelude: ($) :: () => (a -> b) -> a -> b
+ Network.Google.Prelude: (&&) :: Bool -> Bool -> Bool
+ Network.Google.Prelude: (*) :: Num a => a -> a -> a
+ Network.Google.Prelude: (**) :: Floating a => a -> a -> a
+ Network.Google.Prelude: (*>) :: Applicative f => f a -> f b -> f b
+ Network.Google.Prelude: (+) :: Num a => a -> a -> a
+ Network.Google.Prelude: (++) :: () => [a] -> [a] -> [a]
+ Network.Google.Prelude: (-) :: Num a => a -> a -> a
+ Network.Google.Prelude: (.!=) :: () => Parser (Maybe a) -> a -> Parser a
+ Network.Google.Prelude: (.) :: () => (b -> c) -> (a -> b) -> a -> c
+ Network.Google.Prelude: (.:) :: FromJSON a => Object -> Text -> Parser a
+ Network.Google.Prelude: (.:?) :: FromJSON a => Object -> Text -> Parser (Maybe a)
+ Network.Google.Prelude: (.=) :: (KeyValue kv, ToJSON v) => Text -> v -> kv
+ Network.Google.Prelude: (/) :: Fractional a => a -> a -> a
+ Network.Google.Prelude: (/=) :: Eq a => a -> a -> Bool
+ Network.Google.Prelude: (:<|>) :: a -> b -> (:<|>) a b
+ Network.Google.Prelude: (<$) :: Functor f => a -> f b -> f a
+ Network.Google.Prelude: (<$>) :: Functor f => (a -> b) -> f a -> f b
+ Network.Google.Prelude: (<) :: Ord a => a -> a -> Bool
+ Network.Google.Prelude: (<*) :: Applicative f => f a -> f b -> f a
+ Network.Google.Prelude: (<*>) :: Applicative f => f (a -> b) -> f a -> f b
+ Network.Google.Prelude: (<=) :: Ord a => a -> a -> Bool
+ Network.Google.Prelude: (<>) :: Semigroup a => a -> a -> a
+ Network.Google.Prelude: (=<<) :: Monad m => (a -> m b) -> m a -> m b
+ Network.Google.Prelude: (==) :: Eq a => a -> a -> Bool
+ Network.Google.Prelude: (>) :: Ord a => a -> a -> Bool
+ Network.Google.Prelude: (>=) :: Ord a => a -> a -> Bool
+ Network.Google.Prelude: (>>) :: Monad m => m a -> m b -> m b
+ Network.Google.Prelude: (>>=) :: Monad m => m a -> (a -> m b) -> m b
+ Network.Google.Prelude: (^) :: (Num a, Integral b) => a -> b -> a
+ Network.Google.Prelude: (^.) :: () => s -> Getting a s a -> a
+ Network.Google.Prelude: (^^) :: (Fractional a, Integral b) => a -> b -> a
+ Network.Google.Prelude: (||) :: Bool -> Bool -> Bool
+ Network.Google.Prelude: AccessToken :: Text -> AccessToken
+ Network.Google.Prelude: AltJSON :: AltJSON
+ Network.Google.Prelude: AltMedia :: AltMedia
+ Network.Google.Prelude: ArrayElemParam :: String -> Text -> Param
+ Network.Google.Prelude: BasicAuthData :: !ByteString -> !ByteString -> BasicAuthData
+ Network.Google.Prelude: Body :: !MediaType -> !RequestBody -> Body
+ Network.Google.Prelude: Bytes :: ByteString -> Bytes
+ Network.Google.Prelude: CONNECT :: StdMethod
+ Network.Google.Prelude: ClientId :: Text -> ClientId
+ Network.Google.Prelude: DELETE :: StdMethod
+ Network.Google.Prelude: DateTime' :: UTCTime -> DateTime'
+ Network.Google.Prelude: EQ :: Ordering
+ Network.Google.Prelude: EmptyAPI :: EmptyAPI
+ Network.Google.Prelude: False :: Bool
+ Network.Google.Prelude: FlagParam :: String -> Param
+ Network.Google.Prelude: GClient :: !Maybe MediaType -> !Method -> !Status -> Bool -> !ServiceConfig -> !Request -> !Stream -> ResourceT IO (Either (String, ByteString) a) -> GClient a
+ Network.Google.Prelude: GET :: StdMethod
+ Network.Google.Prelude: GFieldMask :: Text -> GFieldMask
+ Network.Google.Prelude: GSecret :: Text -> GSecret
+ Network.Google.Prelude: GT :: Ordering
+ Network.Google.Prelude: HEAD :: StdMethod
+ Network.Google.Prelude: HttpVersion :: !Int -> !Int -> HttpVersion
+ Network.Google.Prelude: Just :: a -> Maybe a
+ Network.Google.Prelude: KProxy :: KProxy t
+ Network.Google.Prelude: LT :: Ordering
+ Network.Google.Prelude: Left :: a -> Either a b
+ Network.Google.Prelude: LinkArrayElementBracket :: LinkArrayElementStyle
+ Network.Google.Prelude: LinkArrayElementPlain :: LinkArrayElementStyle
+ Network.Google.Prelude: MediaDownload :: a -> MediaDownload a
+ Network.Google.Prelude: MediaUpload :: a -> Body -> MediaUpload a
+ Network.Google.Prelude: Multipart :: Multipart
+ Network.Google.Prelude: Nat :: Natural -> Nat
+ Network.Google.Prelude: NoContent :: NoContent
+ Network.Google.Prelude: NotSecure :: IsSecure
+ Network.Google.Prelude: Nothing :: Maybe a
+ Network.Google.Prelude: OAuthScope :: Text -> OAuthScope
+ Network.Google.Prelude: OPTIONS :: StdMethod
+ Network.Google.Prelude: PATCH :: StdMethod
+ Network.Google.Prelude: POST :: StdMethod
+ Network.Google.Prelude: PUT :: StdMethod
+ Network.Google.Prelude: Proxy :: Proxy
+ Network.Google.Prelude: RefreshToken :: Text -> RefreshToken
+ Network.Google.Prelude: Request :: !Builder -> !DList (ByteString, Maybe ByteString) -> !DList (HeaderName, ByteString) -> ![Body] -> Request
+ Network.Google.Prelude: Right :: b -> Either a b
+ Network.Google.Prelude: Seconds :: Int -> Seconds
+ Network.Google.Prelude: Secure :: IsSecure
+ Network.Google.Prelude: SerializeError :: SerializeError -> Error
+ Network.Google.Prelude: SerializeError' :: !ServiceId -> [Header] -> !Status -> !String -> !Maybe ByteString -> SerializeError
+ Network.Google.Prelude: ServiceConfig :: !ServiceId -> !ByteString -> !Builder -> !Int -> !Bool -> !Maybe Seconds -> ServiceConfig
+ Network.Google.Prelude: ServiceError :: ServiceError -> Error
+ Network.Google.Prelude: ServiceError' :: !ServiceId -> !Status -> ![Header] -> !Maybe ByteString -> ServiceError
+ Network.Google.Prelude: ServiceId :: Text -> ServiceId
+ Network.Google.Prelude: SingleParam :: String -> Text -> Param
+ Network.Google.Prelude: TRACE :: StdMethod
+ Network.Google.Prelude: Textual :: a -> Textual a
+ Network.Google.Prelude: TransportError :: HttpException -> Error
+ Network.Google.Prelude: True :: Bool
+ Network.Google.Prelude: URI :: String -> Maybe URIAuth -> String -> String -> String -> URI
+ Network.Google.Prelude: [HCons] :: forall (a :: [Type]) (h :: Symbol) x (xs :: [Type]). () => ResponseHeader h x -> HList xs -> HList (Header h x : xs)
+ Network.Google.Prelude: [HNil] :: forall (a :: [Type]). () => HList ([] :: [Type])
+ Network.Google.Prelude: [SFalse] :: forall (b :: Bool). () => SBool False
+ Network.Google.Prelude: [STrue] :: forall (b :: Bool). () => SBool True
+ Network.Google.Prelude: [_cliAccept] :: GClient a -> !Maybe MediaType
+ Network.Google.Prelude: [_cliCheck] :: GClient a -> !Status -> Bool
+ Network.Google.Prelude: [_cliMethod] :: GClient a -> !Method
+ Network.Google.Prelude: [_cliRequest] :: GClient a -> !Request
+ Network.Google.Prelude: [_cliResponse] :: GClient a -> !Stream -> ResourceT IO (Either (String, ByteString) a)
+ Network.Google.Prelude: [_cliService] :: GClient a -> !ServiceConfig
+ Network.Google.Prelude: [_rqBody] :: Request -> ![Body]
+ Network.Google.Prelude: [_rqHeaders] :: Request -> !DList (HeaderName, ByteString)
+ Network.Google.Prelude: [_rqPath] :: Request -> !Builder
+ Network.Google.Prelude: [_rqQuery] :: Request -> !DList (ByteString, Maybe ByteString)
+ Network.Google.Prelude: [_serializeBody] :: SerializeError -> !Maybe ByteString
+ Network.Google.Prelude: [_serializeHeaders] :: SerializeError -> [Header]
+ Network.Google.Prelude: [_serializeId] :: SerializeError -> !ServiceId
+ Network.Google.Prelude: [_serializeMessage] :: SerializeError -> !String
+ Network.Google.Prelude: [_serializeStatus] :: SerializeError -> !Status
+ Network.Google.Prelude: [_serviceBody] :: ServiceError -> !Maybe ByteString
+ Network.Google.Prelude: [_serviceHeaders] :: ServiceError -> ![Header]
+ Network.Google.Prelude: [_serviceId] :: ServiceError -> !ServiceId
+ Network.Google.Prelude: [_serviceStatus] :: ServiceError -> !Status
+ Network.Google.Prelude: [_svcHost] :: ServiceConfig -> !ByteString
+ Network.Google.Prelude: [_svcId] :: ServiceConfig -> !ServiceId
+ Network.Google.Prelude: [_svcPath] :: ServiceConfig -> !Builder
+ Network.Google.Prelude: [_svcPort] :: ServiceConfig -> !Int
+ Network.Google.Prelude: [_svcSecure] :: ServiceConfig -> !Bool
+ Network.Google.Prelude: [_svcTimeout] :: ServiceConfig -> !Maybe Seconds
+ Network.Google.Prelude: [basicAuthPassword] :: BasicAuthData -> !ByteString
+ Network.Google.Prelude: [basicAuthUsername] :: BasicAuthData -> !ByteString
+ Network.Google.Prelude: [httpMajor] :: HttpVersion -> !Int
+ Network.Google.Prelude: [httpMinor] :: HttpVersion -> !Int
+ Network.Google.Prelude: [unBytes] :: Bytes -> ByteString
+ Network.Google.Prelude: [unDateTime] :: DateTime' -> UTCTime
+ Network.Google.Prelude: [unNat] :: Nat -> Natural
+ Network.Google.Prelude: [uriAuthority] :: URI -> Maybe URIAuth
+ Network.Google.Prelude: [uriFragment] :: URI -> String
+ Network.Google.Prelude: [uriPath] :: URI -> String
+ Network.Google.Prelude: [uriQuery] :: URI -> String
+ Network.Google.Prelude: [uriScheme] :: URI -> String
+ Network.Google.Prelude: _Bytes :: Iso' Bytes ByteString
+ Network.Google.Prelude: _Coerce :: (Coercible a b, Coercible b a) => Iso' a b
+ Network.Google.Prelude: _Date :: Iso' Date' Day
+ Network.Google.Prelude: _DateTime :: Iso' DateTime' UTCTime
+ Network.Google.Prelude: _Default :: Monoid a => Iso' (Maybe a) a
+ Network.Google.Prelude: _Error :: AsError a => Prism' a Error
+ Network.Google.Prelude: _GDuration :: Iso' GDuration Scientific
+ Network.Google.Prelude: _Just :: () => Prism (Maybe a) (Maybe b) a b
+ Network.Google.Prelude: _SerializeError :: AsError a => Prism' a SerializeError
+ Network.Google.Prelude: _ServiceError :: AsError a => Prism' a ServiceError
+ Network.Google.Prelude: _Time :: Iso' Time' TimeOfDay
+ Network.Google.Prelude: _TransportError :: AsError a => Prism' a HttpException
+ Network.Google.Prelude: abs :: Num a => a -> a
+ Network.Google.Prelude: acos :: Floating a => a -> a
+ Network.Google.Prelude: acosh :: Floating a => a -> a
+ Network.Google.Prelude: addHeader :: AddHeader h v orig new => v -> orig -> new
+ Network.Google.Prelude: all :: Foldable t => (a -> Bool) -> t a -> Bool
+ Network.Google.Prelude: allFieldLinks :: (HasLink (ToServantApi routes), GenericServant routes (AsLink Link), ToServant routes (AsLink Link) ~ MkLink (ToServantApi routes) Link) => routes (AsLink Link)
+ Network.Google.Prelude: allFieldLinks' :: (HasLink (ToServantApi routes), GenericServant routes (AsLink a), ToServant routes (AsLink a) ~ MkLink (ToServantApi routes) a) => (Link -> a) -> routes (AsLink a)
+ Network.Google.Prelude: allLinks :: HasLink api => Proxy api -> MkLink api Link
+ Network.Google.Prelude: allLinks' :: HasLink api => (Link -> a) -> Proxy api -> MkLink api a
+ Network.Google.Prelude: and :: Foldable t => t Bool -> Bool
+ Network.Google.Prelude: appendFile :: FilePath -> String -> IO ()
+ Network.Google.Prelude: appendHeader :: Request -> HeaderName -> Maybe Text -> Request
+ Network.Google.Prelude: appendPath :: Request -> Builder -> Request
+ Network.Google.Prelude: appendPaths :: ToHttpApiData a => Request -> [a] -> Request
+ Network.Google.Prelude: appendQuery :: Request -> ByteString -> Maybe Text -> Request
+ Network.Google.Prelude: asProxyTypeOf :: () => a -> proxy a -> a
+ Network.Google.Prelude: asTypeOf :: () => a -> a -> a
+ Network.Google.Prelude: asin :: Floating a => a -> a
+ Network.Google.Prelude: asinh :: Floating a => a -> a
+ Network.Google.Prelude: atan :: Floating a => a -> a
+ Network.Google.Prelude: atan2 :: RealFloat a => a -> a -> a
+ Network.Google.Prelude: atanh :: Floating a => a -> a
+ Network.Google.Prelude: bodyContentType :: Lens' Body MediaType
+ Network.Google.Prelude: break :: () => (a -> Bool) -> [a] -> ([a], [a])
+ Network.Google.Prelude: buildClient :: GoogleClient fn => Proxy fn -> Request -> Fn fn
+ Network.Google.Prelude: buildHeadersTo :: BuildHeadersTo hs => [Header] -> HList hs
+ Network.Google.Prelude: buildSymbol :: forall n proxy. KnownSymbol n => proxy n -> Builder
+ Network.Google.Prelude: buildText :: ToHttpApiData a => a -> Builder
+ Network.Google.Prelude: byteSymbol :: forall n proxy. KnownSymbol n => proxy n -> ByteString
+ Network.Google.Prelude: catMaybes :: () => [Maybe a] -> [a]
+ Network.Google.Prelude: ceiling :: (RealFrac a, Integral b) => a -> b
+ Network.Google.Prelude: class Accept (ctype :: k)
+ Network.Google.Prelude: class AddHeader (h :: Symbol) v orig new | h v orig -> new, new -> h, new -> v, new -> orig
+ Network.Google.Prelude: class Functor f => Applicative (f :: Type -> Type)
+ Network.Google.Prelude: class AsError a
+ Network.Google.Prelude: class Bounded a
+ Network.Google.Prelude: class BuildHeadersTo (hs :: [Type])
+ Network.Google.Prelude: class Typeable a => Data a
+ Network.Google.Prelude: class Enum a
+ Network.Google.Prelude: class Eq a
+ Network.Google.Prelude: class Fractional a => Floating a
+ Network.Google.Prelude: class Foldable (t :: Type -> Type)
+ Network.Google.Prelude: class Num a => Fractional a
+ Network.Google.Prelude: class FramingRender (strategy :: k)
+ Network.Google.Prelude: class FramingUnrender (strategy :: k)
+ Network.Google.Prelude: class FromHttpApiData a
+ Network.Google.Prelude: class FromJSON a
+ Network.Google.Prelude: class FromSourceIO chunk a | a -> chunk
+ Network.Google.Prelude: class Accept c => FromStream c a
+ Network.Google.Prelude: class Functor (f :: Type -> Type)
+ Network.Google.Prelude: class Generic a
+ Network.Google.Prelude: class GetHeaders ls
+ Network.Google.Prelude: class GoogleClient fn where {
+ Network.Google.Prelude: class GoogleRequest a where {
+ Network.Google.Prelude: class HasLink (endpoint :: k) where {
+ Network.Google.Prelude: class HasResponseHeader (h :: Symbol) a (headers :: [Type])
+ Network.Google.Prelude: class Hashable a
+ Network.Google.Prelude: class (Real a, Enum a) => Integral a
+ Network.Google.Prelude: class Accept ctype => MimeRender (ctype :: k) a
+ Network.Google.Prelude: class Accept ctype => MimeUnrender (ctype :: k) a
+ Network.Google.Prelude: class Applicative m => Monad (m :: Type -> Type)
+ Network.Google.Prelude: class Semigroup a => Monoid a
+ Network.Google.Prelude: class Num a
+ Network.Google.Prelude: class Eq a => Ord a
+ Network.Google.Prelude: class Read a
+ Network.Google.Prelude: class (Num a, Ord a) => Real a
+ Network.Google.Prelude: class (RealFrac a, Floating a) => RealFloat a
+ Network.Google.Prelude: class (Real a, Fractional a) => RealFrac a
+ Network.Google.Prelude: class ReflectMethod (a :: k)
+ Network.Google.Prelude: class SBoolI (b :: Bool)
+ Network.Google.Prelude: class Semigroup a
+ Network.Google.Prelude: class Show a
+ Network.Google.Prelude: class Accept c => ToBody c a
+ Network.Google.Prelude: class ToHttpApiData a
+ Network.Google.Prelude: class ToJSON a
+ Network.Google.Prelude: class ToSourceIO chunk a | a -> chunk
+ Network.Google.Prelude: class (Functor t, Foldable t) => Traversable (t :: Type -> Type)
+ Network.Google.Prelude: class Typeable (a :: k)
+ Network.Google.Prelude: clientService :: Lens' (GClient a) ServiceConfig
+ Network.Google.Prelude: compare :: Ord a => a -> a -> Ordering
+ Network.Google.Prelude: concat :: Foldable t => t [a] -> [a]
+ Network.Google.Prelude: concatMap :: Foldable t => (a -> [b]) -> t a -> [b]
+ Network.Google.Prelude: const :: () => a -> b -> a
+ Network.Google.Prelude: contentType :: Accept ctype => Proxy ctype -> MediaType
+ Network.Google.Prelude: contentTypes :: Accept ctype => Proxy ctype -> NonEmpty MediaType
+ Network.Google.Prelude: cos :: Floating a => a -> a
+ Network.Google.Prelude: cosh :: Floating a => a -> a
+ Network.Google.Prelude: curry :: () => ((a, b) -> c) -> a -> b -> c
+ Network.Google.Prelude: cycle :: () => [a] -> [a]
+ Network.Google.Prelude: data (:<|>) a b
+ Network.Google.Prelude: data AltJSON
+ Network.Google.Prelude: data AltMedia
+ Network.Google.Prelude: data AsLink a
+ Network.Google.Prelude: data BasicAuth (realm :: Symbol) userData
+ Network.Google.Prelude: data BasicAuthData
+ Network.Google.Prelude: data Body
+ Network.Google.Prelude: data Bool
+ Network.Google.Prelude: data ByteString
+ Network.Google.Prelude: data Capture' (mods :: [Type]) (sym :: Symbol) a
+ Network.Google.Prelude: data CaptureAll (sym :: Symbol) a
+ Network.Google.Prelude: data CaptureMode (s :: Symbol) (m :: Symbol) a
+ Network.Google.Prelude: data Captures (s :: Symbol) a
+ Network.Google.Prelude: data Char
+ Network.Google.Prelude: data Date'
+ Network.Google.Prelude: data Day
+ Network.Google.Prelude: data Description (sym :: Symbol)
+ Network.Google.Prelude: data Double
+ Network.Google.Prelude: data Either a b
+ Network.Google.Prelude: data EmptyAPI
+ Network.Google.Prelude: data Error
+ Network.Google.Prelude: data Float
+ Network.Google.Prelude: data FormUrlEncoded
+ Network.Google.Prelude: data GClient a
+ Network.Google.Prelude: data GDuration
+ Network.Google.Prelude: data HList (a :: [Type])
+ Network.Google.Prelude: data HashMap k v
+ Network.Google.Prelude: data HttpVersion
+ Network.Google.Prelude: data IO a
+ Network.Google.Prelude: data Int
+ Network.Google.Prelude: data Int32
+ Network.Google.Prelude: data Int64
+ Network.Google.Prelude: data Integer
+ Network.Google.Prelude: data IsSecure
+ Network.Google.Prelude: data JSON
+ Network.Google.Prelude: data KProxy t
+ Network.Google.Prelude: data Lenient
+ Network.Google.Prelude: data LinkArrayElementStyle
+ Network.Google.Prelude: data Maybe a
+ Network.Google.Prelude: data MediaUpload a
+ Network.Google.Prelude: data Multipart
+ Network.Google.Prelude: data MultipartRelated (cs :: [*]) m
+ Network.Google.Prelude: data Natural
+ Network.Google.Prelude: data NetstringFraming
+ Network.Google.Prelude: data NewlineFraming
+ Network.Google.Prelude: data NoContent
+ Network.Google.Prelude: data NoFraming
+ Network.Google.Prelude: data OctetStream
+ Network.Google.Prelude: data Optional
+ Network.Google.Prelude: data Ordering
+ Network.Google.Prelude: data Param
+ Network.Google.Prelude: data PlainText
+ Network.Google.Prelude: data QueryFlag (sym :: Symbol)
+ Network.Google.Prelude: data QueryParam' (mods :: [Type]) (sym :: Symbol) a
+ Network.Google.Prelude: data QueryParams (sym :: Symbol) a
+ Network.Google.Prelude: data Raw
+ Network.Google.Prelude: data RemoteHost
+ Network.Google.Prelude: data ReqBody' (mods :: [Type]) (contentTypes :: [Type]) a
+ Network.Google.Prelude: data Request
+ Network.Google.Prelude: data RequestBody
+ Network.Google.Prelude: data Required
+ Network.Google.Prelude: data SBool (b :: Bool)
+ Network.Google.Prelude: data Scientific
+ Network.Google.Prelude: data SerializeError
+ Network.Google.Prelude: data ServiceConfig
+ Network.Google.Prelude: data ServiceError
+ Network.Google.Prelude: data StdMethod
+ Network.Google.Prelude: data StreamBody' (mods :: [Type]) framing contentType a
+ Network.Google.Prelude: data Strict
+ Network.Google.Prelude: data Summary (sym :: Symbol)
+ Network.Google.Prelude: data Text
+ Network.Google.Prelude: data Time'
+ Network.Google.Prelude: data TimeOfDay
+ Network.Google.Prelude: data URI
+ Network.Google.Prelude: data UTCTime
+ Network.Google.Prelude: data WithNamedContext (name :: Symbol) (subContext :: [Type]) subApi
+ Network.Google.Prelude: data Word32
+ Network.Google.Prelude: data Word64
+ Network.Google.Prelude: data Word8
+ Network.Google.Prelude: data Header' (mods :: [Type]) (sym :: Symbol) (a :: k) :: forall k. () => [Type] -> Symbol -> k -> Type
+ Network.Google.Prelude: data AuthProtect (tag :: k) :: forall k. () => k -> Type
+ Network.Google.Prelude: data Verb (method :: k1) (statusCode :: Nat) (contentTypes :: [Type]) a :: forall k1. () => k1 -> Nat -> [Type] -> Type -> Type
+ Network.Google.Prelude: decodeFloat :: RealFloat a => a -> (Integer, Int)
+ Network.Google.Prelude: defaultService :: ServiceId -> ByteString -> ServiceConfig
+ Network.Google.Prelude: discard :: Method -> [Int] -> Request -> ServiceConfig -> GClient ()
+ Network.Google.Prelude: div :: Integral a => a -> a -> a
+ Network.Google.Prelude: divMod :: Integral a => a -> a -> (a, a)
+ Network.Google.Prelude: drop :: () => Int -> [a] -> [a]
+ Network.Google.Prelude: dropWhile :: () => (a -> Bool) -> [a] -> [a]
+ Network.Google.Prelude: either :: () => (a -> c) -> (b -> c) -> Either a b -> c
+ Network.Google.Prelude: elem :: (Foldable t, Eq a) => a -> t a -> Bool
+ Network.Google.Prelude: emptyObject :: Value
+ Network.Google.Prelude: encodeFloat :: RealFloat a => Integer -> Int -> a
+ Network.Google.Prelude: enumFrom :: Enum a => a -> [a]
+ Network.Google.Prelude: enumFromThen :: Enum a => a -> a -> [a]
+ Network.Google.Prelude: enumFromThenTo :: Enum a => a -> a -> a -> [a]
+ Network.Google.Prelude: enumFromTo :: Enum a => a -> a -> [a]
+ Network.Google.Prelude: error :: HasCallStack => [Char] -> a
+ Network.Google.Prelude: errorWithoutStackTrace :: () => [Char] -> a
+ Network.Google.Prelude: even :: Integral a => a -> Bool
+ Network.Google.Prelude: exp :: Floating a => a -> a
+ Network.Google.Prelude: exponent :: RealFloat a => a -> Int
+ Network.Google.Prelude: fail :: Monad m => String -> m a
+ Network.Google.Prelude: fieldLink :: (IsElem endpoint (ToServantApi routes), HasLink endpoint, GenericServant routes AsApi) => (routes AsApi -> endpoint) -> MkLink endpoint Link
+ Network.Google.Prelude: fieldLink' :: (IsElem endpoint (ToServantApi routes), HasLink endpoint, GenericServant routes AsApi) => (Link -> a) -> (routes AsApi -> endpoint) -> MkLink endpoint a
+ Network.Google.Prelude: filter :: () => (a -> Bool) -> [a] -> [a]
+ Network.Google.Prelude: flip :: () => (a -> b -> c) -> b -> a -> c
+ Network.Google.Prelude: floatDigits :: RealFloat a => a -> Int
+ Network.Google.Prelude: floatRadix :: RealFloat a => a -> Integer
+ Network.Google.Prelude: floatRange :: RealFloat a => a -> (Int, Int)
+ Network.Google.Prelude: floor :: (RealFrac a, Integral b) => a -> b
+ Network.Google.Prelude: fmap :: Functor f => (a -> b) -> f a -> f b
+ Network.Google.Prelude: foldMap :: (Foldable t, Monoid m) => (a -> m) -> t a -> m
+ Network.Google.Prelude: foldl :: Foldable t => (b -> a -> b) -> b -> t a -> b
+ Network.Google.Prelude: foldl1 :: Foldable t => (a -> a -> a) -> t a -> a
+ Network.Google.Prelude: foldr :: Foldable t => (a -> b -> b) -> b -> t a -> b
+ Network.Google.Prelude: foldr1 :: Foldable t => (a -> a -> a) -> t a -> a
+ Network.Google.Prelude: framingRender :: (FramingRender strategy, Monad m) => Proxy strategy -> (a -> ByteString) -> SourceT m a -> SourceT m ByteString
+ Network.Google.Prelude: framingUnrender :: (FramingUnrender strategy, Monad m) => Proxy strategy -> (ByteString -> Either String a) -> SourceT m ByteString -> SourceT m a
+ Network.Google.Prelude: fromEnum :: Enum a => a -> Int
+ Network.Google.Prelude: fromInteger :: Num a => Integer -> a
+ Network.Google.Prelude: fromIntegral :: (Integral a, Num b) => a -> b
+ Network.Google.Prelude: fromJust :: () => Maybe a -> a
+ Network.Google.Prelude: fromMaybe :: () => a -> Maybe a -> a
+ Network.Google.Prelude: fromRational :: Fractional a => Rational -> a
+ Network.Google.Prelude: fromSourceIO :: FromSourceIO chunk a => SourceIO chunk -> a
+ Network.Google.Prelude: fromStream :: FromStream c a => Proxy c -> Stream -> ResourceT IO (Either (String, ByteString) a)
+ Network.Google.Prelude: fst :: () => (a, b) -> a
+ Network.Google.Prelude: gClient :: (Stream -> ResourceT IO (Either (String, ByteString) a)) -> Maybe MediaType -> Method -> [Int] -> Request -> ServiceConfig -> GClient a
+ Network.Google.Prelude: gcd :: Integral a => a -> a -> a
+ Network.Google.Prelude: getChar :: IO Char
+ Network.Google.Prelude: getContents :: IO String
+ Network.Google.Prelude: getHeaders :: GetHeaders ls => ls -> [Header]
+ Network.Google.Prelude: getHeadersHList :: Headers ls a -> HList ls
+ Network.Google.Prelude: getLine :: IO String
+ Network.Google.Prelude: hashWithSalt :: Hashable a => Int -> a -> Int
+ Network.Google.Prelude: head :: () => [a] -> a
+ Network.Google.Prelude: id :: () => a -> a
+ Network.Google.Prelude: infix 4 `notElem`
+ Network.Google.Prelude: infixl 0 `hashWithSalt`
+ Network.Google.Prelude: infixl 1 >>
+ Network.Google.Prelude: infixl 4 <$>
+ Network.Google.Prelude: infixl 6 -
+ Network.Google.Prelude: infixl 7 *
+ Network.Google.Prelude: infixl 8 ^.
+ Network.Google.Prelude: infixl 9 !!
+ Network.Google.Prelude: infixr 0 $!
+ Network.Google.Prelude: infixr 1 =<<
+ Network.Google.Prelude: infixr 2 ||
+ Network.Google.Prelude: infixr 3 :<|>
+ Network.Google.Prelude: infixr 4 :>
+ Network.Google.Prelude: infixr 5 ++
+ Network.Google.Prelude: infixr 6 <>
+ Network.Google.Prelude: infixr 8 #
+ Network.Google.Prelude: infixr 9 .
+ Network.Google.Prelude: init :: () => [a] -> [a]
+ Network.Google.Prelude: interact :: (String -> String) -> IO ()
+ Network.Google.Prelude: ioError :: () => IOError -> IO a
+ Network.Google.Prelude: isDenormalized :: RealFloat a => a -> Bool
+ Network.Google.Prelude: isIEEE :: RealFloat a => a -> Bool
+ Network.Google.Prelude: isInfinite :: RealFloat a => a -> Bool
+ Network.Google.Prelude: isJust :: () => Maybe a -> Bool
+ Network.Google.Prelude: isNaN :: RealFloat a => a -> Bool
+ Network.Google.Prelude: isNegativeZero :: RealFloat a => a -> Bool
+ Network.Google.Prelude: isNothing :: () => Maybe a -> Bool
+ Network.Google.Prelude: iterate :: () => (a -> a) -> a -> [a]
+ Network.Google.Prelude: last :: () => [a] -> a
+ Network.Google.Prelude: lcm :: Integral a => a -> a -> a
+ Network.Google.Prelude: length :: Foldable t => t a -> Int
+ Network.Google.Prelude: lens :: () => (s -> a) -> (s -> b -> t) -> Lens s t a b
+ Network.Google.Prelude: lex :: ReadS String
+ Network.Google.Prelude: lines :: String -> [String]
+ Network.Google.Prelude: linkQueryParams :: Link -> [Param]
+ Network.Google.Prelude: linkSegments :: Link -> [String]
+ Network.Google.Prelude: linkURI :: Link -> URI
+ Network.Google.Prelude: linkURI' :: LinkArrayElementStyle -> Link -> URI
+ Network.Google.Prelude: listToMaybe :: () => [a] -> Maybe a
+ Network.Google.Prelude: log :: Floating a => a -> a
+ Network.Google.Prelude: logBase :: Floating a => a -> a -> a
+ Network.Google.Prelude: lookup :: Eq a => a -> [(a, b)] -> Maybe b
+ Network.Google.Prelude: lookupResponseHeader :: HasResponseHeader h a headers => Headers headers r -> ResponseHeader h a
+ Network.Google.Prelude: map :: () => (a -> b) -> [a] -> [b]
+ Network.Google.Prelude: mapM :: (Traversable t, Monad m) => (a -> m b) -> t a -> m (t b)
+ Network.Google.Prelude: mapM_ :: (Foldable t, Monad m) => (a -> m b) -> t a -> m ()
+ Network.Google.Prelude: mapMaybe :: () => (a -> Maybe b) -> [a] -> [b]
+ Network.Google.Prelude: mappend :: Monoid a => a -> a -> a
+ Network.Google.Prelude: mapping :: (Functor f, Functor g) => AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
+ Network.Google.Prelude: max :: Ord a => a -> a -> a
+ Network.Google.Prelude: maxBound :: Bounded a => a
+ Network.Google.Prelude: maximum :: (Foldable t, Ord a) => t a -> a
+ Network.Google.Prelude: maybe :: () => b -> (a -> b) -> Maybe a -> b
+ Network.Google.Prelude: maybeToList :: () => Maybe a -> [a]
+ Network.Google.Prelude: mconcat :: Monoid a => [a] -> a
+ Network.Google.Prelude: mempty :: Monoid a => a
+ Network.Google.Prelude: microseconds :: Seconds -> Int
+ Network.Google.Prelude: mime :: FromStream c a => Proxy c -> Method -> [Int] -> Request -> ServiceConfig -> GClient a
+ Network.Google.Prelude: mimeRender :: MimeRender ctype a => Proxy ctype -> a -> ByteString
+ Network.Google.Prelude: mimeUnrender :: MimeUnrender ctype a => Proxy ctype -> ByteString -> Either String a
+ Network.Google.Prelude: mimeUnrenderWithType :: MimeUnrender ctype a => Proxy ctype -> MediaType -> ByteString -> Either String a
+ Network.Google.Prelude: min :: Ord a => a -> a -> a
+ Network.Google.Prelude: minBound :: Bounded a => a
+ Network.Google.Prelude: minimum :: (Foldable t, Ord a) => t a -> a
+ Network.Google.Prelude: mod :: Integral a => a -> a -> a
+ Network.Google.Prelude: negate :: Num a => a -> a
+ Network.Google.Prelude: newtype AccessToken
+ Network.Google.Prelude: newtype Bytes
+ Network.Google.Prelude: newtype ClientId
+ Network.Google.Prelude: newtype DateTime'
+ Network.Google.Prelude: newtype GFieldMask
+ Network.Google.Prelude: newtype GSecret
+ Network.Google.Prelude: newtype MediaDownload a
+ Network.Google.Prelude: newtype Nat
+ Network.Google.Prelude: newtype OAuthScope
+ Network.Google.Prelude: newtype RefreshToken
+ Network.Google.Prelude: newtype Seconds
+ Network.Google.Prelude: newtype ServiceId
+ Network.Google.Prelude: newtype Textual a
+ Network.Google.Prelude: noHeader :: AddHeader h v orig new => orig -> new
+ Network.Google.Prelude: not :: Bool -> Bool
+ Network.Google.Prelude: notElem :: (Foldable t, Eq a) => a -> t a -> Bool
+ Network.Google.Prelude: null :: Foldable t => t a -> Bool
+ Network.Google.Prelude: object :: [Pair] -> Value
+ Network.Google.Prelude: odd :: Integral a => a -> Bool
+ Network.Google.Prelude: or :: Foldable t => t Bool -> Bool
+ Network.Google.Prelude: otherwise :: Bool
+ Network.Google.Prelude: parseHeader :: FromHttpApiData a => ByteString -> Either Text a
+ Network.Google.Prelude: parseJSON :: FromJSON a => Value -> Parser a
+ Network.Google.Prelude: parseJSONList :: FromJSON a => Value -> Parser [a]
+ Network.Google.Prelude: parseJSONObject :: FromJSON a => HashMap Text Value -> Parser a
+ Network.Google.Prelude: parseJSONText :: FromHttpApiData a => String -> Value -> Parser a
+ Network.Google.Prelude: parseQueryParam :: FromHttpApiData a => Text -> Either Text a
+ Network.Google.Prelude: parseUrlPiece :: FromHttpApiData a => Text -> Either Text a
+ Network.Google.Prelude: pattern UndecodableHeader :: () => () => ByteString -> ResponseHeader sym a
+ Network.Google.Prelude: pattern MissingHeader :: () => () => ResponseHeader sym a
+ Network.Google.Prelude: pi :: Floating a => a
+ Network.Google.Prelude: pred :: Enum a => a -> a
+ Network.Google.Prelude: print :: Show a => a -> IO ()
+ Network.Google.Prelude: properFraction :: (RealFrac a, Integral b) => a -> (b, a)
+ Network.Google.Prelude: pure :: Applicative f => a -> f a
+ Network.Google.Prelude: putChar :: Char -> IO ()
+ Network.Google.Prelude: putStr :: String -> IO ()
+ Network.Google.Prelude: putStrLn :: String -> IO ()
+ Network.Google.Prelude: quot :: Integral a => a -> a -> a
+ Network.Google.Prelude: quotRem :: Integral a => a -> a -> (a, a)
+ Network.Google.Prelude: read :: Read a => String -> a
+ Network.Google.Prelude: readFile :: FilePath -> IO String
+ Network.Google.Prelude: readIO :: Read a => String -> IO a
+ Network.Google.Prelude: readList :: Read a => ReadS [a]
+ Network.Google.Prelude: readLn :: Read a => IO a
+ Network.Google.Prelude: readParen :: () => Bool -> ReadS a -> ReadS a
+ Network.Google.Prelude: reads :: Read a => ReadS a
+ Network.Google.Prelude: readsPrec :: Read a => Int -> ReadS a
+ Network.Google.Prelude: realToFrac :: (Real a, Fractional b) => a -> b
+ Network.Google.Prelude: recip :: Fractional a => a -> a
+ Network.Google.Prelude: reflectMethod :: ReflectMethod a => Proxy a -> Method
+ Network.Google.Prelude: rem :: Integral a => a -> a -> a
+ Network.Google.Prelude: repeat :: () => a -> [a]
+ Network.Google.Prelude: replicate :: () => Int -> a -> [a]
+ Network.Google.Prelude: requestClient :: GoogleRequest a => a -> GClient (Rs a)
+ Network.Google.Prelude: return :: Monad m => a -> m a
+ Network.Google.Prelude: reverse :: () => [a] -> [a]
+ Network.Google.Prelude: round :: (RealFrac a, Integral b) => a -> b
+ Network.Google.Prelude: safeLink :: (IsElem endpoint api, HasLink endpoint) => Proxy api -> Proxy endpoint -> MkLink endpoint Link
+ Network.Google.Prelude: safeLink' :: (IsElem endpoint api, HasLink endpoint) => (Link -> a) -> Proxy api -> Proxy endpoint -> MkLink endpoint a
+ Network.Google.Prelude: sbool :: SBoolI b => SBool b
+ Network.Google.Prelude: scaleFloat :: RealFloat a => Int -> a -> a
+ Network.Google.Prelude: scanl :: () => (b -> a -> b) -> b -> [a] -> [b]
+ Network.Google.Prelude: scanl1 :: () => (a -> a -> a) -> [a] -> [a]
+ Network.Google.Prelude: scanr :: () => (a -> b -> b) -> b -> [a] -> [b]
+ Network.Google.Prelude: scanr1 :: () => (a -> a -> a) -> [a] -> [a]
+ Network.Google.Prelude: seconds :: Seconds -> Int
+ Network.Google.Prelude: seq :: () => a -> b -> b
+ Network.Google.Prelude: sequence :: (Traversable t, Monad m) => t (m a) -> m (t a)
+ Network.Google.Prelude: sequenceA :: (Traversable t, Applicative f) => t (f a) -> f (t a)
+ Network.Google.Prelude: sequence_ :: (Foldable t, Monad m) => t (m a) -> m ()
+ Network.Google.Prelude: serviceHost :: Lens' ServiceConfig ByteString
+ Network.Google.Prelude: servicePath :: Lens' ServiceConfig Builder
+ Network.Google.Prelude: servicePort :: Lens' ServiceConfig Int
+ Network.Google.Prelude: serviceSecure :: Lens' ServiceConfig Bool
+ Network.Google.Prelude: serviceTimeout :: Lens' ServiceConfig (Maybe Seconds)
+ Network.Google.Prelude: setBody :: Request -> [Body] -> Request
+ Network.Google.Prelude: show :: Show a => a -> String
+ Network.Google.Prelude: showChar :: Char -> ShowS
+ Network.Google.Prelude: showList :: Show a => [a] -> ShowS
+ Network.Google.Prelude: showParen :: Bool -> ShowS -> ShowS
+ Network.Google.Prelude: showString :: String -> ShowS
+ Network.Google.Prelude: shows :: Show a => a -> ShowS
+ Network.Google.Prelude: showsPrec :: Show a => Int -> a -> ShowS
+ Network.Google.Prelude: significand :: RealFloat a => a -> a
+ Network.Google.Prelude: signum :: Num a => a -> a
+ Network.Google.Prelude: sin :: Floating a => a -> a
+ Network.Google.Prelude: sinh :: Floating a => a -> a
+ Network.Google.Prelude: sinkLBS :: Stream -> ResourceT IO ByteString
+ Network.Google.Prelude: snd :: () => (a, b) -> b
+ Network.Google.Prelude: splitAt :: () => Int -> [a] -> ([a], [a])
+ Network.Google.Prelude: sqrt :: Floating a => a -> a
+ Network.Google.Prelude: subtract :: Num a => a -> a -> a
+ Network.Google.Prelude: succ :: Enum a => a -> a
+ Network.Google.Prelude: sum :: (Foldable t, Num a) => t a -> a
+ Network.Google.Prelude: tail :: () => [a] -> [a]
+ Network.Google.Prelude: take :: () => Int -> [a] -> [a]
+ Network.Google.Prelude: takeWhile :: () => (a -> Bool) -> [a] -> [a]
+ Network.Google.Prelude: tan :: Floating a => a -> a
+ Network.Google.Prelude: tanh :: Floating a => a -> a
+ Network.Google.Prelude: toBody :: ToBody c a => Proxy c -> a -> Body
+ Network.Google.Prelude: toEncodedUrlPiece :: ToHttpApiData a => a -> Builder
+ Network.Google.Prelude: toEncoding :: ToJSON a => a -> Encoding
+ Network.Google.Prelude: toEncodingList :: ToJSON a => [a] -> Encoding
+ Network.Google.Prelude: toEnum :: Enum a => Int -> a
+ Network.Google.Prelude: toHeader :: ToHttpApiData a => a -> ByteString
+ Network.Google.Prelude: toInteger :: Integral a => a -> Integer
+ Network.Google.Prelude: toJSON :: ToJSON a => a -> Value
+ Network.Google.Prelude: toJSONList :: ToJSON a => [a] -> Value
+ Network.Google.Prelude: toJSONText :: ToHttpApiData a => a -> Value
+ Network.Google.Prelude: toLink :: HasLink endpoint => (Link -> a) -> Proxy endpoint -> Link -> MkLink endpoint a
+ Network.Google.Prelude: toQueryParam :: ToHttpApiData a => a -> Text
+ Network.Google.Prelude: toRational :: Real a => a -> Rational
+ Network.Google.Prelude: toSourceIO :: ToSourceIO chunk a => a -> SourceIO chunk
+ Network.Google.Prelude: toUrlPiece :: ToHttpApiData a => a -> Text
+ Network.Google.Prelude: traverse :: (Traversable t, Applicative f) => (a -> f b) -> t a -> f (t b)
+ Network.Google.Prelude: truncate :: (RealFrac a, Integral b) => a -> b
+ Network.Google.Prelude: type Capture = Capture' ([] :: [Type])
+ Network.Google.Prelude: type Delete = Verb DELETE 200
+ Network.Google.Prelude: type DeleteAccepted = Verb DELETE 202
+ Network.Google.Prelude: type DeleteNoContent = Verb DELETE 204
+ Network.Google.Prelude: type DeleteNonAuthoritative = Verb DELETE 203
+ Network.Google.Prelude: type Elem (e :: t) (es :: [t]) = ElemGo e es es
+ Network.Google.Prelude: type FilePath = String
+ Network.Google.Prelude: type Get = Verb GET 200
+ Network.Google.Prelude: type GetAccepted = Verb GET 202
+ Network.Google.Prelude: type GetNoContent = Verb GET 204
+ Network.Google.Prelude: type GetNonAuthoritative = Verb GET 203
+ Network.Google.Prelude: type GetPartialContent = Verb GET 206
+ Network.Google.Prelude: type GetResetContent = Verb GET 205
+ Network.Google.Prelude: type IOError = IOException
+ Network.Google.Prelude: type JSONValue = Value
+ Network.Google.Prelude: type Lens' s a = Lens s s a a
+ Network.Google.Prelude: type Patch = Verb PATCH 200
+ Network.Google.Prelude: type PatchAccepted = Verb PATCH 202
+ Network.Google.Prelude: type PatchNoContent = Verb PATCH 204
+ Network.Google.Prelude: type PatchNonAuthoritative = Verb PATCH 203
+ Network.Google.Prelude: type Post = Verb POST 200
+ Network.Google.Prelude: type PostAccepted = Verb POST 202
+ Network.Google.Prelude: type PostCreated = Verb POST 201
+ Network.Google.Prelude: type PostNoContent = Verb POST 204
+ Network.Google.Prelude: type PostNonAuthoritative = Verb POST 203
+ Network.Google.Prelude: type PostResetContent = Verb POST 205
+ Network.Google.Prelude: type Put = Verb PUT 200
+ Network.Google.Prelude: type PutAccepted = Verb PUT 202
+ Network.Google.Prelude: type PutCreated = Verb PUT 201
+ Network.Google.Prelude: type PutNoContent = Verb PUT 204
+ Network.Google.Prelude: type PutNonAuthoritative = Verb PUT 203
+ Network.Google.Prelude: type QueryParam = QueryParam' Optional : Strict : ([] :: [Type])
+ Network.Google.Prelude: type Rational = Ratio Integer
+ Network.Google.Prelude: type ReadS a = String -> [(a, String)]
+ Network.Google.Prelude: type ReqBody = ReqBody' Required : Strict : ([] :: [Type])
+ Network.Google.Prelude: type ShowS = String -> String
+ Network.Google.Prelude: type SourceIO = SourceT IO
+ Network.Google.Prelude: type Stream = ConduitM () ByteString (ResourceT IO) ()
+ Network.Google.Prelude: type StreamBody = StreamBody' ([] :: [Type])
+ Network.Google.Prelude: type StreamGet = Stream GET 200
+ Network.Google.Prelude: type StreamPost = Stream POST 200
+ Network.Google.Prelude: type String = [Char]
+ Network.Google.Prelude: type Vault = Vault RealWorld
+ Network.Google.Prelude: type family Scopes a :: [Symbol];
+ Network.Google.Prelude: uncurry :: () => (a -> b -> c) -> (a, b) -> c
+ Network.Google.Prelude: undefined :: HasCallStack => a
+ Network.Google.Prelude: unlines :: [String] -> String
+ Network.Google.Prelude: until :: () => (a -> Bool) -> (a -> a) -> a -> a
+ Network.Google.Prelude: unwords :: [String] -> String
+ Network.Google.Prelude: unzip :: () => [(a, b)] -> ([a], [b])
+ Network.Google.Prelude: unzip3 :: () => [(a, b, c)] -> ([a], [b], [c])
+ Network.Google.Prelude: userError :: String -> IOError
+ Network.Google.Prelude: withObject :: () => String -> (Object -> Parser a) -> Value -> Parser a
+ Network.Google.Prelude: words :: String -> [String]
+ Network.Google.Prelude: writeFile :: FilePath -> String -> IO ()
+ Network.Google.Prelude: zip :: () => [a] -> [b] -> [(a, b)]
+ Network.Google.Prelude: zip3 :: () => [a] -> [b] -> [c] -> [(a, b, c)]
+ Network.Google.Prelude: zipWith :: () => (a -> b -> c) -> [a] -> [b] -> [c]
+ Network.Google.Prelude: zipWith3 :: () => (a -> b -> c -> d) -> [a] -> [b] -> [c] -> [d]
+ Network.Google.Prelude: }
+ Network.Google.Types: GClient :: !Maybe MediaType -> !Method -> !Status -> Bool -> !ServiceConfig -> !Request -> !Stream -> ResourceT IO (Either (String, ByteString) a) -> GClient a
+ Network.Google.Types: GFieldMask :: Text -> GFieldMask
+ Network.Google.Types: GSecret :: Text -> GSecret
+ Network.Google.Types: data GClient a
+ Network.Google.Types: gClient :: (Stream -> ResourceT IO (Either (String, ByteString) a)) -> Maybe MediaType -> Method -> [Int] -> Request -> ServiceConfig -> GClient a
+ Network.Google.Types: instance (Network.Google.Types.FromStream c a, cs' Data.Type.Equality.~ (c : cs)) => Network.Google.Types.GoogleClient (Servant.API.Verbs.Post cs' a)
+ Network.Google.Types: instance Data.Aeson.Types.FromJSON.FromJSON Network.Google.Types.GFieldMask
+ Network.Google.Types: instance Data.Aeson.Types.FromJSON.FromJSON Network.Google.Types.GSecret
+ Network.Google.Types: instance Data.Aeson.Types.ToJSON.ToJSON Network.Google.Types.GFieldMask
+ Network.Google.Types: instance Data.Aeson.Types.ToJSON.ToJSON Network.Google.Types.GSecret
+ Network.Google.Types: instance Data.Data.Data Network.Google.Types.GFieldMask
+ Network.Google.Types: instance Data.String.IsString Network.Google.Types.GFieldMask
+ Network.Google.Types: instance Data.String.IsString Network.Google.Types.GSecret
+ Network.Google.Types: instance GHC.Base.Semigroup Network.Google.Types.Request
+ Network.Google.Types: instance GHC.Classes.Eq Network.Google.Types.GFieldMask
+ Network.Google.Types: instance GHC.Classes.Eq Network.Google.Types.GSecret
+ Network.Google.Types: instance GHC.Classes.Ord Network.Google.Types.GFieldMask
+ Network.Google.Types: instance GHC.Classes.Ord Network.Google.Types.GSecret
+ Network.Google.Types: instance GHC.Exception.Type.Exception Network.Google.Types.Error
+ Network.Google.Types: instance GHC.Generics.Generic Network.Google.Types.GFieldMask
+ Network.Google.Types: instance GHC.Generics.Generic Network.Google.Types.GSecret
+ Network.Google.Types: instance GHC.Read.Read Network.Google.Types.GFieldMask
+ Network.Google.Types: instance GHC.Read.Read Network.Google.Types.GSecret
+ Network.Google.Types: instance GHC.Show.Show Network.Google.Types.GFieldMask
+ Network.Google.Types: instance GHC.Show.Show Network.Google.Types.GSecret
+ Network.Google.Types: instance Network.Google.Types.AsError GHC.Exception.Type.SomeException
+ Network.Google.Types: instance Web.Internal.HttpApiData.FromHttpApiData Network.Google.Types.GFieldMask
+ Network.Google.Types: instance Web.Internal.HttpApiData.FromHttpApiData Network.Google.Types.GSecret
+ Network.Google.Types: instance Web.Internal.HttpApiData.ToHttpApiData Network.Google.Types.GFieldMask
+ Network.Google.Types: instance Web.Internal.HttpApiData.ToHttpApiData Network.Google.Types.GSecret
+ Network.Google.Types: newtype GFieldMask
+ Network.Google.Types: newtype GSecret
- Network.Google.Data.JSON: (.!=) :: Parser (Maybe a) -> a -> Parser a
+ Network.Google.Data.JSON: (.!=) :: () => Parser (Maybe a) -> a -> Parser a
- Network.Google.Data.JSON: (.=) :: KeyValue kv => forall v. ToJSON v => Text -> v -> kv
+ Network.Google.Data.JSON: (.=) :: (KeyValue kv, ToJSON v) => Text -> v -> kv
- Network.Google.Data.JSON: withObject :: String -> (Object -> Parser a) -> Value -> Parser a
+ Network.Google.Data.JSON: withObject :: () => String -> (Object -> Parser a) -> Value -> Parser a
- Network.Google.Types: Request :: !Builder -> !(DList (ByteString, Maybe ByteString)) -> !(DList (HeaderName, ByteString)) -> ![Body] -> Request
+ Network.Google.Types: Request :: !Builder -> !DList (ByteString, Maybe ByteString) -> !DList (HeaderName, ByteString) -> ![Body] -> Request
- Network.Google.Types: SerializeError' :: !ServiceId -> [Header] -> !Status -> !String -> !(Maybe ByteString) -> SerializeError
+ Network.Google.Types: SerializeError' :: !ServiceId -> [Header] -> !Status -> !String -> !Maybe ByteString -> SerializeError
- Network.Google.Types: ServiceConfig :: !ServiceId -> !ByteString -> !Builder -> !Int -> !Bool -> !(Maybe Seconds) -> ServiceConfig
+ Network.Google.Types: ServiceConfig :: !ServiceId -> !ByteString -> !Builder -> !Int -> !Bool -> !Maybe Seconds -> ServiceConfig
- Network.Google.Types: ServiceError' :: !ServiceId -> !Status -> ![Header] -> !(Maybe ByteString) -> ServiceError
+ Network.Google.Types: ServiceError' :: !ServiceId -> !Status -> ![Header] -> !Maybe ByteString -> ServiceError
- Network.Google.Types: [_cliAccept] :: Client a -> !(Maybe MediaType)
+ Network.Google.Types: [_cliAccept] :: GClient a -> !Maybe MediaType
- Network.Google.Types: [_cliCheck] :: Client a -> !(Status -> Bool)
+ Network.Google.Types: [_cliCheck] :: GClient a -> !Status -> Bool
- Network.Google.Types: [_cliMethod] :: Client a -> !Method
+ Network.Google.Types: [_cliMethod] :: GClient a -> !Method
- Network.Google.Types: [_cliRequest] :: Client a -> !Request
+ Network.Google.Types: [_cliRequest] :: GClient a -> !Request
- Network.Google.Types: [_cliResponse] :: Client a -> !(Stream -> ResourceT IO (Either (String, ByteString) a))
+ Network.Google.Types: [_cliResponse] :: GClient a -> !Stream -> ResourceT IO (Either (String, ByteString) a)
- Network.Google.Types: [_cliService] :: Client a -> !ServiceConfig
+ Network.Google.Types: [_cliService] :: GClient a -> !ServiceConfig
- Network.Google.Types: [_rqHeaders] :: Request -> !(DList (HeaderName, ByteString))
+ Network.Google.Types: [_rqHeaders] :: Request -> !DList (HeaderName, ByteString)
- Network.Google.Types: [_rqQuery] :: Request -> !(DList (ByteString, Maybe ByteString))
+ Network.Google.Types: [_rqQuery] :: Request -> !DList (ByteString, Maybe ByteString)
- Network.Google.Types: [_serializeBody] :: SerializeError -> !(Maybe ByteString)
+ Network.Google.Types: [_serializeBody] :: SerializeError -> !Maybe ByteString
- Network.Google.Types: [_serviceBody] :: ServiceError -> !(Maybe ByteString)
+ Network.Google.Types: [_serviceBody] :: ServiceError -> !Maybe ByteString
- Network.Google.Types: [_svcTimeout] :: ServiceConfig -> !(Maybe Seconds)
+ Network.Google.Types: [_svcTimeout] :: ServiceConfig -> !Maybe Seconds
- Network.Google.Types: class AsError a where _TransportError = _Error . _TransportError _SerializeError = _Error . _SerializeError _ServiceError = _Error . _ServiceError
+ Network.Google.Types: class AsError a
- Network.Google.Types: class GoogleClient fn where type Fn fn :: * where {
+ Network.Google.Types: class GoogleClient fn where {
- Network.Google.Types: class GoogleRequest a where type Rs a :: * type Scopes a :: [Symbol] where {
+ Network.Google.Types: class GoogleRequest a where {
- Network.Google.Types: clientService :: Lens' (Client a) ServiceConfig
+ Network.Google.Types: clientService :: Lens' (GClient a) ServiceConfig
- Network.Google.Types: discard :: Method -> [Int] -> Request -> ServiceConfig -> Client ()
+ Network.Google.Types: discard :: Method -> [Int] -> Request -> ServiceConfig -> GClient ()
- Network.Google.Types: mime :: FromStream c a => Proxy c -> Method -> [Int] -> Request -> ServiceConfig -> Client a
+ Network.Google.Types: mime :: FromStream c a => Proxy c -> Method -> [Int] -> Request -> ServiceConfig -> GClient a
- Network.Google.Types: requestClient :: GoogleRequest a => a -> Client (Rs a)
+ Network.Google.Types: requestClient :: GoogleRequest a => a -> GClient (Rs a)
- Network.Google.Types: type Stream = ResumableSource (ResourceT IO) ByteString
+ Network.Google.Types: type Stream = ConduitM () ByteString (ResourceT IO) ()
Files
- gogol-core.cabal +2/−2
- src/Network/Google/Data/Time.hs +13/−13
- src/Network/Google/Prelude.hs +2/−2
- src/Network/Google/Types.hs +66/−59
gogol-core.cabal view
@@ -1,5 +1,5 @@ name: gogol-core-version: 0.3.0+version: 0.4.0 synopsis: Core data types and functionality for Gogol libraries. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues@@ -50,7 +50,7 @@ , bifunctors >= 0.1 , bytestring >= 0.9 , case-insensitive >= 1.2- , conduit >= 1.1+ , conduit >= 1.3 , dlist >= 0.7 , exceptions >= 0.6 , hashable >= 1.2
src/Network/Google/Data/Time.hs view
@@ -14,13 +14,13 @@ module Network.Google.Data.Time ( Time' , Date'- , DateTime'- , Duration+ , DateTime' (..)+ , GDuration , _Time , _Date , _DateTime- , _Duration+ , _GDuration ) where import Data.Monoid ((<>))@@ -79,26 +79,26 @@ -- | A duration in seconds with up to nine fractional digits, terminated by 's'. -- -- /Example/: @"3.5s"@.-newtype Duration = Duration { unDuration :: Scientific }+newtype GDuration = GDuration { unGDuration :: Scientific } deriving (Eq, Ord, Show, Read, Generic, Data, Typeable) -_Duration :: Iso' Duration Scientific-_Duration = iso unDuration Duration+_GDuration :: Iso' GDuration Scientific+_GDuration = iso unGDuration GDuration -instance ToHttpApiData Duration where+instance ToHttpApiData GDuration where toQueryParam = LText.toStrict . (\seconds -> Build.toLazyText seconds <> "s") . Sci.formatScientificBuilder Sci.Fixed (Just 9)- . unDuration+ . unGDuration -instance FromHttpApiData Duration where- parseQueryParam = second Duration . parseText durationParser+instance FromHttpApiData GDuration where+ parseQueryParam = second GDuration . parseText durationParser instance ToJSON Time' where toJSON = String . toQueryParam instance ToJSON Date' where toJSON = String . toQueryParam instance ToJSON DateTime' where toJSON = toJSON . unDateTime-instance ToJSON Duration where toJSON = String . toQueryParam+instance ToJSON GDuration where toJSON = String . toQueryParam instance FromJSON Time' where parseJSON = fmap Time' . withText "time" (run timeParser)@@ -109,8 +109,8 @@ instance FromJSON DateTime' where parseJSON = fmap DateTime' . parseJSON -instance FromJSON Duration where- parseJSON = fmap Duration . withText "duration" (run durationParser)+instance FromJSON GDuration where+ parseJSON = fmap GDuration . withText "duration" (run durationParser) parseText :: Parser a -> Text -> Either Text a parseText p = first Text.pack . parseOnly p
src/Network/Google/Prelude.hs view
@@ -26,8 +26,8 @@ import GHC.Generics as Export (Generic) import Network.HTTP.Client as Export (RequestBody) import Numeric.Natural as Export (Natural)-import Prelude as Export hiding (product)-import Servant.API as Export hiding (Headers, Link, getResponse)+import Prelude as Export hiding (product, span, any, Word)+import Servant.API as Export hiding (Headers, Link, getResponse, Stream, ResponseHeader, Header, header) import Servant.Utils.Links as Export hiding (Link) import Web.HttpApiData as Export (FromHttpApiData (..), ToHttpApiData (..))
src/Network/Google/Types.hs view
@@ -24,38 +24,41 @@ -- module Network.Google.Types where -import Control.Applicative-import Control.Exception.Lens (exception)-import Control.Lens-import Control.Monad.Catch-import Control.Monad.Trans.Resource-import Data.Aeson-import Data.ByteString (ByteString)-import qualified Data.ByteString.Char8 as BS8-import qualified Data.ByteString.Lazy as LBS-import qualified Data.CaseInsensitive as CI-import Data.Coerce-import Data.Conduit-import qualified Data.Conduit.List as CL-import Data.Data-import Data.DList (DList)-import qualified Data.DList as DList-import Data.Foldable (foldMap, foldl')-import Data.Monoid-import Data.String-import Data.Text (Text)-import qualified Data.Text.Encoding as Text-import Data.Text.Lazy.Builder (Builder)-import qualified Data.Text.Lazy.Builder as Build-import GHC.Generics-import GHC.TypeLits-import Network.HTTP.Client (HttpException, RequestBody (..))-import Network.HTTP.Media hiding (Accept)-import Network.HTTP.Types hiding (Header)-import qualified Network.HTTP.Types as HTTP-import Servant.API-import Web.HttpApiData+import Control.Exception.Lens (exception)+import Control.Lens+import Control.Monad.Catch+import Control.Monad.Trans.Resource +import Data.Aeson+import Data.ByteString (ByteString)+import Data.Coerce+import Data.Conduit+import Data.Data+import Data.DList (DList)+import Data.Foldable (foldMap, foldl')+import Data.String+import Data.Semigroup+import Data.Text (Text)+import Data.Text.Lazy.Builder (Builder)++import GHC.Generics+import GHC.TypeLits++import Network.HTTP.Client (HttpException, RequestBody (..))+import Network.HTTP.Media hiding (Accept)+import Network.HTTP.Types hiding (Header)++import Servant.API hiding (Stream)++import qualified Data.ByteString.Char8 as BS8+import qualified Data.ByteString.Lazy as LBS+import qualified Data.CaseInsensitive as CI+import qualified Data.Conduit.Combinators as Conduit+import qualified Data.DList as DList+import qualified Data.Text.Encoding as Text+import qualified Data.Text.Lazy.Builder as Build+import qualified Network.HTTP.Types as HTTP+ data AltJSON = AltJSON deriving (Eq, Ord, Show, Read, Generic, Typeable) data AltMedia = AltMedia deriving (Eq, Ord, Show, Read, Generic, Typeable) data Multipart = Multipart deriving (Eq, Ord, Show, Read, Generic, Typeable)@@ -145,7 +148,7 @@ ) -- | An opaque client secret.-newtype Secret = Secret Text+newtype GSecret = GSecret Text deriving ( Eq , Ord@@ -159,12 +162,13 @@ , ToJSON ) -instance Show Secret where+instance Show GSecret where show = const "*****" newtype MediaDownload a = MediaDownload a-data MediaUpload a = MediaUpload a Body +data MediaUpload a = MediaUpload a Body+ _Coerce :: (Coercible a b, Coercible b a) => Iso' a b _Coerce = iso coerce coerce @@ -176,7 +180,7 @@ f (Just x) = x f Nothing = mempty -type Stream = ResumableSource (ResourceT IO) ByteString+type Stream = ConduitM () ByteString (ResourceT IO) () data Error = TransportError HttpException@@ -305,7 +309,10 @@ instance Monoid Request where mempty = Request mempty mempty mempty mempty- mappend a b = Request+ mappend = (<>)++instance Semigroup Request where+ a <> b = Request (_rqPath a <> "/" <> _rqPath b) (_rqQuery a <> _rqQuery b) (_rqHeaders a <> _rqHeaders b)@@ -332,7 +339,7 @@ setBody rq bs = rq { _rqBody = bs } -- | A materialised 'http-client' request and associated response parser.-data Client a = Client+data GClient a = GClient { _cliAccept :: !(Maybe MediaType) , _cliMethod :: !Method , _cliCheck :: !(Status -> Bool)@@ -341,7 +348,7 @@ , _cliResponse :: !(Stream -> ResourceT IO (Either (String, LBS.ByteString) a)) } -clientService :: Lens' (Client a) ServiceConfig+clientService :: Lens' (GClient a) ServiceConfig clientService = lens _cliService (\s a -> s { _cliService = a }) mime :: FromStream c a@@ -350,27 +357,27 @@ -> [Int] -> Request -> ServiceConfig- -> Client a-mime p = client (fromStream p) (Just (contentType p))+ -> GClient a+mime p = gClient (fromStream p) (Just (contentType p)) discard :: Method -> [Int] -> Request -> ServiceConfig- -> Client ()-discard = client (\b -> closeResumableSource b >> pure (Right ())) Nothing+ -> GClient ()+discard = gClient (\b -> runConduit (b .| Conduit.sinkNull) >> pure (Right ())) Nothing -client :: (Stream -> ResourceT IO (Either (String, LBS.ByteString) a))+gClient :: (Stream -> ResourceT IO (Either (String, LBS.ByteString) a)) -> Maybe MediaType -> Method -> [Int] -> Request -> ServiceConfig- -> Client a-client f cs m ns rq s = Client+ -> GClient a+gClient f cs m statuses rq s = GClient { _cliAccept = cs , _cliMethod = m- , _cliCheck = (`elem` ns) . fromEnum+ , _cliCheck = \status -> fromEnum status `elem` statuses , _cliService = s , _cliRequest = rq , _cliResponse = f@@ -413,7 +420,7 @@ type Rs a :: * type Scopes a :: [Symbol] - requestClient :: a -> Client (Rs a)+ requestClient :: a -> GClient (Rs a) class GoogleClient fn where type Fn fn :: *@@ -541,66 +548,66 @@ instance {-# OVERLAPPABLE #-} FromStream c a => GoogleClient (Get (c ': cs) a) where- type Fn (Get (c ': cs) a) = ServiceConfig -> Client a+ type Fn (Get (c ': cs) a) = ServiceConfig -> GClient a buildClient Proxy = mime (Proxy :: Proxy c) methodGet [200, 203] instance {-# OVERLAPPING #-} GoogleClient (Get (c ': cs) ()) where- type Fn (Get (c ': cs) ()) = ServiceConfig -> Client ()+ type Fn (Get (c ': cs) ()) = ServiceConfig -> GClient () buildClient Proxy = discard methodGet [204] instance {-# OVERLAPPABLE #-} (FromStream c a, cs' ~ (c ': cs)) => GoogleClient (Post cs' a) where- type Fn (Post cs' a) = ServiceConfig -> Client a+ type Fn (Post cs' a) = ServiceConfig -> GClient a buildClient Proxy = mime (Proxy :: Proxy c) methodPost [200, 201] instance {-# OVERLAPPING #-} GoogleClient (Post cs ()) where- type Fn (Post cs ()) = ServiceConfig -> Client ()+ type Fn (Post cs ()) = ServiceConfig -> GClient () buildClient Proxy = discard methodPost [204] instance {-# OVERLAPPABLE #-} FromStream c a => GoogleClient (Put (c ': cs) a) where- type Fn (Put (c ': cs) a) = ServiceConfig -> Client a+ type Fn (Put (c ': cs) a) = ServiceConfig -> GClient a buildClient Proxy = mime (Proxy :: Proxy c) methodPut [200, 201] instance {-# OVERLAPPING #-} GoogleClient (Put (c ': cs) ()) where- type Fn (Put (c ': cs) ()) = ServiceConfig -> Client ()+ type Fn (Put (c ': cs) ()) = ServiceConfig -> GClient () buildClient Proxy = discard methodPut [204] instance {-# OVERLAPPABLE #-} FromStream c a => GoogleClient (Patch (c ': cs) a) where- type Fn (Patch (c ': cs) a) = ServiceConfig -> Client a+ type Fn (Patch (c ': cs) a) = ServiceConfig -> GClient a buildClient Proxy = mime (Proxy :: Proxy c) methodPatch [200, 201] instance {-# OVERLAPPING #-} GoogleClient (Patch (c ': cs) ()) where- type Fn (Patch (c ': cs) ()) = ServiceConfig -> Client ()+ type Fn (Patch (c ': cs) ()) = ServiceConfig -> GClient () buildClient Proxy = discard methodPatch [204] instance {-# OVERLAPPABLE #-} FromStream c a => GoogleClient (Delete (c ': cs) a) where- type Fn (Delete (c ': cs) a) = ServiceConfig -> Client a+ type Fn (Delete (c ': cs) a) = ServiceConfig -> GClient a buildClient Proxy = mime (Proxy :: Proxy c) methodDelete [200, 202] instance {-# OVERLAPPING #-} GoogleClient (Delete (c ': cs) ()) where- type Fn (Delete (c ': cs) ()) = ServiceConfig -> Client ()+ type Fn (Delete (c ': cs) ()) = ServiceConfig -> GClient () buildClient Proxy = discard methodDelete [204] sinkLBS :: Stream -> ResourceT IO LBS.ByteString-sinkLBS = fmap LBS.fromChunks . ($$+- CL.consume)+sinkLBS = runConduit . (.| Conduit.sinkLazy) buildText :: ToHttpApiData a => a -> Builder buildText = Build.fromText . toQueryParam@@ -636,7 +643,7 @@ microseconds :: Seconds -> Int microseconds = (1000000 *) . seconds -newtype FieldMask = FieldMask Text+newtype GFieldMask = GFieldMask Text deriving ( Eq , Ord