Updating services with explicit namespaces

This commit is contained in:
Brendan Hay 2015-09-26 19:38:18 +02:00
parent e11a2d540a
commit 854696cec4
526 changed files with 3553 additions and 3536 deletions

View File

@ -1,4 +1,5 @@
{
"library": "adexchange-buyer"
"library": "adexchange-buyer",
"canonicalName": "AdExchange.Buyer"
}

View File

@ -1,4 +1,5 @@
{
"library": "adexchange-seller"
"library": "adexchange-seller",
"canonicalName": "AdExchange.Seller"
}

View File

@ -1,4 +1,5 @@
{
"library": "admin"
"library": "admin",
"canonicalName": "Admin.DataTransfer"
}

View File

@ -1,4 +1,5 @@
{
"library": "admin"
"library": "admin",
"canonicalName": "Admin.Directory"
}

View File

@ -1,5 +1,5 @@
{
"library": "admin",
"canonicalName": "EmailMigration"
"canonicalName": "Admin.EmailMigration"
}

View File

@ -1,4 +1,5 @@
{
"library": "admin"
"library": "admin",
"canonicalName": "Admin.Reports"
}

View File

@ -1,4 +1,5 @@
{
"library": "adsense"
"library": "adsense",
"canonicalName": "AdSense"
}

View File

@ -1,4 +1,5 @@
{
"library": "adsense-host"
"library": "adsense-host",
"canonicalName": "AdSense.Host"
}

View File

@ -1,4 +1,5 @@
{
"library": "analytics"
"library": "analytics",
"canonicalName": "Analytics"
}

View File

@ -1,4 +1,5 @@
{
"library": "android-enterprise"
"library": "play-enterprise",
"canonicalName": "Play.Enterprise"
}

View File

@ -1,4 +1,5 @@
{
"library": "android-publisher"
"library": "play-developer",
"canonicalName": "Play.Developer"
}

View File

@ -1,4 +1,5 @@
{
"library": "appengine"
"library": "appengine",
"canonicalName": "AppEngine"
}

View File

@ -1,4 +1,5 @@
{
"library": "appsactivity"
"library": "apps-activity",
"canonicalName": "Apps.Activity"
}

View File

@ -1,4 +1,5 @@
{
"library": "appstate"
"library": "games-appstate",
"canonicalName": "Games.AppState"
}

View File

@ -1,4 +1,5 @@
{
"library": "autoscaler"
"library": "compute-autoscaler",
"canonicalName": "Compute.Autoscaler"
}

View File

@ -1,4 +1,5 @@
{
"library": "bigquery"
"library": "bigquery",
"canonicalName": "BigQuery"
}

View File

@ -1,4 +1,5 @@
{
"library": "blogger"
"library": "blogger",
"canonicalName": "Blogger"
}

View File

@ -1,4 +1,5 @@
{
"library": "books"
"library": "books",
"canonicalName": "Books"
}

View File

@ -1,4 +1,5 @@
{
"library": "calendar"
"library": "apps-calendar",
"canonicalName": "Apps.Calendar"
}

View File

@ -1,4 +1,5 @@
{
"library": "civicinfo"
"library": "civicinfo",
"canonicalName": "CivicInfo"
}

View File

@ -1,4 +1,5 @@
{
"library": "classroom"
"library": "classroom",
"canonicalName": "Classroom"
}

View File

@ -1,4 +1,5 @@
{
"library": "cloud-billing"
"library": "billing",
"canonicalName": "Billing"
}

View File

@ -1,4 +1,5 @@
{
"library": "cloud-debugger"
"library": "cloud-debugger",
"canonicalName": "Cloud.Debugger"
}

View File

@ -1,4 +1,5 @@
{
"library": "cloud-latencytest"
"library": "latencytest",
"canonicalName": "LatencyTest"
}

View File

@ -1,4 +1,5 @@
{
"library": "cloud-monitoring"
"library": "cloud-monitoring",
"canonicalName": "Cloud.Monitoring"
}

View File

@ -1,4 +1,5 @@
{
"library": "cloud-resources"
"library": "cloud-resourcemanager",
"canonicalName": "Cloud.ResourceManager"
}

View File

@ -1,4 +1,5 @@
{
"library": "cloud-useraccounts"
"library": "compute-useraccounts",
"canonicalName": "Compute.UserAccounts"
}

View File

@ -1,4 +1,5 @@
{
"library": "container"
"library": "container",
"canonicalName": "Container"
}

View File

@ -1,4 +1,5 @@
{
"library": "content"
"library": "shopping-content",
"canonicalName": "Shopping.Content"
}

View File

@ -1,4 +1,5 @@
{
"library": "maps-coordinate"
"library": "maps-coordinate",
"canonicalName": "Maps.Coordinate"
}

View File

@ -1,3 +1,4 @@
{
"library": "customsearch"
"library": "customsearch",
"canonicalName": "CustomSearch"
}

View File

@ -1,4 +1,5 @@
{
"library": "dataflow"
"library": "dataflow",
"canonicalName": "Dataflow"
}

View File

@ -1,4 +1,5 @@
{
"library": "cloud-datastore"
"library": "cloud-datastore",
"canonicalName": "Cloud.Datastore"
}

View File

