@@ -3,6 +3,7 @@
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
4{-# LANGUAGE FlexibleInstances #-}
4{-# LANGUAGE FlexibleInstances #-}
5{-# LANGUAGE GeneralizedNewtypeDeriving #-}
5{-# LANGUAGE GeneralizedNewtypeDeriving #-}
6+{-# LANGUAGE KindSignatures #-}
6{-# LANGUAGE LambdaCase #-}
7{-# LANGUAGE LambdaCase #-}
7{-# LANGUAGE MultiParamTypeClasses #-}
8{-# LANGUAGE MultiParamTypeClasses #-}
8{-# LANGUAGE OverloadedStrings #-}
9{-# LANGUAGE OverloadedStrings #-}
@@ -316,6 +317,7 @@ instance FromJSON a => FromStream JSON a where
317class GoogleRequest a where
318class GoogleRequest a where
318 type Rs a :: *
319 type Rs a :: *
320+ type Ss a :: [Symbol]
320 requestClient :: a -> Client (Rs a)
322 requestClient :: a -> Client (Rs a)