{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.CivicInfo.Divisions.Search
(
DivisionsSearchResource
, divisionsSearch
, DivisionsSearch
, dsPayload
, dsQuery
) where
import Network.Google.CivicInfo.Types
import Network.Google.Prelude
type DivisionsSearchResource =
"civicinfo" :>
"v2" :>
"divisions" :>
QueryParam "query" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] DivisionSearchRequest :>
Get '[JSON] DivisionSearchResponse
-- | Searches for political divisions by their natural name or OCD ID.
--
-- /See:/ 'divisionsSearch' smart constructor.
data DivisionsSearch = DivisionsSearch'
{ _dsPayload :: !DivisionSearchRequest
, _dsQuery :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'DivisionsSearch' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'dsPayload'
--
-- * 'dsQuery'
divisionsSearch
:: DivisionSearchRequest -- ^ 'dsPayload'
-> DivisionsSearch
divisionsSearch pDsPayload_ =
DivisionsSearch'
{ _dsPayload = pDsPayload_
, _dsQuery = Nothing
}
-- | Multipart request metadata.
dsPayload :: Lens' DivisionsSearch DivisionSearchRequest
dsPayload
= lens _dsPayload (\ s a -> s{_dsPayload = a})
-- | The search query. Queries can cover any parts of a OCD ID or a human
-- readable division name. All words given in the query are treated as
-- required patterns. In addition to that, most query operators of the
-- Apache Lucene library are supported. See
-- http:\/\/lucene.apache.org\/core\/2_9_4\/queryparsersyntax.html
dsQuery :: Lens' DivisionsSearch (Maybe Text)
dsQuery = lens _dsQuery (\ s a -> s{_dsQuery = a})
instance GoogleRequest DivisionsSearch where
type Rs DivisionsSearch = DivisionSearchResponse
type Scopes DivisionsSearch = '[]
requestClient DivisionsSearch'{..}
= go _dsQuery (Just AltJSON) _dsPayload
civicInfoService
where go
= buildClient
(Proxy :: Proxy DivisionsSearchResource)
mempty