@ -1,4 +1,5 @@
{
"library": "cloud-deployments"
"library": "cloud-deployments",
"canonicalName": "Cloud.Deployment"
}

View File

@ -1,5 +1,5 @@
{
"library": "discovery",
"canonicalName": "discovery"
"canonicalName": "Discovery"
}

View File

@ -1,4 +1,5 @@
{
"library": "cloud-dns"
"library": "cloud-dns",
"canonicalName": "Cloud.DNS"
}

View File

@ -1,4 +1,5 @@
{
"library": "doubleclick-bids"
"library": "doubleclick-bids",
"canonicalName": "DoubleClick.Bids"
}

View File

@ -1,4 +1,5 @@
{
"library": "doubleclick-search"
"library": "doubleclick-search",
"canonicalName": "DoubleClick.Search"
}

View File

@ -1,4 +1,5 @@
{
"library": "drive"
"library": "drive",
"canonicalName": "Drive"
}

View File

@ -1,4 +1,5 @@
{
"library": "fitness"
"library": "fitness",
"canonicalName": "Fitness"
}

View File

@ -1,4 +1,5 @@
{
"library": "freebasesearch"
"library": "freebasesearch",
"canonicalName": "Freebase.Search"
}

View File

@ -1,4 +1,5 @@
{
"library": "fusiontables"
"library": "fusiontables",
"canonicalName": "FusionTables"
}

View File

@ -1,4 +1,5 @@
{
"library": "games"
"library": "games",
"canonicalName": "Games"
}

View File

@ -1,4 +1,5 @@
{
"library": "games-configuration"
"library": "games-configuration",
"canonicalName": "Games.Configuration"
}

View File

@ -1,4 +1,5 @@
{
"library": "games-management"
"library": "games-management",
"canonicalName": "Games.Management"
}

View File

@ -1,4 +1,5 @@
{
"library": "affiliatenetwork"
"library": "affiliates",
"canonicalName": "Affiliates"
}

View File

@ -1,4 +1,5 @@
{
"library": "genomics"
"library": "genomics",
"canonicalName": "Genomics"
}

View File

@ -1,4 +1,5 @@
{
"library": "gmail"
"library": "gmail",
"canonicalName": "Gmail"
}

View File

@ -1,4 +1,5 @@
{
"library": "groups"
"library": "groups-migration",
"canonicalName": "Groups.Migration"
}

View File

@ -1,4 +1,5 @@
{
"library": "groups"
"library": "groups-migration",
"canonicalName": "Groups.Settings"
}

View File

@ -1,4 +1,5 @@
{
"library": "licensing"
"library": "apps-licensing",
"canonicalName": "Apps.Licensing"
}

View File

@ -1,4 +1,5 @@
{
"library": "cloud-logging"
"library": "cloud-logging",
"canonicalName": "Cloud.Logging"
}

View File

@ -1,4 +1,5 @@
{
"library": "maps-engine"
"library": "maps-engine",
"canonicalName": "Map.Engine"
}

View File

@ -1,4 +1,5 @@
{
"library": "mirror"
"library": "mirror",
"canonicalName": "Mirror"
}

View File

@ -1,4 +1,5 @@
{
"library": "oauth2"
"library": "oauth2",
"canonicalName": "OAuth2"
}

View File

@ -1,4 +1,5 @@
{
"library": "pagespeed"
"library": "pagespeed",
"canonicalName": "PageSpeed"
}

View File

@ -1,4 +1,5 @@
{
"library": "partners"
"library": "partners",
"canonicalName": "Partners"
}

View File

@ -1,4 +1,5 @@
{
"library": "play-moviespartner"
"library": "play-moviespartner",
"canonicalName": "Play.Movies.Partner"
}

View File

@ -1,4 +1,5 @@
{
"library": "prediction"
"library": "prediction",
"canonicalName": "Prediction"
}

View File

@ -1,4 +1,5 @@
{
"library": "proximitybeacon"
"library": "proximitybeacon",
"canonicalName": "ProximityBeacon"
}

View File

@ -1,4 +1,5 @@
{
"library": "cloud-pubsub"
"library": "cloud-pubsub",
"canonicalName": "Cloud.PubSub"
}

View File

@ -1,4 +1,5 @@
{
"library": "qpxexpress"
"library": "qpxexpress",
"canonicalName": "QPXExpress"
}

View File

@ -1,4 +1,4 @@
{
"library": "compute-instancegroups",
"canonicalName": "Compute.InstanceGroups"
"library": "compute-instancegroups-manager",
"canonicalName": "Compute.InstanceGroups.Manager"
}

View File

@ -1,3 +1,4 @@
{
"library": "reseller"
"library": "apps-reseller",
"canonicalName": "Apps.Reseller"
}

View File

@ -1,4 +1,5 @@
{
"library": "resourceviews"
"library": "compute-instancegroups",
"canonicalName": "Compute.InstanceGroups"
}

View File

@ -1,4 +1,5 @@
{
"library": "siteverification"
"library": "siteverification",
"canonicalName": "SiteVerification"
}

View File

@ -1,4 +1,5 @@
{
"library": "cloud-sqladmin"
"library": "cloud-sqladmin",
"canonicalName": "Cloud.SQLAdmin"
}

View File

@ -1,4 +1,5 @@
{
"library": "storage"
"library": "cloud-storage",
"canonicalName": "Cloud.Storage"
}

