{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE UndecidableInstances #-}
module Data.EBird.Client.Observations where
import Data.Default
import Data.Text
import Optics.TH
import Servant.Client
import Data.EBird.API
import Data.EBird.Client.Generated
recentObservations
:: Text
-> RegionCode
-> RecentObservationsParams
-> ClientM [Observation 'Simple]
recentObservations :: Text
-> RegionCode
-> RecentObservationsParams
-> ClientM [Observation 'Simple]
recentObservations Text
k RegionCode
r RecentObservationsParams{Maybe Bool
Maybe Integer
Maybe RegionCode
Maybe SPPLocale
Maybe TaxonomyCategories
_recentObservationsParamsBack :: Maybe Integer
_recentObservationsParamsCategories :: Maybe TaxonomyCategories
_recentObservationsParamsHotspot :: Maybe Bool
_recentObservationsParamsProvisional :: Maybe Bool
_recentObservationsParamsMaxResults :: Maybe Integer
_recentObservationsParamsExtraRegions :: Maybe RegionCode
_recentObservationsParamsLocale :: Maybe SPPLocale
_recentObservationsParamsBack :: RecentObservationsParams -> Maybe Integer
_recentObservationsParamsCategories :: RecentObservationsParams -> Maybe TaxonomyCategories
_recentObservationsParamsHotspot :: RecentObservationsParams -> Maybe Bool
_recentObservationsParamsProvisional :: RecentObservationsParams -> Maybe Bool
_recentObservationsParamsMaxResults :: RecentObservationsParams -> Maybe Integer
_recentObservationsParamsExtraRegions :: RecentObservationsParams -> Maybe RegionCode
_recentObservationsParamsLocale :: RecentObservationsParams -> Maybe SPPLocale
..} =
Text
-> RegionCode
-> Maybe Integer
-> Maybe TaxonomyCategories
-> Maybe Bool
-> Maybe Bool
-> Maybe Integer
-> Maybe RegionCode
-> Maybe SPPLocale
-> ClientM [Observation 'Simple]
recentObservations_ Text
k RegionCode
r
Maybe Integer
_recentObservationsParamsBack
Maybe TaxonomyCategories
_recentObservationsParamsCategories
Maybe Bool
_recentObservationsParamsHotspot
Maybe Bool
_recentObservationsParamsProvisional
Maybe Integer
_recentObservationsParamsMaxResults
Maybe RegionCode
_recentObservationsParamsExtraRegions
Maybe SPPLocale
_recentObservationsParamsLocale
data RecentObservationsParams =
RecentObservationsParams
{
RecentObservationsParams -> Maybe Integer
_recentObservationsParamsBack :: Maybe Integer
, RecentObservationsParams -> Maybe TaxonomyCategories
_recentObservationsParamsCategories :: Maybe TaxonomyCategories
, RecentObservationsParams -> Maybe Bool
_recentObservationsParamsHotspot :: Maybe Bool
, RecentObservationsParams -> Maybe Bool
_recentObservationsParamsProvisional :: Maybe Bool
, RecentObservationsParams -> Maybe Integer
_recentObservationsParamsMaxResults :: Maybe Integer
, :: Maybe RegionCode
, RecentObservationsParams -> Maybe SPPLocale
_recentObservationsParamsLocale :: Maybe SPPLocale
}
deriving (Int -> RecentObservationsParams -> ShowS
[RecentObservationsParams] -> ShowS
RecentObservationsParams -> String
(Int -> RecentObservationsParams -> ShowS)
-> (RecentObservationsParams -> String)
-> ([RecentObservationsParams] -> ShowS)
-> Show RecentObservationsParams
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RecentObservationsParams -> ShowS
showsPrec :: Int -> RecentObservationsParams -> ShowS
$cshow :: RecentObservationsParams -> String
show :: RecentObservationsParams -> String
$cshowList :: [RecentObservationsParams] -> ShowS
showList :: [RecentObservationsParams] -> ShowS
Show, ReadPrec [RecentObservationsParams]
ReadPrec RecentObservationsParams
Int -> ReadS RecentObservationsParams
ReadS [RecentObservationsParams]
(Int -> ReadS RecentObservationsParams)
-> ReadS [RecentObservationsParams]
-> ReadPrec RecentObservationsParams
-> ReadPrec [RecentObservationsParams]
-> Read RecentObservationsParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS RecentObservationsParams
readsPrec :: Int -> ReadS RecentObservationsParams
$creadList :: ReadS [RecentObservationsParams]
readList :: ReadS [RecentObservationsParams]
$creadPrec :: ReadPrec RecentObservationsParams
readPrec :: ReadPrec RecentObservationsParams
$creadListPrec :: ReadPrec [RecentObservationsParams]
readListPrec :: ReadPrec [RecentObservationsParams]
Read, RecentObservationsParams -> RecentObservationsParams -> Bool
(RecentObservationsParams -> RecentObservationsParams -> Bool)
-> (RecentObservationsParams -> RecentObservationsParams -> Bool)
-> Eq RecentObservationsParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RecentObservationsParams -> RecentObservationsParams -> Bool
== :: RecentObservationsParams -> RecentObservationsParams -> Bool
$c/= :: RecentObservationsParams -> RecentObservationsParams -> Bool
/= :: RecentObservationsParams -> RecentObservationsParams -> Bool
Eq)
defaultRecentObservationsParams :: RecentObservationsParams
defaultRecentObservationsParams :: RecentObservationsParams
defaultRecentObservationsParams =
RecentObservationsParams
{ _recentObservationsParamsBack :: Maybe Integer
_recentObservationsParamsBack = Maybe Integer
forall a. Maybe a
Nothing
, _recentObservationsParamsCategories :: Maybe TaxonomyCategories
_recentObservationsParamsCategories = Maybe TaxonomyCategories
forall a. Maybe a
Nothing
, _recentObservationsParamsHotspot :: Maybe Bool
_recentObservationsParamsHotspot = Maybe Bool
forall a. Maybe a
Nothing
, _recentObservationsParamsProvisional :: Maybe Bool
_recentObservationsParamsProvisional = Maybe Bool
forall a. Maybe a
Nothing
, _recentObservationsParamsMaxResults :: Maybe Integer
_recentObservationsParamsMaxResults = Maybe Integer
forall a. Maybe a
Nothing
, _recentObservationsParamsExtraRegions :: Maybe RegionCode
_recentObservationsParamsExtraRegions = Maybe RegionCode
forall a. Maybe a
Nothing
, _recentObservationsParamsLocale :: Maybe SPPLocale
_recentObservationsParamsLocale = Maybe SPPLocale
forall a. Maybe a
Nothing
}
instance Default RecentObservationsParams where
def :: RecentObservationsParams
def = RecentObservationsParams
defaultRecentObservationsParams
makeFieldLabels ''RecentObservationsParams
recentNotableObservations
:: Text
-> RegionCode
-> RecentNotableObservationsParams
-> ClientM [SomeObservation]
recentNotableObservations :: Text
-> RegionCode
-> RecentNotableObservationsParams
-> ClientM [SomeObservation]
recentNotableObservations Text
k RegionCode
r RecentNotableObservationsParams{Maybe Bool
Maybe Integer
Maybe DetailLevel
Maybe RegionCode
Maybe SPPLocale
_recentNotableObservationsParamsBack :: Maybe Integer
_recentNotableObservationsParamsDetail :: Maybe DetailLevel
_recentNotableObservationsParamsHotspot :: Maybe Bool
_recentNotableObservationsParamsMaxResults :: Maybe Integer
_recentNotableObservationsParamsExtraRegions :: Maybe RegionCode
_recentNotableObservationsParamsLocale :: Maybe SPPLocale
_recentNotableObservationsParamsBack :: RecentNotableObservationsParams -> Maybe Integer
_recentNotableObservationsParamsDetail :: RecentNotableObservationsParams -> Maybe DetailLevel
_recentNotableObservationsParamsHotspot :: RecentNotableObservationsParams -> Maybe Bool
_recentNotableObservationsParamsMaxResults :: RecentNotableObservationsParams -> Maybe Integer
_recentNotableObservationsParamsExtraRegions :: RecentNotableObservationsParams -> Maybe RegionCode
_recentNotableObservationsParamsLocale :: RecentNotableObservationsParams -> Maybe SPPLocale
..} =
Text
-> RegionCode
-> Maybe Integer
-> Maybe DetailLevel
-> Maybe Bool
-> Maybe Integer
-> Maybe RegionCode
-> Maybe SPPLocale
-> ClientM [SomeObservation]
recentNotableObservations_ Text
k RegionCode
r
Maybe Integer
_recentNotableObservationsParamsBack
Maybe DetailLevel
_recentNotableObservationsParamsDetail
Maybe Bool
_recentNotableObservationsParamsHotspot
Maybe Integer
_recentNotableObservationsParamsMaxResults
Maybe RegionCode
_recentNotableObservationsParamsExtraRegions
Maybe SPPLocale
_recentNotableObservationsParamsLocale
data RecentNotableObservationsParams =
RecentNotableObservationsParams
{
RecentNotableObservationsParams -> Maybe Integer
_recentNotableObservationsParamsBack :: Maybe Integer
, RecentNotableObservationsParams -> Maybe DetailLevel
_recentNotableObservationsParamsDetail :: Maybe DetailLevel
, RecentNotableObservationsParams -> Maybe Bool
_recentNotableObservationsParamsHotspot :: Maybe Bool
, RecentNotableObservationsParams -> Maybe Integer
_recentNotableObservationsParamsMaxResults :: Maybe Integer
, :: Maybe RegionCode
, RecentNotableObservationsParams -> Maybe SPPLocale
_recentNotableObservationsParamsLocale :: Maybe SPPLocale
}
deriving (Int -> RecentNotableObservationsParams -> ShowS
[RecentNotableObservationsParams] -> ShowS
RecentNotableObservationsParams -> String
(Int -> RecentNotableObservationsParams -> ShowS)
-> (RecentNotableObservationsParams -> String)
-> ([RecentNotableObservationsParams] -> ShowS)
-> Show RecentNotableObservationsParams
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RecentNotableObservationsParams -> ShowS
showsPrec :: Int -> RecentNotableObservationsParams -> ShowS
$cshow :: RecentNotableObservationsParams -> String
show :: RecentNotableObservationsParams -> String
$cshowList :: [RecentNotableObservationsParams] -> ShowS
showList :: [RecentNotableObservationsParams] -> ShowS
Show, ReadPrec [RecentNotableObservationsParams]
ReadPrec RecentNotableObservationsParams
Int -> ReadS RecentNotableObservationsParams
ReadS [RecentNotableObservationsParams]
(Int -> ReadS RecentNotableObservationsParams)
-> ReadS [RecentNotableObservationsParams]
-> ReadPrec RecentNotableObservationsParams
-> ReadPrec [RecentNotableObservationsParams]
-> Read RecentNotableObservationsParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS RecentNotableObservationsParams
readsPrec :: Int -> ReadS RecentNotableObservationsParams
$creadList :: ReadS [RecentNotableObservationsParams]
readList :: ReadS [RecentNotableObservationsParams]
$creadPrec :: ReadPrec RecentNotableObservationsParams
readPrec :: ReadPrec RecentNotableObservationsParams
$creadListPrec :: ReadPrec [RecentNotableObservationsParams]
readListPrec :: ReadPrec [RecentNotableObservationsParams]
Read, RecentNotableObservationsParams
-> RecentNotableObservationsParams -> Bool
(RecentNotableObservationsParams
-> RecentNotableObservationsParams -> Bool)
-> (RecentNotableObservationsParams
-> RecentNotableObservationsParams -> Bool)
-> Eq RecentNotableObservationsParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RecentNotableObservationsParams
-> RecentNotableObservationsParams -> Bool
== :: RecentNotableObservationsParams
-> RecentNotableObservationsParams -> Bool
$c/= :: RecentNotableObservationsParams
-> RecentNotableObservationsParams -> Bool
/= :: RecentNotableObservationsParams
-> RecentNotableObservationsParams -> Bool
Eq)
defaultRecentNotableObservationsParams :: RecentNotableObservationsParams
defaultRecentNotableObservationsParams :: RecentNotableObservationsParams
defaultRecentNotableObservationsParams =
RecentNotableObservationsParams
{ _recentNotableObservationsParamsBack :: Maybe Integer
_recentNotableObservationsParamsBack = Maybe Integer
forall a. Maybe a
Nothing
, _recentNotableObservationsParamsDetail :: Maybe DetailLevel
_recentNotableObservationsParamsDetail = Maybe DetailLevel
forall a. Maybe a
Nothing
, _recentNotableObservationsParamsHotspot :: Maybe Bool
_recentNotableObservationsParamsHotspot = Maybe Bool
forall a. Maybe a
Nothing
, _recentNotableObservationsParamsMaxResults :: Maybe Integer
_recentNotableObservationsParamsMaxResults = Maybe Integer
forall a. Maybe a
Nothing
, _recentNotableObservationsParamsExtraRegions :: Maybe RegionCode
_recentNotableObservationsParamsExtraRegions = Maybe RegionCode
forall a. Maybe a
Nothing
, _recentNotableObservationsParamsLocale :: Maybe SPPLocale
_recentNotableObservationsParamsLocale = Maybe SPPLocale
forall a. Maybe a
Nothing
}
instance Default RecentNotableObservationsParams where
def :: RecentNotableObservationsParams
def = RecentNotableObservationsParams
defaultRecentNotableObservationsParams
makeFieldLabels ''RecentNotableObservationsParams
recentSpeciesObservations
:: Text
-> RegionCode
-> SpeciesCode
-> RecentSpeciesObservationsParams
-> ClientM [Observation 'Simple]
recentSpeciesObservations :: Text
-> RegionCode
-> SpeciesCode
-> RecentSpeciesObservationsParams
-> ClientM [Observation 'Simple]
recentSpeciesObservations Text
k RegionCode
r SpeciesCode
sp RecentSpeciesObservationsParams{Maybe Bool
Maybe Integer
Maybe RegionCode
Maybe SPPLocale
_recentSpeciesObservationsParamsBack :: Maybe Integer
_recentSpeciesObservationsParamsHotspot :: Maybe Bool
_recentSpeciesObservationsParamsProvisional :: Maybe Bool
_recentSpeciesObservationsParamsMaxResults :: Maybe Integer
_recentSpeciesObservationsParamsExtraRegions :: Maybe RegionCode
_recentSpeciesObservationsParamsLocale :: Maybe SPPLocale
_recentSpeciesObservationsParamsBack :: RecentSpeciesObservationsParams -> Maybe Integer
_recentSpeciesObservationsParamsHotspot :: RecentSpeciesObservationsParams -> Maybe Bool
_recentSpeciesObservationsParamsProvisional :: RecentSpeciesObservationsParams -> Maybe Bool
_recentSpeciesObservationsParamsMaxResults :: RecentSpeciesObservationsParams -> Maybe Integer
_recentSpeciesObservationsParamsExtraRegions :: RecentSpeciesObservationsParams -> Maybe RegionCode
_recentSpeciesObservationsParamsLocale :: RecentSpeciesObservationsParams -> Maybe SPPLocale
..} =
Text
-> RegionCode
-> SpeciesCode
-> Maybe Integer
-> Maybe Bool
-> Maybe Bool
-> Maybe Integer
-> Maybe RegionCode
-> Maybe SPPLocale
-> ClientM [Observation 'Simple]
recentSpeciesObservations_ Text
k RegionCode
r SpeciesCode
sp
Maybe Integer
_recentSpeciesObservationsParamsBack
Maybe Bool
_recentSpeciesObservationsParamsHotspot
Maybe Bool
_recentSpeciesObservationsParamsProvisional
Maybe Integer
_recentSpeciesObservationsParamsMaxResults
Maybe RegionCode
_recentSpeciesObservationsParamsExtraRegions
Maybe SPPLocale
_recentSpeciesObservationsParamsLocale
data RecentSpeciesObservationsParams =
RecentSpeciesObservationsParams
{
RecentSpeciesObservationsParams -> Maybe Integer
_recentSpeciesObservationsParamsBack :: Maybe Integer
, RecentSpeciesObservationsParams -> Maybe Bool
_recentSpeciesObservationsParamsHotspot :: Maybe Bool
, RecentSpeciesObservationsParams -> Maybe Bool
_recentSpeciesObservationsParamsProvisional :: Maybe Bool
, RecentSpeciesObservationsParams -> Maybe Integer
_recentSpeciesObservationsParamsMaxResults :: Maybe Integer
, :: Maybe RegionCode
, RecentSpeciesObservationsParams -> Maybe SPPLocale
_recentSpeciesObservationsParamsLocale :: Maybe SPPLocale
}
deriving (Int -> RecentSpeciesObservationsParams -> ShowS
[RecentSpeciesObservationsParams] -> ShowS
RecentSpeciesObservationsParams -> String
(Int -> RecentSpeciesObservationsParams -> ShowS)
-> (RecentSpeciesObservationsParams -> String)
-> ([RecentSpeciesObservationsParams] -> ShowS)
-> Show RecentSpeciesObservationsParams
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RecentSpeciesObservationsParams -> ShowS
showsPrec :: Int -> RecentSpeciesObservationsParams -> ShowS
$cshow :: RecentSpeciesObservationsParams -> String
show :: RecentSpeciesObservationsParams -> String
$cshowList :: [RecentSpeciesObservationsParams] -> ShowS
showList :: [RecentSpeciesObservationsParams] -> ShowS
Show, ReadPrec [RecentSpeciesObservationsParams]
ReadPrec RecentSpeciesObservationsParams
Int -> ReadS RecentSpeciesObservationsParams
ReadS [RecentSpeciesObservationsParams]
(Int -> ReadS RecentSpeciesObservationsParams)
-> ReadS [RecentSpeciesObservationsParams]
-> ReadPrec RecentSpeciesObservationsParams
-> ReadPrec [RecentSpeciesObservationsParams]
-> Read RecentSpeciesObservationsParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS RecentSpeciesObservationsParams
readsPrec :: Int -> ReadS RecentSpeciesObservationsParams
$creadList :: ReadS [RecentSpeciesObservationsParams]
readList :: ReadS [RecentSpeciesObservationsParams]
$creadPrec :: ReadPrec RecentSpeciesObservationsParams
readPrec :: ReadPrec RecentSpeciesObservationsParams
$creadListPrec :: ReadPrec [RecentSpeciesObservationsParams]
readListPrec :: ReadPrec [RecentSpeciesObservationsParams]
Read, RecentSpeciesObservationsParams
-> RecentSpeciesObservationsParams -> Bool
(RecentSpeciesObservationsParams
-> RecentSpeciesObservationsParams -> Bool)
-> (RecentSpeciesObservationsParams
-> RecentSpeciesObservationsParams -> Bool)
-> Eq RecentSpeciesObservationsParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RecentSpeciesObservationsParams
-> RecentSpeciesObservationsParams -> Bool
== :: RecentSpeciesObservationsParams
-> RecentSpeciesObservationsParams -> Bool
$c/= :: RecentSpeciesObservationsParams
-> RecentSpeciesObservationsParams -> Bool
/= :: RecentSpeciesObservationsParams
-> RecentSpeciesObservationsParams -> Bool
Eq)
defaultRecentSpeciesObservationsParams :: RecentSpeciesObservationsParams
defaultRecentSpeciesObservationsParams :: RecentSpeciesObservationsParams
defaultRecentSpeciesObservationsParams =
RecentSpeciesObservationsParams
{ _recentSpeciesObservationsParamsBack :: Maybe Integer
_recentSpeciesObservationsParamsBack = Maybe Integer
forall a. Maybe a
Nothing
, _recentSpeciesObservationsParamsHotspot :: Maybe Bool
_recentSpeciesObservationsParamsHotspot = Maybe Bool
forall a. Maybe a
Nothing
, _recentSpeciesObservationsParamsProvisional :: Maybe Bool
_recentSpeciesObservationsParamsProvisional = Maybe Bool
forall a. Maybe a
Nothing
, _recentSpeciesObservationsParamsMaxResults :: Maybe Integer
_recentSpeciesObservationsParamsMaxResults = Maybe Integer
forall a. Maybe a
Nothing
, _recentSpeciesObservationsParamsExtraRegions :: Maybe RegionCode
_recentSpeciesObservationsParamsExtraRegions = Maybe RegionCode
forall a. Maybe a
Nothing
, _recentSpeciesObservationsParamsLocale :: Maybe SPPLocale
_recentSpeciesObservationsParamsLocale = Maybe SPPLocale
forall a. Maybe a
Nothing
}
instance Default RecentSpeciesObservationsParams where
def :: RecentSpeciesObservationsParams
def = RecentSpeciesObservationsParams
defaultRecentSpeciesObservationsParams
makeFieldLabels ''RecentSpeciesObservationsParams
recentNearbyObservations
:: Text
-> Double
-> Double
-> RecentNearbyObservationsParams
-> ClientM [Observation 'Simple]
recentNearbyObservations :: Text
-> Double
-> Double
-> RecentNearbyObservationsParams
-> ClientM [Observation 'Simple]
recentNearbyObservations Text
k Double
lat Double
lng RecentNearbyObservationsParams{Maybe Bool
Maybe Integer
Maybe SortObservationsBy
Maybe SPPLocale
Maybe TaxonomyCategories
_recentNearbyObservationsParamsRadius :: Maybe Integer
_recentNearbyObservationsParamsBack :: Maybe Integer
_recentNearbyObservationsParamsCategories :: Maybe TaxonomyCategories
_recentNearbyObservationsParamsHotspot :: Maybe Bool
_recentNearbyObservationsParamsProvisional :: Maybe Bool
_recentNearbyObservationsParamsMaxResults :: Maybe Integer
_recentNearbyObservationsParamsSortBy :: Maybe SortObservationsBy
_recentNearbyObservationsParamsLocale :: Maybe SPPLocale
_recentNearbyObservationsParamsRadius :: RecentNearbyObservationsParams -> Maybe Integer
_recentNearbyObservationsParamsBack :: RecentNearbyObservationsParams -> Maybe Integer
_recentNearbyObservationsParamsCategories :: RecentNearbyObservationsParams -> Maybe TaxonomyCategories
_recentNearbyObservationsParamsHotspot :: RecentNearbyObservationsParams -> Maybe Bool
_recentNearbyObservationsParamsProvisional :: RecentNearbyObservationsParams -> Maybe Bool
_recentNearbyObservationsParamsMaxResults :: RecentNearbyObservationsParams -> Maybe Integer
_recentNearbyObservationsParamsSortBy :: RecentNearbyObservationsParams -> Maybe SortObservationsBy
_recentNearbyObservationsParamsLocale :: RecentNearbyObservationsParams -> Maybe SPPLocale
..} =
Text
-> Double
-> Double
-> Maybe Integer
-> Maybe Integer
-> Maybe TaxonomyCategories
-> Maybe Bool
-> Maybe Bool
-> Maybe Integer
-> Maybe SortObservationsBy
-> Maybe SPPLocale
-> ClientM [Observation 'Simple]
recentNearbyObservations_ Text
k Double
lat Double
lng
Maybe Integer
_recentNearbyObservationsParamsRadius
Maybe Integer
_recentNearbyObservationsParamsBack
Maybe TaxonomyCategories
_recentNearbyObservationsParamsCategories
Maybe Bool
_recentNearbyObservationsParamsHotspot
Maybe Bool
_recentNearbyObservationsParamsProvisional
Maybe Integer
_recentNearbyObservationsParamsMaxResults
Maybe SortObservationsBy
_recentNearbyObservationsParamsSortBy
Maybe SPPLocale
_recentNearbyObservationsParamsLocale
data RecentNearbyObservationsParams =
RecentNearbyObservationsParams
{
RecentNearbyObservationsParams -> Maybe Integer
_recentNearbyObservationsParamsRadius :: Maybe Integer
, RecentNearbyObservationsParams -> Maybe Integer
_recentNearbyObservationsParamsBack :: Maybe Integer
, RecentNearbyObservationsParams -> Maybe TaxonomyCategories
_recentNearbyObservationsParamsCategories :: Maybe TaxonomyCategories
, RecentNearbyObservationsParams -> Maybe Bool
_recentNearbyObservationsParamsHotspot :: Maybe Bool
, RecentNearbyObservationsParams -> Maybe Bool
_recentNearbyObservationsParamsProvisional :: Maybe Bool
, RecentNearbyObservationsParams -> Maybe Integer
_recentNearbyObservationsParamsMaxResults :: Maybe Integer
, RecentNearbyObservationsParams -> Maybe SortObservationsBy
_recentNearbyObservationsParamsSortBy :: Maybe SortObservationsBy
, RecentNearbyObservationsParams -> Maybe SPPLocale
_recentNearbyObservationsParamsLocale :: Maybe SPPLocale
}
deriving (Int -> RecentNearbyObservationsParams -> ShowS
[RecentNearbyObservationsParams] -> ShowS
RecentNearbyObservationsParams -> String
(Int -> RecentNearbyObservationsParams -> ShowS)
-> (RecentNearbyObservationsParams -> String)
-> ([RecentNearbyObservationsParams] -> ShowS)
-> Show RecentNearbyObservationsParams
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RecentNearbyObservationsParams -> ShowS
showsPrec :: Int -> RecentNearbyObservationsParams -> ShowS
$cshow :: RecentNearbyObservationsParams -> String
show :: RecentNearbyObservationsParams -> String
$cshowList :: [RecentNearbyObservationsParams] -> ShowS
showList :: [RecentNearbyObservationsParams] -> ShowS
Show, ReadPrec [RecentNearbyObservationsParams]
ReadPrec RecentNearbyObservationsParams
Int -> ReadS RecentNearbyObservationsParams
ReadS [RecentNearbyObservationsParams]
(Int -> ReadS RecentNearbyObservationsParams)
-> ReadS [RecentNearbyObservationsParams]
-> ReadPrec RecentNearbyObservationsParams
-> ReadPrec [RecentNearbyObservationsParams]
-> Read RecentNearbyObservationsParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS RecentNearbyObservationsParams
readsPrec :: Int -> ReadS RecentNearbyObservationsParams
$creadList :: ReadS [RecentNearbyObservationsParams]
readList :: ReadS [RecentNearbyObservationsParams]
$creadPrec :: ReadPrec RecentNearbyObservationsParams
readPrec :: ReadPrec RecentNearbyObservationsParams
$creadListPrec :: ReadPrec [RecentNearbyObservationsParams]
readListPrec :: ReadPrec [RecentNearbyObservationsParams]
Read, RecentNearbyObservationsParams
-> RecentNearbyObservationsParams -> Bool
(RecentNearbyObservationsParams
-> RecentNearbyObservationsParams -> Bool)
-> (RecentNearbyObservationsParams
-> RecentNearbyObservationsParams -> Bool)
-> Eq RecentNearbyObservationsParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RecentNearbyObservationsParams
-> RecentNearbyObservationsParams -> Bool
== :: RecentNearbyObservationsParams
-> RecentNearbyObservationsParams -> Bool
$c/= :: RecentNearbyObservationsParams
-> RecentNearbyObservationsParams -> Bool
/= :: RecentNearbyObservationsParams
-> RecentNearbyObservationsParams -> Bool
Eq)
defaultRecentNearbyObservationsParams :: RecentNearbyObservationsParams
defaultRecentNearbyObservationsParams :: RecentNearbyObservationsParams
defaultRecentNearbyObservationsParams =
RecentNearbyObservationsParams
{ _recentNearbyObservationsParamsRadius :: Maybe Integer
_recentNearbyObservationsParamsRadius = Maybe Integer
forall a. Maybe a
Nothing
, _recentNearbyObservationsParamsBack :: Maybe Integer
_recentNearbyObservationsParamsBack = Maybe Integer
forall a. Maybe a
Nothing
, _recentNearbyObservationsParamsCategories :: Maybe TaxonomyCategories
_recentNearbyObservationsParamsCategories = Maybe TaxonomyCategories
forall a. Maybe a
Nothing
, _recentNearbyObservationsParamsHotspot :: Maybe Bool
_recentNearbyObservationsParamsHotspot = Maybe Bool
forall a. Maybe a
Nothing
, _recentNearbyObservationsParamsProvisional :: Maybe Bool
_recentNearbyObservationsParamsProvisional = Maybe Bool
forall a. Maybe a
Nothing
, _recentNearbyObservationsParamsMaxResults :: Maybe Integer
_recentNearbyObservationsParamsMaxResults = Maybe Integer
forall a. Maybe a
Nothing
, _recentNearbyObservationsParamsSortBy :: Maybe SortObservationsBy
_recentNearbyObservationsParamsSortBy = Maybe SortObservationsBy
forall a. Maybe a
Nothing
, _recentNearbyObservationsParamsLocale :: Maybe SPPLocale
_recentNearbyObservationsParamsLocale = Maybe SPPLocale
forall a. Maybe a
Nothing
}
instance Default RecentNearbyObservationsParams where
def :: RecentNearbyObservationsParams
def = RecentNearbyObservationsParams
defaultRecentNearbyObservationsParams
makeLenses ''RecentNearbyObservationsParams
makeFieldLabels ''RecentNearbyObservationsParams
recentNearbySpeciesObservations
:: Text
-> SpeciesCode
-> Double
-> Double
-> RecentNearbySpeciesObservationsParams
-> ClientM [Observation 'Simple]
recentNearbySpeciesObservations :: Text
-> SpeciesCode
-> Double
-> Double
-> RecentNearbySpeciesObservationsParams
-> ClientM [Observation 'Simple]
recentNearbySpeciesObservations Text
k SpeciesCode
sp Double
lat Double
lng RecentNearbySpeciesObservationsParams{Maybe Bool
Maybe Integer
Maybe SortObservationsBy
Maybe SPPLocale
Maybe TaxonomyCategories
_recentNearbySpeciesObservationsParamsRadius :: Maybe Integer
_recentNearbySpeciesObservationsParamsBack :: Maybe Integer
_recentNearbySpeciesObservationsParamsCategories :: Maybe TaxonomyCategories
_recentNearbySpeciesObservationsParamsHotspot :: Maybe Bool
_recentNearbySpeciesObservationsParamsProvisional :: Maybe Bool
_recentNearbySpeciesObservationsParamsMaxResults :: Maybe Integer
_recentNearbySpeciesObservationsParamsSortBy :: Maybe SortObservationsBy
_recentNearbySpeciesObservationsParamsLocale :: Maybe SPPLocale
_recentNearbySpeciesObservationsParamsRadius :: RecentNearbySpeciesObservationsParams -> Maybe Integer
_recentNearbySpeciesObservationsParamsBack :: RecentNearbySpeciesObservationsParams -> Maybe Integer
_recentNearbySpeciesObservationsParamsCategories :: RecentNearbySpeciesObservationsParams -> Maybe TaxonomyCategories
_recentNearbySpeciesObservationsParamsHotspot :: RecentNearbySpeciesObservationsParams -> Maybe Bool
_recentNearbySpeciesObservationsParamsProvisional :: RecentNearbySpeciesObservationsParams -> Maybe Bool
_recentNearbySpeciesObservationsParamsMaxResults :: RecentNearbySpeciesObservationsParams -> Maybe Integer
_recentNearbySpeciesObservationsParamsSortBy :: RecentNearbySpeciesObservationsParams -> Maybe SortObservationsBy
_recentNearbySpeciesObservationsParamsLocale :: RecentNearbySpeciesObservationsParams -> Maybe SPPLocale
..} =
Text
-> SpeciesCode
-> Double
-> Double
-> Maybe Integer
-> Maybe Integer
-> Maybe TaxonomyCategories
-> Maybe Bool
-> Maybe Bool
-> Maybe Integer
-> Maybe SortObservationsBy
-> Maybe SPPLocale
-> ClientM [Observation 'Simple]
recentNearbySpeciesObservations_ Text
k SpeciesCode
sp Double
lat Double
lng
Maybe Integer
_recentNearbySpeciesObservationsParamsRadius
Maybe Integer
_recentNearbySpeciesObservationsParamsBack
Maybe TaxonomyCategories
_recentNearbySpeciesObservationsParamsCategories
Maybe Bool
_recentNearbySpeciesObservationsParamsHotspot
Maybe Bool
_recentNearbySpeciesObservationsParamsProvisional
Maybe Integer
_recentNearbySpeciesObservationsParamsMaxResults
Maybe SortObservationsBy
_recentNearbySpeciesObservationsParamsSortBy
Maybe SPPLocale
_recentNearbySpeciesObservationsParamsLocale
data RecentNearbySpeciesObservationsParams =
RecentNearbySpeciesObservationsParams
{
RecentNearbySpeciesObservationsParams -> Maybe Integer
_recentNearbySpeciesObservationsParamsRadius :: Maybe Integer
, RecentNearbySpeciesObservationsParams -> Maybe Integer
_recentNearbySpeciesObservationsParamsBack :: Maybe Integer
, RecentNearbySpeciesObservationsParams -> Maybe TaxonomyCategories
_recentNearbySpeciesObservationsParamsCategories :: Maybe TaxonomyCategories
, RecentNearbySpeciesObservationsParams -> Maybe Bool
_recentNearbySpeciesObservationsParamsHotspot :: Maybe Bool
, RecentNearbySpeciesObservationsParams -> Maybe Bool
_recentNearbySpeciesObservationsParamsProvisional :: Maybe Bool
, RecentNearbySpeciesObservationsParams -> Maybe Integer
_recentNearbySpeciesObservationsParamsMaxResults :: Maybe Integer
, RecentNearbySpeciesObservationsParams -> Maybe SortObservationsBy
_recentNearbySpeciesObservationsParamsSortBy :: Maybe SortObservationsBy
, RecentNearbySpeciesObservationsParams -> Maybe SPPLocale
_recentNearbySpeciesObservationsParamsLocale :: Maybe SPPLocale
}
deriving (Int -> RecentNearbySpeciesObservationsParams -> ShowS
[RecentNearbySpeciesObservationsParams] -> ShowS
RecentNearbySpeciesObservationsParams -> String
(Int -> RecentNearbySpeciesObservationsParams -> ShowS)
-> (RecentNearbySpeciesObservationsParams -> String)
-> ([RecentNearbySpeciesObservationsParams] -> ShowS)
-> Show RecentNearbySpeciesObservationsParams
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RecentNearbySpeciesObservationsParams -> ShowS
showsPrec :: Int -> RecentNearbySpeciesObservationsParams -> ShowS
$cshow :: RecentNearbySpeciesObservationsParams -> String
show :: RecentNearbySpeciesObservationsParams -> String
$cshowList :: [RecentNearbySpeciesObservationsParams] -> ShowS
showList :: [RecentNearbySpeciesObservationsParams] -> ShowS
Show, ReadPrec [RecentNearbySpeciesObservationsParams]
ReadPrec RecentNearbySpeciesObservationsParams
Int -> ReadS RecentNearbySpeciesObservationsParams
ReadS [RecentNearbySpeciesObservationsParams]
(Int -> ReadS RecentNearbySpeciesObservationsParams)
-> ReadS [RecentNearbySpeciesObservationsParams]
-> ReadPrec RecentNearbySpeciesObservationsParams
-> ReadPrec [RecentNearbySpeciesObservationsParams]
-> Read RecentNearbySpeciesObservationsParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS RecentNearbySpeciesObservationsParams
readsPrec :: Int -> ReadS RecentNearbySpeciesObservationsParams
$creadList :: ReadS [RecentNearbySpeciesObservationsParams]
readList :: ReadS [RecentNearbySpeciesObservationsParams]
$creadPrec :: ReadPrec RecentNearbySpeciesObservationsParams
readPrec :: ReadPrec RecentNearbySpeciesObservationsParams
$creadListPrec :: ReadPrec [RecentNearbySpeciesObservationsParams]
readListPrec :: ReadPrec [RecentNearbySpeciesObservationsParams]
Read, RecentNearbySpeciesObservationsParams
-> RecentNearbySpeciesObservationsParams -> Bool
(RecentNearbySpeciesObservationsParams
-> RecentNearbySpeciesObservationsParams -> Bool)
-> (RecentNearbySpeciesObservationsParams
-> RecentNearbySpeciesObservationsParams -> Bool)
-> Eq RecentNearbySpeciesObservationsParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RecentNearbySpeciesObservationsParams
-> RecentNearbySpeciesObservationsParams -> Bool
== :: RecentNearbySpeciesObservationsParams
-> RecentNearbySpeciesObservationsParams -> Bool
$c/= :: RecentNearbySpeciesObservationsParams
-> RecentNearbySpeciesObservationsParams -> Bool
/= :: RecentNearbySpeciesObservationsParams
-> RecentNearbySpeciesObservationsParams -> Bool
Eq)
defaultRecentNearbySpeciesObservationsParams :: RecentNearbySpeciesObservationsParams
defaultRecentNearbySpeciesObservationsParams :: RecentNearbySpeciesObservationsParams
defaultRecentNearbySpeciesObservationsParams =
RecentNearbySpeciesObservationsParams
{ _recentNearbySpeciesObservationsParamsRadius :: Maybe Integer
_recentNearbySpeciesObservationsParamsRadius = Maybe Integer
forall a. Maybe a
Nothing
, _recentNearbySpeciesObservationsParamsBack :: Maybe Integer
_recentNearbySpeciesObservationsParamsBack = Maybe Integer
forall a. Maybe a
Nothing
, _recentNearbySpeciesObservationsParamsCategories :: Maybe TaxonomyCategories
_recentNearbySpeciesObservationsParamsCategories = Maybe TaxonomyCategories
forall a. Maybe a
Nothing
, _recentNearbySpeciesObservationsParamsHotspot :: Maybe Bool
_recentNearbySpeciesObservationsParamsHotspot = Maybe Bool
forall a. Maybe a
Nothing
, _recentNearbySpeciesObservationsParamsProvisional :: Maybe Bool
_recentNearbySpeciesObservationsParamsProvisional = Maybe Bool
forall a. Maybe a
Nothing
, _recentNearbySpeciesObservationsParamsMaxResults :: Maybe Integer
_recentNearbySpeciesObservationsParamsMaxResults = Maybe Integer
forall a. Maybe a
Nothing
, _recentNearbySpeciesObservationsParamsSortBy :: Maybe SortObservationsBy
_recentNearbySpeciesObservationsParamsSortBy = Maybe SortObservationsBy
forall a. Maybe a
Nothing
, _recentNearbySpeciesObservationsParamsLocale :: Maybe SPPLocale
_recentNearbySpeciesObservationsParamsLocale = Maybe SPPLocale
forall a. Maybe a
Nothing
}
instance Default RecentNearbySpeciesObservationsParams where
def :: RecentNearbySpeciesObservationsParams
def = RecentNearbySpeciesObservationsParams
defaultRecentNearbySpeciesObservationsParams
makeLenses ''RecentNearbySpeciesObservationsParams
makeFieldLabels ''RecentNearbySpeciesObservationsParams
recentNearestSpeciesObservations
:: Text
-> SpeciesCode
-> Double
-> Double
-> RecentNearestSpeciesObservationsParams
-> ClientM [Observation 'Simple]
recentNearestSpeciesObservations :: Text
-> SpeciesCode
-> Double
-> Double
-> RecentNearestSpeciesObservationsParams
-> ClientM [Observation 'Simple]
recentNearestSpeciesObservations Text
k SpeciesCode
sp Double
lat Double
lng RecentNearestSpeciesObservationsParams{Maybe Bool
Maybe Integer
Maybe SPPLocale
_recentNearestSpeciesObservationsParamsRadius :: Maybe Integer
_recentNearestSpeciesObservationsParamsBack :: Maybe Integer
_recentNearestSpeciesObservationsParamsHotspot :: Maybe Bool
_recentNearestSpeciesObservationsParamsProvisional :: Maybe Bool
_recentNearestSpeciesObservationsParamsMaxResults :: Maybe Integer
_recentNearestSpeciesObservationsParamsLocale :: Maybe SPPLocale
_recentNearestSpeciesObservationsParamsRadius :: RecentNearestSpeciesObservationsParams -> Maybe Integer
_recentNearestSpeciesObservationsParamsBack :: RecentNearestSpeciesObservationsParams -> Maybe Integer
_recentNearestSpeciesObservationsParamsHotspot :: RecentNearestSpeciesObservationsParams -> Maybe Bool
_recentNearestSpeciesObservationsParamsProvisional :: RecentNearestSpeciesObservationsParams -> Maybe Bool
_recentNearestSpeciesObservationsParamsMaxResults :: RecentNearestSpeciesObservationsParams -> Maybe Integer
_recentNearestSpeciesObservationsParamsLocale :: RecentNearestSpeciesObservationsParams -> Maybe SPPLocale
..} =
Text
-> SpeciesCode
-> Double
-> Double
-> Maybe Integer
-> Maybe Integer
-> Maybe Bool
-> Maybe Bool
-> Maybe Integer
-> Maybe SPPLocale
-> ClientM [Observation 'Simple]
recentNearestSpeciesObservations_ Text
k SpeciesCode
sp Double
lat Double
lng
Maybe Integer
_recentNearestSpeciesObservationsParamsRadius
Maybe Integer
_recentNearestSpeciesObservationsParamsBack
Maybe Bool
_recentNearestSpeciesObservationsParamsHotspot
Maybe Bool
_recentNearestSpeciesObservationsParamsProvisional
Maybe Integer
_recentNearestSpeciesObservationsParamsMaxResults
Maybe SPPLocale
_recentNearestSpeciesObservationsParamsLocale
data RecentNearestSpeciesObservationsParams =
RecentNearestSpeciesObservationsParams
{
RecentNearestSpeciesObservationsParams -> Maybe Integer
_recentNearestSpeciesObservationsParamsRadius :: Maybe Integer
, RecentNearestSpeciesObservationsParams -> Maybe Integer
_recentNearestSpeciesObservationsParamsBack :: Maybe Integer
, RecentNearestSpeciesObservationsParams -> Maybe Bool
_recentNearestSpeciesObservationsParamsHotspot :: Maybe Bool
, RecentNearestSpeciesObservationsParams -> Maybe Bool
_recentNearestSpeciesObservationsParamsProvisional :: Maybe Bool
, RecentNearestSpeciesObservationsParams -> Maybe Integer
_recentNearestSpeciesObservationsParamsMaxResults :: Maybe Integer
, RecentNearestSpeciesObservationsParams -> Maybe SPPLocale
_recentNearestSpeciesObservationsParamsLocale :: Maybe SPPLocale
}
deriving (Int -> RecentNearestSpeciesObservationsParams -> ShowS
[RecentNearestSpeciesObservationsParams] -> ShowS
RecentNearestSpeciesObservationsParams -> String
(Int -> RecentNearestSpeciesObservationsParams -> ShowS)
-> (RecentNearestSpeciesObservationsParams -> String)
-> ([RecentNearestSpeciesObservationsParams] -> ShowS)
-> Show RecentNearestSpeciesObservationsParams
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RecentNearestSpeciesObservationsParams -> ShowS
showsPrec :: Int -> RecentNearestSpeciesObservationsParams -> ShowS
$cshow :: RecentNearestSpeciesObservationsParams -> String
show :: RecentNearestSpeciesObservationsParams -> String
$cshowList :: [RecentNearestSpeciesObservationsParams] -> ShowS
showList :: [RecentNearestSpeciesObservationsParams] -> ShowS
Show, ReadPrec [RecentNearestSpeciesObservationsParams]
ReadPrec RecentNearestSpeciesObservationsParams
Int -> ReadS RecentNearestSpeciesObservationsParams
ReadS [RecentNearestSpeciesObservationsParams]
(Int -> ReadS RecentNearestSpeciesObservationsParams)
-> ReadS [RecentNearestSpeciesObservationsParams]
-> ReadPrec RecentNearestSpeciesObservationsParams
-> ReadPrec [RecentNearestSpeciesObservationsParams]
-> Read RecentNearestSpeciesObservationsParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS RecentNearestSpeciesObservationsParams
readsPrec :: Int -> ReadS RecentNearestSpeciesObservationsParams
$creadList :: ReadS [RecentNearestSpeciesObservationsParams]
readList :: ReadS [RecentNearestSpeciesObservationsParams]
$creadPrec :: ReadPrec RecentNearestSpeciesObservationsParams
readPrec :: ReadPrec RecentNearestSpeciesObservationsParams
$creadListPrec :: ReadPrec [RecentNearestSpeciesObservationsParams]
readListPrec :: ReadPrec [RecentNearestSpeciesObservationsParams]
Read, RecentNearestSpeciesObservationsParams
-> RecentNearestSpeciesObservationsParams -> Bool
(RecentNearestSpeciesObservationsParams
-> RecentNearestSpeciesObservationsParams -> Bool)
-> (RecentNearestSpeciesObservationsParams
-> RecentNearestSpeciesObservationsParams -> Bool)
-> Eq RecentNearestSpeciesObservationsParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RecentNearestSpeciesObservationsParams
-> RecentNearestSpeciesObservationsParams -> Bool
== :: RecentNearestSpeciesObservationsParams
-> RecentNearestSpeciesObservationsParams -> Bool
$c/= :: RecentNearestSpeciesObservationsParams
-> RecentNearestSpeciesObservationsParams -> Bool
/= :: RecentNearestSpeciesObservationsParams
-> RecentNearestSpeciesObservationsParams -> Bool
Eq)
defaultRecentNearestSpeciesObservationsParams :: RecentNearestSpeciesObservationsParams
defaultRecentNearestSpeciesObservationsParams :: RecentNearestSpeciesObservationsParams
defaultRecentNearestSpeciesObservationsParams =
RecentNearestSpeciesObservationsParams
{ _recentNearestSpeciesObservationsParamsRadius :: Maybe Integer
_recentNearestSpeciesObservationsParamsRadius = Maybe Integer
forall a. Maybe a
Nothing
, _recentNearestSpeciesObservationsParamsBack :: Maybe Integer
_recentNearestSpeciesObservationsParamsBack = Maybe Integer
forall a. Maybe a
Nothing
, _recentNearestSpeciesObservationsParamsHotspot :: Maybe Bool
_recentNearestSpeciesObservationsParamsHotspot = Maybe Bool
forall a. Maybe a
Nothing
, _recentNearestSpeciesObservationsParamsProvisional :: Maybe Bool
_recentNearestSpeciesObservationsParamsProvisional = Maybe Bool
forall a. Maybe a
Nothing
, _recentNearestSpeciesObservationsParamsMaxResults :: Maybe Integer
_recentNearestSpeciesObservationsParamsMaxResults = Maybe Integer
forall a. Maybe a
Nothing
, _recentNearestSpeciesObservationsParamsLocale :: Maybe SPPLocale
_recentNearestSpeciesObservationsParamsLocale = Maybe SPPLocale
forall a. Maybe a
Nothing
}
instance Default RecentNearestSpeciesObservationsParams where
def :: RecentNearestSpeciesObservationsParams
def = RecentNearestSpeciesObservationsParams
defaultRecentNearestSpeciesObservationsParams
makeLenses ''RecentNearestSpeciesObservationsParams
makeFieldLabels ''RecentNearestSpeciesObservationsParams
recentNearbyNotableObservations
:: Text
-> Double
-> Double
-> RecentNearbyNotableObservationsParams
-> ClientM [SomeObservation]
recentNearbyNotableObservations :: Text
-> Double
-> Double
-> RecentNearbyNotableObservationsParams
-> ClientM [SomeObservation]
recentNearbyNotableObservations Text
k Double
lat Double
lng RecentNearbyNotableObservationsParams{Maybe Bool
Maybe Integer
Maybe DetailLevel
Maybe SPPLocale
_recentNearbyNotableObservationsParamsRadius :: Maybe Integer
_recentNearbyNotableObservationsParamsDetail :: Maybe DetailLevel
_recentNearbyNotableObservationsParamsBack :: Maybe Integer
_recentNearbyNotableObservationsParamsHotspot :: Maybe Bool
_recentNearbyNotableObservationsParamsMaxResults :: Maybe Integer
_recentNearbyNotableObservationsParamsLocale :: Maybe SPPLocale
_recentNearbyNotableObservationsParamsRadius :: RecentNearbyNotableObservationsParams -> Maybe Integer
_recentNearbyNotableObservationsParamsDetail :: RecentNearbyNotableObservationsParams -> Maybe DetailLevel
_recentNearbyNotableObservationsParamsBack :: RecentNearbyNotableObservationsParams -> Maybe Integer
_recentNearbyNotableObservationsParamsHotspot :: RecentNearbyNotableObservationsParams -> Maybe Bool
_recentNearbyNotableObservationsParamsMaxResults :: RecentNearbyNotableObservationsParams -> Maybe Integer
_recentNearbyNotableObservationsParamsLocale :: RecentNearbyNotableObservationsParams -> Maybe SPPLocale
..} =
Text
-> Double
-> Double
-> Maybe Integer
-> Maybe DetailLevel
-> Maybe Integer
-> Maybe Bool
-> Maybe Integer
-> Maybe SPPLocale
-> ClientM [SomeObservation]
recentNearbyNotableObservations_ Text
k Double
lat Double
lng
Maybe Integer
_recentNearbyNotableObservationsParamsRadius
Maybe DetailLevel
_recentNearbyNotableObservationsParamsDetail
Maybe Integer
_recentNearbyNotableObservationsParamsBack
Maybe Bool
_recentNearbyNotableObservationsParamsHotspot
Maybe Integer
_recentNearbyNotableObservationsParamsMaxResults
Maybe SPPLocale
_recentNearbyNotableObservationsParamsLocale
data RecentNearbyNotableObservationsParams =
RecentNearbyNotableObservationsParams
{
RecentNearbyNotableObservationsParams -> Maybe Integer
_recentNearbyNotableObservationsParamsRadius :: Maybe Integer
, RecentNearbyNotableObservationsParams -> Maybe DetailLevel
_recentNearbyNotableObservationsParamsDetail :: Maybe DetailLevel
, RecentNearbyNotableObservationsParams -> Maybe Integer
_recentNearbyNotableObservationsParamsBack :: Maybe Integer
, RecentNearbyNotableObservationsParams -> Maybe Bool
_recentNearbyNotableObservationsParamsHotspot :: Maybe Bool
, RecentNearbyNotableObservationsParams -> Maybe Integer
_recentNearbyNotableObservationsParamsMaxResults :: Maybe Integer
, RecentNearbyNotableObservationsParams -> Maybe SPPLocale
_recentNearbyNotableObservationsParamsLocale :: Maybe SPPLocale
}
deriving (Int -> RecentNearbyNotableObservationsParams -> ShowS
[RecentNearbyNotableObservationsParams] -> ShowS
RecentNearbyNotableObservationsParams -> String
(Int -> RecentNearbyNotableObservationsParams -> ShowS)
-> (RecentNearbyNotableObservationsParams -> String)
-> ([RecentNearbyNotableObservationsParams] -> ShowS)
-> Show RecentNearbyNotableObservationsParams
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RecentNearbyNotableObservationsParams -> ShowS
showsPrec :: Int -> RecentNearbyNotableObservationsParams -> ShowS
$cshow :: RecentNearbyNotableObservationsParams -> String
show :: RecentNearbyNotableObservationsParams -> String
$cshowList :: [RecentNearbyNotableObservationsParams] -> ShowS
showList :: [RecentNearbyNotableObservationsParams] -> ShowS
Show, ReadPrec [RecentNearbyNotableObservationsParams]
ReadPrec RecentNearbyNotableObservationsParams
Int -> ReadS RecentNearbyNotableObservationsParams
ReadS [RecentNearbyNotableObservationsParams]
(Int -> ReadS RecentNearbyNotableObservationsParams)
-> ReadS [RecentNearbyNotableObservationsParams]
-> ReadPrec RecentNearbyNotableObservationsParams
-> ReadPrec [RecentNearbyNotableObservationsParams]
-> Read RecentNearbyNotableObservationsParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS RecentNearbyNotableObservationsParams
readsPrec :: Int -> ReadS RecentNearbyNotableObservationsParams
$creadList :: ReadS [RecentNearbyNotableObservationsParams]
readList :: ReadS [RecentNearbyNotableObservationsParams]
$creadPrec :: ReadPrec RecentNearbyNotableObservationsParams
readPrec :: ReadPrec RecentNearbyNotableObservationsParams
$creadListPrec :: ReadPrec [RecentNearbyNotableObservationsParams]
readListPrec :: ReadPrec [RecentNearbyNotableObservationsParams]
Read, RecentNearbyNotableObservationsParams
-> RecentNearbyNotableObservationsParams -> Bool
(RecentNearbyNotableObservationsParams
-> RecentNearbyNotableObservationsParams -> Bool)
-> (RecentNearbyNotableObservationsParams
-> RecentNearbyNotableObservationsParams -> Bool)
-> Eq RecentNearbyNotableObservationsParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RecentNearbyNotableObservationsParams
-> RecentNearbyNotableObservationsParams -> Bool
== :: RecentNearbyNotableObservationsParams
-> RecentNearbyNotableObservationsParams -> Bool
$c/= :: RecentNearbyNotableObservationsParams
-> RecentNearbyNotableObservationsParams -> Bool
/= :: RecentNearbyNotableObservationsParams
-> RecentNearbyNotableObservationsParams -> Bool
Eq)
defaultRecentNearbyNotableObservationsParams :: RecentNearbyNotableObservationsParams
defaultRecentNearbyNotableObservationsParams :: RecentNearbyNotableObservationsParams
defaultRecentNearbyNotableObservationsParams =
RecentNearbyNotableObservationsParams
{ _recentNearbyNotableObservationsParamsRadius :: Maybe Integer
_recentNearbyNotableObservationsParamsRadius = Maybe Integer
forall a. Maybe a
Nothing
, _recentNearbyNotableObservationsParamsDetail :: Maybe DetailLevel
_recentNearbyNotableObservationsParamsDetail = Maybe DetailLevel
forall a. Maybe a
Nothing
, _recentNearbyNotableObservationsParamsBack :: Maybe Integer
_recentNearbyNotableObservationsParamsBack = Maybe Integer
forall a. Maybe a
Nothing
, _recentNearbyNotableObservationsParamsHotspot :: Maybe Bool
_recentNearbyNotableObservationsParamsHotspot = Maybe Bool
forall a. Maybe a
Nothing
, _recentNearbyNotableObservationsParamsMaxResults :: Maybe Integer
_recentNearbyNotableObservationsParamsMaxResults = Maybe Integer
forall a. Maybe a
Nothing
, _recentNearbyNotableObservationsParamsLocale :: Maybe SPPLocale
_recentNearbyNotableObservationsParamsLocale = Maybe SPPLocale
forall a. Maybe a
Nothing
}
instance Default RecentNearbyNotableObservationsParams where
def :: RecentNearbyNotableObservationsParams
def = RecentNearbyNotableObservationsParams
defaultRecentNearbyNotableObservationsParams
makeLenses ''RecentNearbyNotableObservationsParams
makeFieldLabels ''RecentNearbyNotableObservationsParams
historicalObservations
:: Text
-> RegionCode
-> EBirdDate
-> HistoricalObservationsParams
-> ClientM [SomeObservation]
historicalObservations :: Text
-> RegionCode
-> EBirdDate
-> HistoricalObservationsParams
-> ClientM [SomeObservation]
historicalObservations Text
k RegionCode
r EBirdDate
date HistoricalObservationsParams{Maybe Bool
Maybe Integer
Maybe DetailLevel
Maybe SelectObservation
Maybe RegionCode
Maybe SPPLocale
Maybe TaxonomyCategories
_historicalObservationsParamsCategories :: Maybe TaxonomyCategories
_historicalObservationsParamsDetail :: Maybe DetailLevel
_historicalObservationsParamsHotspot :: Maybe Bool
_historicalObservationsParamsProvisional :: Maybe Bool
_historicalObservationsParamsMaxResults :: Maybe Integer
_historicalObservationsParamsSelect :: Maybe SelectObservation
_historicalObservationsParamsExtraRegions :: Maybe RegionCode
_historicalObservationsParamsLocale :: Maybe SPPLocale
_historicalObservationsParamsCategories :: HistoricalObservationsParams -> Maybe TaxonomyCategories
_historicalObservationsParamsDetail :: HistoricalObservationsParams -> Maybe DetailLevel
_historicalObservationsParamsHotspot :: HistoricalObservationsParams -> Maybe Bool
_historicalObservationsParamsProvisional :: HistoricalObservationsParams -> Maybe Bool
_historicalObservationsParamsMaxResults :: HistoricalObservationsParams -> Maybe Integer
_historicalObservationsParamsSelect :: HistoricalObservationsParams -> Maybe SelectObservation
_historicalObservationsParamsExtraRegions :: HistoricalObservationsParams -> Maybe RegionCode
_historicalObservationsParamsLocale :: HistoricalObservationsParams -> Maybe SPPLocale
..} =
Text
-> RegionCode
-> Integer
-> Integer
-> Integer
-> Maybe TaxonomyCategories
-> Maybe DetailLevel
-> Maybe Bool
-> Maybe Bool
-> Maybe Integer
-> Maybe SelectObservation
-> Maybe RegionCode
-> Maybe SPPLocale
-> ClientM [SomeObservation]
historicalObservations_ Text
k RegionCode
r Integer
y Integer
m Integer
d
Maybe TaxonomyCategories
_historicalObservationsParamsCategories
Maybe DetailLevel
_historicalObservationsParamsDetail
Maybe Bool
_historicalObservationsParamsHotspot
Maybe Bool
_historicalObservationsParamsProvisional
Maybe Integer
_historicalObservationsParamsMaxResults
Maybe SelectObservation
_historicalObservationsParamsSelect
Maybe RegionCode
_historicalObservationsParamsExtraRegions
Maybe SPPLocale
_historicalObservationsParamsLocale
where
(Integer
y,Integer
m,Integer
d) = EBirdDate -> (Integer, Integer, Integer)
eBirdDateToGregorian EBirdDate
date
data HistoricalObservationsParams =
HistoricalObservationsParams
{
HistoricalObservationsParams -> Maybe TaxonomyCategories
_historicalObservationsParamsCategories :: Maybe TaxonomyCategories
, HistoricalObservationsParams -> Maybe DetailLevel
_historicalObservationsParamsDetail :: Maybe DetailLevel
, HistoricalObservationsParams -> Maybe Bool
_historicalObservationsParamsHotspot :: Maybe Bool
, HistoricalObservationsParams -> Maybe Bool
_historicalObservationsParamsProvisional :: Maybe Bool
, HistoricalObservationsParams -> Maybe Integer
_historicalObservationsParamsMaxResults :: Maybe Integer
, HistoricalObservationsParams -> Maybe SelectObservation
_historicalObservationsParamsSelect :: Maybe SelectObservation
, :: Maybe RegionCode
, HistoricalObservationsParams -> Maybe SPPLocale
_historicalObservationsParamsLocale :: Maybe SPPLocale
}
deriving (Int -> HistoricalObservationsParams -> ShowS
[HistoricalObservationsParams] -> ShowS
HistoricalObservationsParams -> String
(Int -> HistoricalObservationsParams -> ShowS)
-> (HistoricalObservationsParams -> String)
-> ([HistoricalObservationsParams] -> ShowS)
-> Show HistoricalObservationsParams
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> HistoricalObservationsParams -> ShowS
showsPrec :: Int -> HistoricalObservationsParams -> ShowS
$cshow :: HistoricalObservationsParams -> String
show :: HistoricalObservationsParams -> String
$cshowList :: [HistoricalObservationsParams] -> ShowS
showList :: [HistoricalObservationsParams] -> ShowS
Show, ReadPrec [HistoricalObservationsParams]
ReadPrec HistoricalObservationsParams
Int -> ReadS HistoricalObservationsParams
ReadS [HistoricalObservationsParams]
(Int -> ReadS HistoricalObservationsParams)
-> ReadS [HistoricalObservationsParams]
-> ReadPrec HistoricalObservationsParams
-> ReadPrec [HistoricalObservationsParams]
-> Read HistoricalObservationsParams
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS HistoricalObservationsParams
readsPrec :: Int -> ReadS HistoricalObservationsParams
$creadList :: ReadS [HistoricalObservationsParams]
readList :: ReadS [HistoricalObservationsParams]
$creadPrec :: ReadPrec HistoricalObservationsParams
readPrec :: ReadPrec HistoricalObservationsParams
$creadListPrec :: ReadPrec [HistoricalObservationsParams]
readListPrec :: ReadPrec [HistoricalObservationsParams]
Read, HistoricalObservationsParams
-> HistoricalObservationsParams -> Bool
(HistoricalObservationsParams
-> HistoricalObservationsParams -> Bool)
-> (HistoricalObservationsParams
-> HistoricalObservationsParams -> Bool)
-> Eq HistoricalObservationsParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HistoricalObservationsParams
-> HistoricalObservationsParams -> Bool
== :: HistoricalObservationsParams
-> HistoricalObservationsParams -> Bool
$c/= :: HistoricalObservationsParams
-> HistoricalObservationsParams -> Bool
/= :: HistoricalObservationsParams
-> HistoricalObservationsParams -> Bool
Eq)
defaultHistoricalObservationsParams :: HistoricalObservationsParams
defaultHistoricalObservationsParams :: HistoricalObservationsParams
defaultHistoricalObservationsParams =
HistoricalObservationsParams
{ _historicalObservationsParamsCategories :: Maybe TaxonomyCategories
_historicalObservationsParamsCategories = Maybe TaxonomyCategories
forall a. Maybe a
Nothing
, _historicalObservationsParamsDetail :: Maybe DetailLevel
_historicalObservationsParamsDetail = Maybe DetailLevel
forall a. Maybe a
Nothing
, _historicalObservationsParamsHotspot :: Maybe Bool
_historicalObservationsParamsHotspot = Maybe Bool
forall a. Maybe a
Nothing
, _historicalObservationsParamsProvisional :: Maybe Bool
_historicalObservationsParamsProvisional = Maybe Bool
forall a. Maybe a
Nothing
, _historicalObservationsParamsMaxResults :: Maybe Integer
_historicalObservationsParamsMaxResults = Maybe Integer
forall a. Maybe a
Nothing
, _historicalObservationsParamsSelect :: Maybe SelectObservation
_historicalObservationsParamsSelect = Maybe SelectObservation
forall a. Maybe a
Nothing
, _historicalObservationsParamsExtraRegions :: Maybe RegionCode
_historicalObservationsParamsExtraRegions = Maybe RegionCode
forall a. Maybe a
Nothing
, _historicalObservationsParamsLocale :: Maybe SPPLocale
_historicalObservationsParamsLocale = Maybe SPPLocale
forall a. Maybe a
Nothing
}
instance Default HistoricalObservationsParams where
def :: HistoricalObservationsParams
def = HistoricalObservationsParams
defaultHistoricalObservationsParams
makeFieldLabels ''HistoricalObservationsParams