View File

@ -1,4 +1,5 @@
{
"library": "storage-transfer"
"library": "cloud-storage-transfer",
"canonicalName": "Cloud.Storage.Transfer"
}

View File

@ -1,4 +1,5 @@
{
"library": "tagmanager"
"library": "tagmanager",
"canonicalName": "TagManager"
}

View File

@ -1,4 +1,5 @@
{
"library": "taskqueue"
"library": "appengine-taskqueue",
"canonicalName": "AppEngine.TaskQueue"
}

View File

@ -1,4 +1,5 @@
{
"library": "tasks"
"library": "apps-tasks",
"canonicalName": "Apps.Tasks"
}

View File

@ -1,4 +1,5 @@
{
"library": "translate"
"library": "translate",
"canonicalName": "Translate"
}

View File

@ -1,4 +1,5 @@
{
"library": "urlshortener"
"library": "urlshortener",
"canonicalName": "URLShortener"
}

View File

@ -1,5 +1,5 @@
{
"library": "webfonts",
"canonicalName": "WebFonts"
"library": "fonts",
"canonicalName": "Fonts"
}

View File

@ -1,4 +1,5 @@
{
"library": "webmaster-tools"
"library": "webmaster-tools",
"canonicalName": "Webmaster.Tools"
}

View File

@ -1,4 +1,5 @@
{
"library": "youtube"
"library": "youtube",
"canonicalName": "YouTube"
}

View File

@ -1,4 +1,5 @@
{
"library": "youtube-analytics"
"library": "youtube-analytics",
"canonicalName": "YouTube.Analytics"
}

View File

@ -38,7 +38,7 @@ apiAlias n ls = TypeDecl noLoc n [] alias
where
alias = case map (TyCon . UnQual) ls of
[] -> unit_tycon
x:xs -> foldr' (\l r -> TyInfix l (UnQual (sym ":<|>")) r) x xs
x:xs -> foldl' (\l r -> TyInfix l (UnQual (sym ":<|>")) r) x xs
-- type Method = :> ...
verbDecl :: Service s r -> Local -> Local -> Method -> Decl

View File

@ -53,7 +53,7 @@ renameTitle =
renameAbbrev :: Text -> Text
renameAbbrev = mconcat
. Text.split separator
. Text.split dot
. stripPrefix "Google "
. stripSuffix " API"
@ -71,8 +71,6 @@ renameBranch t
cat = Fold.foldMap (Text.intercalate "_" . map component . Text.split dot)
split = Text.split separator
dot x = x == '.'
component x
| Text.length x <= 1 = x
| isDigit (Text.last x) = Text.toUpper x
@ -102,6 +100,9 @@ separator x =
|| x == '_'
|| x == '*'
dot :: Char -> Bool
dot x = x == '.'
renameReserved :: Text -> Text
renameReserved x
| x `Set.member` xs = x <> "'"

View File

@ -26,6 +26,7 @@ import Control.Monad
import Control.Monad.Except
import Data.Aeson hiding (json)
import Data.Bifunctor
import Data.Foldable (foldr')
import qualified Data.List.NonEmpty as NE
import Data.Monoid
import Data.Text (Text)
@ -72,26 +73,17 @@ populate d Templates{..} l = (encodeString d :/) . dir lib <$> layout
[ touch ".gitkeep"
]
, dir "gen"
[ dir "Network"
[ dir "Google" $
concatMap service (NE.toList (_libServices l))
]
]
, dir "gen" . concatMap service . NE.toList $ _libServices l
, file (lib <.> "cabal") cabalTemplate
, file "README.md" readmeTemplate
]
service s =
[ mod' (tocNS s) mempty tocTemplate (pure svc)
, dir (fromText (svcAbbrev s))
[ mod' (typesNS s) (typeImports s) typesTemplate (pure svc)
, dir "Types"
[ mod' (prodNS s) (prodImports s) prodTemplate (pure svc)
, mod' (sumNS s) (sumImports s) sumTemplate (pure svc)
]
]
[ mod' (tocNS s) mempty tocTemplate (pure svc)
, mod' (typesNS s) (typeImports s) typesTemplate (pure svc)
, mod' (prodNS s) (prodImports s) prodTemplate (pure svc)
, mod' (sumNS s) (sumImports s) sumTemplate (pure svc)
]
where
svc = toJSON s
@ -111,13 +103,28 @@ module' :: ToJSON a
-> Template
-> Either Error a
-> DirTree (Either Error Rendered)
module' ns is t f = file' (filename $ nsToPath ns) t $ do
module' ns is t f = namespaced ns t $ do
x <- f >>= JS.objectErr (show ns)
return $! x <> fromPairs
[ "moduleName" .= ns
, "moduleImports" .= is
]
namespaced :: ToJSON a
=> NS
-> Template
-> Either Error a
-> DirTree (Either Error Rendered)
namespaced (NS ns) t x =
case map fromText ns of
[] -> error "Empty namespace."
[p] -> f p
ps -> foldr' nest (f (last ps)) (init ps)
where
f p = file' (p <.> "hs") t x
nest d c = Dir (encodeString d) [c]
file' :: ToJSON a
=> Path
-> Template

View File

@ -386,7 +386,7 @@ data Service s r = Service
{ _svcLibrary :: Text
, _svcTitle :: Text
, _svcName :: Text
, _svcCanonicalName :: Maybe Text
, _svcCanonicalName :: Text
, _svcDescription :: Help
, _svcRevision :: Maybe Text
, _svcVersion :: Text
@ -410,7 +410,7 @@ instance FromJSON s => FromJSON (Service s Resource) where
<$> o .: "library"
<*> o .: "title"
<*> o .: "name"
<*> o .:? "canonicalName"
<*> o .: "canonicalName"
<*> o .: "description"
<*> o .:? "revision"
<*> o .: "version"
@ -437,9 +437,7 @@ instance ToJSON (Service Data API) where
]
svcAbbrev :: Service s r -> Text
svcAbbrev s = upperHead
. renameAbbrev
$ fromMaybe (_svcTitle s) (_svcCanonicalName s)
svcAbbrev = upperHead . renameAbbrev . _svcCanonicalName
typeImports, prodImports, sumImports :: Service s r -> [NS]
typeImports s = ["Network.Google.Prelude", prodNS s, sumNS s]
@ -447,7 +445,7 @@ prodImports s = ["Network.Google.Prelude", sumNS s]
sumImports _ = ["Network.Google.Prelude"]
tocNS, typesNS, prodNS, sumNS :: Service s r -> NS
tocNS s = NS ["Network", "Google", svcAbbrev s]
tocNS s = NS $ "Network" : "Google" : Text.split (== '.') (_svcCanonicalName s)
typesNS = (<> "Types") . tocNS
prodNS = (<> "Product") . typesNS
sumNS = (<> "Sum") . typesNS

View File

@ -5,7 +5,7 @@
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
-- |
-- Module : Network.Google.AdExchangeBuyer
-- Module : Network.Google.AdExchange.Buyer
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@ -17,7 +17,7 @@
-- reports.
--
-- /See:/ <https://developers.google.com/ad-exchange/buyer-rest Ad Exchange Buyer API Reference>
module Network.Google.AdExchangeBuyer
module Network.Google.AdExchange.Buyer
(
-- * Resources
AdExchangeBuyer
@ -903,7 +903,7 @@ module Network.Google.AdExchangeBuyer
, wpdAllowInterestTargetedAds
) where
import Network.Google.AdExchangeBuyer.Types
import Network.Google.AdExchange.Buyer.Types
import Network.Google.Prelude
{- $resources
@ -911,23 +911,23 @@ TODO
-}
type AdExchangeBuyer =
DealsAPI :<|>
NegotiationroundsAPI :<|>
AccountsAPI :<|>
BudgetAPI :<|>
CreativesAPI :<|>
PerformanceReportAPI :<|>
MarketplaceoffersAPI :<|>
PretargetingConfigAPI :<|>
MarketplaceordersAPI :<|>
ClientaccessAPI :<|>
BillingInfoAPI :<|>
MarketplacedealsAPI :<|>
NegotiationsAPI :<|>
OffersAPI :<|> MarketplacenotesAPI
MarketplacenotesAPI :<|> DealsAPI :<|>
NegotiationroundsAPI
:<|> AccountsAPI
:<|> BudgetAPI
:<|> CreativesAPI
:<|> PerformanceReportAPI
:<|> MarketplaceoffersAPI
:<|> PretargetingConfigAPI
:<|> MarketplaceordersAPI
:<|> ClientaccessAPI
:<|> BillingInfoAPI
:<|> MarketplacedealsAPI
:<|> NegotiationsAPI
:<|> OffersAPI
type MarketplacenotesAPI =
MarketplacenotesList :<|> MarketplacenotesInsert
MarketplacenotesInsert :<|> MarketplacenotesList
-- | Add notes to the order
type MarketplacenotesInsert =
@ -986,8 +986,8 @@ type NegotiationroundsInsert =
:> QueryParam "alt" Text
type AccountsAPI =
AccountsPatch :<|>
AccountsGet :<|> AccountsUpdate :<|> AccountsList
AccountsList :<|> AccountsPatch :<|> AccountsGet :<|>
AccountsUpdate
-- | Retrieves the authenticated user\'s list of accounts.
type AccountsList =
@ -1037,7 +1037,7 @@ type AccountsUpdate =
:> QueryParam "alt" Text
type BudgetAPI =
BudgetGet :<|> BudgetUpdate :<|> BudgetPatch
BudgetPatch :<|> BudgetGet :<|> BudgetUpdate
-- | Updates the budget amount for the budget of the adgroup specified by the
-- accountId and billingId, with the budget amount in the request. This
@ -1083,7 +1083,7 @@ type BudgetUpdate =
:> QueryParam "alt" Text
type CreativesAPI =
CreativesList :<|> CreativesGet :<|> CreativesInsert
CreativesInsert :<|> CreativesList :<|> CreativesGet
-- | Submit a new creative.
type CreativesInsert =
@ -1147,7 +1147,7 @@ type PerformanceReportList =
:> QueryParam "alt" Text
type MarketplaceoffersAPI =
MarketplaceoffersSearch :<|> MarketplaceoffersGet
MarketplaceoffersGet :<|> MarketplaceoffersSearch
-- | Gets the requested negotiation.
type MarketplaceoffersGet =
@ -1175,12 +1175,11 @@ type MarketplaceoffersSearch =
:> QueryParam "alt" Text
type PretargetingConfigAPI =
PretargetingConfigList :<|>
PretargetingConfigPatch :<|>
PretargetingConfigGet :<|>
PretargetingConfigDelete :<|>
PretargetingConfigUpdate :<|>
PretargetingConfigInsert
PretargetingConfigInsert :<|> PretargetingConfigList
:<|> PretargetingConfigPatch
:<|> PretargetingConfigGet
:<|> PretargetingConfigDelete
:<|> PretargetingConfigUpdate
-- | Inserts a new pretargeting configuration.
type PretargetingConfigInsert =
@ -1261,10 +1260,10 @@ type PretargetingConfigUpdate =
:> QueryParam "alt" Text
type MarketplaceordersAPI =
MarketplaceordersPatch :<|>
MarketplaceordersGet :<|>
MarketplaceordersSearch :<|>
MarketplaceordersUpdate :<|> MarketplaceordersInsert
MarketplaceordersInsert :<|> MarketplaceordersPatch
:<|> MarketplaceordersGet
:<|> MarketplaceordersSearch
:<|> MarketplaceordersUpdate
-- | Create the given list of orders
type MarketplaceordersInsert =
@ -1332,11 +1331,11 @@ type MarketplaceordersUpdate =
:> QueryParam "alt" Text
type ClientaccessAPI =
ClientaccessList :<|>
ClientaccessPatch :<|>
ClientaccessGet :<|>
ClientaccessDelete :<|>
ClientaccessUpdate :<|> ClientaccessInsert
ClientaccessInsert :<|> ClientaccessList :<|>
ClientaccessPatch
:<|> ClientaccessGet
:<|> ClientaccessDelete
:<|> ClientaccessUpdate
type ClientaccessInsert =
"adexchangebuyer" :> "v1.4" :> "clientAccess" :>
@ -1409,7 +1408,7 @@ type ClientaccessUpdate =
:> QueryParam "alt" Text
type BillingInfoAPI =
BillingInfoGet :<|> BillingInfoList
BillingInfoList :<|> BillingInfoGet
-- | Retrieves a list of billing information for all accounts of the
-- authenticated user.
@ -1436,9 +1435,9 @@ type BillingInfoGet =
:> QueryParam "alt" Text
type MarketplacedealsAPI =
MarketplacedealsList :<|>
MarketplacedealsDelete :<|>
MarketplacedealsUpdate :<|> MarketplacedealsInsert
MarketplacedealsInsert :<|> MarketplacedealsList :<|>
MarketplacedealsDelete
:<|> MarketplacedealsUpdate
-- | Add new deals for the specified order
type MarketplacedealsInsert =
@ -1496,8 +1495,8 @@ type MarketplacedealsUpdate =
:> QueryParam "alt" Text
type NegotiationsAPI =
NegotiationsList :<|>
NegotiationsGet :<|> NegotiationsInsert
NegotiationsInsert :<|> NegotiationsList :<|>
NegotiationsGet
-- | Creates or updates the requested negotiation.
type NegotiationsInsert =
@ -1534,7 +1533,7 @@ type NegotiationsGet =
:> QueryParam "alt" Text
type OffersAPI =
OffersList :<|> OffersGet :<|> OffersInsert
OffersInsert :<|> OffersList :<|> OffersGet
-- | Creates or updates the requested offer.
type OffersInsert =

View File

@ -5,14 +5,14 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- |
-- Module : Network.Google.AdExchangeBuyer.Types
-- Module : Network.Google.AdExchange.Buyer.Types
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.Google.AdExchangeBuyer.Types
module Network.Google.AdExchange.Buyer.Types
(
-- * Account
@ -833,6 +833,6 @@ module Network.Google.AdExchangeBuyer.Types
, wpdAllowInterestTargetedAds
) where
import Network.Google.AdExchangeBuyer.Types.Product
import Network.Google.AdExchangeBuyer.Types.Sum
import Network.Google.AdExchange.Buyer.Types.Product
import Network.Google.AdExchange.Buyer.Types.Sum
import Network.Google.Prelude

View File

@ -5,16 +5,16 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- |
-- Module : Network.Google.AdExchangeBuyer.Types.Product
-- Module : Network.Google.AdExchange.Buyer.Types.Product
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.Google.AdExchangeBuyer.Types.Product where
module Network.Google.AdExchange.Buyer.Types.Product where
import Network.Google.AdExchangeBuyer.Types.Sum
import Network.Google.AdExchange.Buyer.Types.Sum
import Network.Google.Prelude
-- | Configuration data for an Ad Exchange buyer account.

View File

@ -6,13 +6,13 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- |
-- Module : Network.Google.AdExchangeSeller.Types.Sum
-- Module : Network.Google.AdExchange.Buyer.Types.Sum
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.Google.AdExchangeSeller.Types.Sum where
module Network.Google.AdExchange.Buyer.Types.Sum where
import Network.Google.Prelude

View File

@ -32,12 +32,12 @@ library
ghc-options: -Wall
exposed-modules:
Network.Google.AdExchangeBuyer
, Network.Google.AdExchangeBuyer.Types
Network.Google.AdExchange.Buyer
, Network.Google.AdExchange.Buyer.Types
other-modules:
Network.Google.AdExchangeBuyer.Types.Product
, Network.Google.AdExchangeBuyer.Types.Sum
Network.Google.AdExchange.Buyer.Types.Product
, Network.Google.AdExchange.Buyer.Types.Sum
build-depends:
gogol-core == 0.0.1.*

View File

@ -5,7 +5,7 @@
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
-- |
-- Module : Network.Google.AdExchangeSeller
-- Module : Network.Google.AdExchange.Seller
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@ -16,7 +16,7 @@
-- to generate reports
--
-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference>
module Network.Google.AdExchangeSeller
module Network.Google.AdExchange.Seller
(
-- * Resources
AdExchangeSeller
@ -201,7 +201,7 @@ module Network.Google.AdExchangeSeller
, urlcItems
) where
import Network.Google.AdExchangeSeller.Types
import Network.Google.AdExchange.Seller.Types
import Network.Google.Prelude
{- $resources
@ -211,11 +211,11 @@ TODO
type AdExchangeSeller = AccountsAPI
type AccountsAPI =
ReportsAPI :<|>
AlertsAPI :<|>
UrlchannelsAPI :<|>
CustomchannelsAPI :<|>
PreferreddealsAPI :<|> MetadataAPI :<|> AdclientsAPI
AdclientsAPI :<|> ReportsAPI :<|> AlertsAPI :<|>
UrlchannelsAPI
:<|> CustomchannelsAPI
:<|> PreferreddealsAPI
:<|> MetadataAPI
type AdclientsAPI = AdclientsList
@ -236,7 +236,7 @@ type AdclientsList =
type ReportsAPI = SavedAPI
type SavedAPI = SavedGenerate :<|> SavedList
type SavedAPI = SavedList :<|> SavedGenerate
-- | List all saved reports in this Ad Exchange account.
type SavedList =
@ -309,7 +309,7 @@ type UrlchannelsList =
:> QueryParam "alt" Text
type CustomchannelsAPI =
CustomchannelsGet :<|> CustomchannelsList
CustomchannelsList :<|> CustomchannelsGet
-- | List all custom channels in the specified ad client for this Ad Exchange
-- account.
@ -346,7 +346,7 @@ type CustomchannelsGet =
:> QueryParam "alt" Text
type PreferreddealsAPI =
PreferreddealsGet :<|> PreferreddealsList
PreferreddealsList :<|> PreferreddealsGet
-- | List the preferred deals for this Ad Exchange account.
type PreferreddealsList =
@ -375,7 +375,7 @@ type PreferreddealsGet =
:> QueryParam "fields" Text
:> QueryParam "alt" Text
type MetadataAPI = DimensionsAPI :<|> MetricsAPI
type MetadataAPI = MetricsAPI :<|> DimensionsAPI
type MetricsAPI = MetricsList

View File

@ -5,14 +5,14 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- |
-- Module : Network.Google.AdExchangeSeller.Types
-- Module : Network.Google.AdExchange.Seller.Types
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.Google.AdExchangeSeller.Types
module Network.Google.AdExchange.Seller.Types
(
-- * Account
@ -171,6 +171,6 @@ module Network.Google.AdExchangeSeller.Types
, urlcItems
) where
import Network.Google.AdExchangeSeller.Types.Product
import Network.Google.AdExchangeSeller.Types.Sum
import Network.Google.AdExchange.Seller.Types.Product
import Network.Google.AdExchange.Seller.Types.Sum
import Network.Google.Prelude

View File

@ -5,16 +5,16 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- |
-- Module : Network.Google.AdExchangeSeller.Types.Product
-- Module : Network.Google.AdExchange.Seller.Types.Product
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.Google.AdExchangeSeller.Types.Product where
module Network.Google.AdExchange.Seller.Types.Product where
import Network.Google.AdExchangeSeller.Types.Sum
import Network.Google.AdExchange.Seller.Types.Sum
import Network.Google.Prelude
--

View File

@ -0,0 +1,18 @@
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- |
-- Module : Network.Google.AdExchange.Seller.Types.Sum
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.Google.AdExchange.Seller.Types.Sum where
import Network.Google.Prelude

View File

@ -31,12 +31,12 @@ library
ghc-options: -Wall
exposed-modules:
Network.Google.AdExchangeSeller
, Network.Google.AdExchangeSeller.Types
Network.Google.AdExchange.Seller
, Network.Google.AdExchange.Seller.Types
other-modules:
Network.Google.AdExchangeSeller.Types.Product
, Network.Google.AdExchangeSeller.Types.Sum
Network.Google.AdExchange.Seller.Types.Product
, Network.Google.AdExchange.Seller.Types.Sum
build-depends:
gogol-core == 0.0.1.*

View File

@ -5,7 +5,7 @@
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
-- |
-- Module : Network.Google.DataTransfer
-- Module : Network.Google.Admin.DataTransfer
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@ -16,10 +16,10 @@
-- another.
--
-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference>
module Network.Google.DataTransfer
module Network.Google.Admin.DataTransfer
(
-- * Resources
DataTransfer
AdminDataTransfer
, TransfersAPI
, TransfersInsert
, TransfersList
@ -81,17 +81,18 @@ module Network.Google.DataTransfer
, dtlrDataTransfers
) where
import Network.Google.DataTransfer.Types
import Network.Google.Admin.DataTransfer.Types
import Network.Google.Prelude
{- $resources
TODO
-}
type DataTransfer = ApplicationsAPI :<|> TransfersAPI
type AdminDataTransfer =
TransfersAPI :<|> ApplicationsAPI
type TransfersAPI =
TransfersList :<|> TransfersGet :<|> TransfersInsert
TransfersInsert :<|> TransfersList :<|> TransfersGet
-- | Inserts a data transfer request.
type TransfersInsert =
@ -135,7 +136,7 @@ type TransfersGet =
:> QueryParam "alt" Text
type ApplicationsAPI =
ApplicationsGet :<|> ApplicationsList
ApplicationsList :<|> ApplicationsGet
-- | Lists the applications available for data transfer for a customer.
type ApplicationsList =

View File

@ -5,14 +5,14 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- |
-- Module : Network.Google.DataTransfer.Types
-- Module : Network.Google.Admin.DataTransfer.Types
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.Google.DataTransfer.Types
module Network.Google.Admin.DataTransfer.Types
(
-- * Application
@ -66,6 +66,6 @@ module Network.Google.DataTransfer.Types
, dtlrDataTransfers
) where
import Network.Google.DataTransfer.Types.Product
import Network.Google.DataTransfer.Types.Sum
import Network.Google.Admin.DataTransfer.Types.Product
import Network.Google.Admin.DataTransfer.Types.Sum
import Network.Google.Prelude

View File

@ -5,16 +5,16 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- |
-- Module : Network.Google.DataTransfer.Types.Product
-- Module : Network.Google.Admin.DataTransfer.Types.Product
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.Google.DataTransfer.Types.Product where
module Network.Google.Admin.DataTransfer.Types.Product where
import Network.Google.DataTransfer.Types.Sum
import Network.Google.Admin.DataTransfer.Types.Sum
import Network.Google.Prelude
-- | The JSON template for an Application resource.

View File

@ -0,0 +1,18 @@
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- |
-- Module : Network.Google.Admin.DataTransfer.Types.Sum
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.Google.Admin.DataTransfer.Types.Sum where
import Network.Google.Prelude

View File

@ -5,7 +5,7 @@
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
-- |
-- Module : Network.Google.Directory
-- Module : Network.Google.Admin.Directory
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@ -17,10 +17,10 @@
-- security features, and more.
--
-- /See:/ <https://developers.google.com/admin-sdk/directory/ Admin Directory API Reference>
module Network.Google.Directory
module Network.Google.Admin.Directory
(
-- * Resources
Directory
AdminDirectory
, GroupsAPI
, AliasesAPI
, AliasesInsert
@ -571,29 +571,29 @@ module Network.Google.Directory
, vcItems
) where
import Network.Google.Directory.Types
import Network.Google.Admin.Directory.Types
import Network.Google.Prelude
{- $resources
TODO
-}
type Directory =
UsersAPI :<|>
SchemasAPI :<|>
TokensAPI :<|>
ChannelsAPI :<|>
MembersAPI :<|>
MobiledevicesAPI :<|>
OrgunitsAPI :<|>
VerificationCodesAPI :<|>
NotificationsAPI :<|>
ChromeosdevicesAPI :<|> AspsAPI :<|> GroupsAPI
type AdminDirectory =
GroupsAPI :<|> UsersAPI :<|> SchemasAPI :<|>
TokensAPI
:<|> ChannelsAPI
:<|> MembersAPI
:<|> MobiledevicesAPI
:<|> OrgunitsAPI
:<|> VerificationCodesAPI
:<|> NotificationsAPI
:<|> ChromeosdevicesAPI
:<|> AspsAPI
type GroupsAPI = AliasesAPI
type AliasesAPI =
AliasesList :<|> AliasesDelete :<|> AliasesInsert
AliasesInsert :<|> AliasesList :<|> AliasesDelete
-- | Add a alias for the group
type AliasesInsert =
@ -635,11 +635,11 @@ type AliasesDelete =
:> QueryParam "fields" Text
:> QueryParam "alt" Text
type UsersAPI = PhotosAPI :<|> AliasesAPI
type UsersAPI = AliasesAPI :<|> PhotosAPI
type AliasesAPI =
AliasesList :<|>
AliasesDelete :<|> AliasesWatch :<|> AliasesInsert
AliasesInsert :<|> AliasesList :<|> AliasesDelete
:<|> AliasesWatch
-- | Add a alias for the user
type AliasesInsert =
@ -698,8 +698,8 @@ type AliasesWatch =
:> QueryParam "alt" Text
type PhotosAPI =
PhotosGet :<|>
PhotosDelete :<|> PhotosUpdate :<|> PhotosPatch
PhotosPatch :<|> PhotosGet :<|> PhotosDelete :<|>
PhotosUpdate
-- | Add a photo for the user. This method supports patch semantics.
type PhotosPatch =
@ -758,10 +758,10 @@ type PhotosUpdate =
:> QueryParam "alt" Text
type SchemasAPI =
SchemasList :<|>
SchemasPatch :<|>
SchemasGet :<|>
SchemasDelete :<|> SchemasUpdate :<|> SchemasInsert
SchemasInsert :<|> SchemasList :<|> SchemasPatch :<|>
SchemasGet
:<|> SchemasDelete
:<|> SchemasUpdate
-- | Create schema.
type SchemasInsert =
@ -846,7 +846,7 @@ type SchemasUpdate =
:> QueryParam "alt" Text
type TokensAPI =
TokensGet :<|> TokensDelete :<|> TokensList
TokensList :<|> TokensGet :<|> TokensDelete
-- | Returns the set of tokens specified user has issued to 3rd party
-- applications.
@ -907,10 +907,10 @@ type ChannelsStop =
:> QueryParam "alt" Text
type MembersAPI =
MembersList :<|>
MembersPatch :<|>
MembersGet :<|>
MembersDelete :<|> MembersUpdate :<|> MembersInsert
MembersInsert :<|> MembersList :<|> MembersPatch :<|>
MembersGet
:<|> MembersDelete
:<|> MembersUpdate
-- | Add user to the specified group.
type MembersInsert =
@ -999,9 +999,9 @@ type MembersUpdate =
:> QueryParam "alt" Text
type MobiledevicesAPI =
MobiledevicesGet :<|>
MobiledevicesAction :<|>
MobiledevicesDelete :<|> MobiledevicesList
MobiledevicesList :<|> MobiledevicesGet :<|>
MobiledevicesAction
:<|> MobiledevicesDelete
-- | Retrieve all Mobile Devices of a customer (paginated)
type MobiledevicesList =
@ -1071,11 +1071,10 @@ type MobiledevicesDelete =
:> QueryParam "alt" Text
type OrgunitsAPI =
OrgunitsList :<|>
OrgunitsPatch :<|>
OrgunitsGet :<|>
OrgunitsDelete :<|>
OrgunitsUpdate :<|> OrgunitsInsert
OrgunitsInsert :<|> OrgunitsList :<|> OrgunitsPatch
:<|> OrgunitsGet
:<|> OrgunitsDelete
:<|> OrgunitsUpdate
-- | Add Organization Unit
type OrgunitsInsert =
@ -1162,9 +1161,8 @@ type OrgunitsUpdate =
:> QueryParam "alt" Text
type VerificationCodesAPI =
VerificationCodesGenerate :<|>
VerificationCodesInvalidate :<|>
VerificationCodesList
VerificationCodesList :<|> VerificationCodesGenerate
:<|> VerificationCodesInvalidate
-- | Returns the current set of valid backup verification codes for the
-- specified user.
@ -1209,10 +1207,10 @@ type VerificationCodesInvalidate =
:> QueryParam "alt" Text
type NotificationsAPI =
NotificationsPatch :<|>
NotificationsGet :<|>
NotificationsDelete :<|>
NotificationsUpdate :<|> NotificationsList
NotificationsList :<|> NotificationsPatch :<|>
NotificationsGet
:<|> NotificationsDelete
:<|> NotificationsUpdate
-- | Retrieves a list of notifications.
type NotificationsList =
@ -1287,9 +1285,9 @@ type NotificationsUpdate =
:> QueryParam "alt" Text
type ChromeosdevicesAPI =
ChromeosdevicesPatch :<|>
ChromeosdevicesGet :<|>
ChromeosdevicesUpdate :<|> ChromeosdevicesList
ChromeosdevicesList :<|> ChromeosdevicesPatch :<|>
ChromeosdevicesGet
:<|> ChromeosdevicesUpdate
-- | Retrieve all Chrome OS Devices of a customer (paginated)
type ChromeosdevicesList =
@ -1359,7 +1357,7 @@ type ChromeosdevicesUpdate =
:> QueryParam "fields" Text
:> QueryParam "alt" Text
type AspsAPI = AspsGet :<|> AspsDelete :<|> AspsList
type AspsAPI = AspsList :<|> AspsGet :<|> AspsDelete
-- | List the ASPs issued by a user.
type AspsList =

View File

@ -5,14 +5,14 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- |
-- Module : Network.Google.Directory.Types
-- Module : Network.Google.Admin.Directory.Types
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.Google.Directory.Types
module Network.Google.Admin.Directory.Types
(
-- * Alias
@ -495,6 +495,6 @@ module Network.Google.Directory.Types
, vcItems
) where
import Network.Google.Directory.Types.Product
import Network.Google.Directory.Types.Sum
import Network.Google.Admin.Directory.Types.Product
import Network.Google.Admin.Directory.Types.Sum
import Network.Google.Prelude

View File

@ -5,16 +5,16 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- |
-- Module : Network.Google.Directory.Types.Product
-- Module : Network.Google.Admin.Directory.Types.Product
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.Google.Directory.Types.Product where
module Network.Google.Admin.Directory.Types.Product where
import Network.Google.Directory.Types.Sum
import Network.Google.Admin.Directory.Types.Sum
import Network.Google.Prelude
-- | JSON template for Alias object in Directory API.

View File

@ -6,13 +6,13 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- |
-- Module : Network.Google.AdExchangeBuyer.Types.Sum
-- Module : Network.Google.Admin.Directory.Types.Sum
-- Copyright : (c) 2015 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.Google.AdExchangeBuyer.Types.Sum where
module Network.Google.Admin.Directory.Types.Sum where
import Network.Google.Prelude

Some files were not shown because too many files have changed in this diff Show More