gogol-abusiveexperiencereport-0.4.0: Google Abusive Experience Report SDK.

Copyright(c) 2015-2016 Brendan Hay
LicenseMozilla Public License, v. 2.0.
MaintainerBrendan Hay <brendan.g.hay@gmail.com>
Stabilityauto-generated
Portabilitynon-portable (GHC extensions)
Safe HaskellNone
LanguageHaskell2010

Network.Google.AbusiveExperienceReport

Contents

Description

Views Abusive Experience Report data, and gets a list of sites that have a significant number of abusive experiences.

See: Abusive Experience Report API Reference

Synopsis

Service Configuration

abusiveExperienceReportService :: ServiceConfig Source #

Default request referring to version v1 of the Abusive Experience Report API. This contains the host and root path used as a starting point for constructing service requests.

OAuth Scopes

xapiZooScope :: Proxy '["https://www.googleapis.com/auth/xapi.zoo"] Source #

Test scope for access to the Zoo service

API Declaration

type AbusiveExperienceReportAPI = ViolatingSitesListResource :<|> SitesGetResource Source #

Represents the entirety of the methods and resources available for the Abusive Experience Report API service.

Resources

abusiveexperiencereport.sites.get

abusiveexperiencereport.violatingSites.list

Types

SiteSummaryResponse

data SiteSummaryResponse Source #

Response message for GetSiteSummary.

See: siteSummaryResponse smart constructor.

Instances
Eq SiteSummaryResponse Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Product

Data SiteSummaryResponse Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Product

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> SiteSummaryResponse -> c SiteSummaryResponse #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c SiteSummaryResponse #

toConstr :: SiteSummaryResponse -> Constr #

dataTypeOf :: SiteSummaryResponse -> DataType #

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c SiteSummaryResponse) #

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c SiteSummaryResponse) #

gmapT :: (forall b. Data b => b -> b) -> SiteSummaryResponse -> SiteSummaryResponse #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> SiteSummaryResponse -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> SiteSummaryResponse -> r #

gmapQ :: (forall d. Data d => d -> u) -> SiteSummaryResponse -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> SiteSummaryResponse -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> SiteSummaryResponse -> m SiteSummaryResponse #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> SiteSummaryResponse -> m SiteSummaryResponse #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> SiteSummaryResponse -> m SiteSummaryResponse #

Show SiteSummaryResponse Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Product

Generic SiteSummaryResponse Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Product

Associated Types

type Rep SiteSummaryResponse :: Type -> Type #

ToJSON SiteSummaryResponse Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Product

FromJSON SiteSummaryResponse Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Product

type Rep SiteSummaryResponse Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Product

type Rep SiteSummaryResponse = D1 (MetaData "SiteSummaryResponse" "Network.Google.AbusiveExperienceReport.Types.Product" "gogol-abusiveexperiencereport-0.4.0-4Q6k6TGGEru237mhapHfv7" False) (C1 (MetaCons "SiteSummaryResponse'" PrefixI True) ((S1 (MetaSel (Just "_ssrAbusiveStatus") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Maybe SiteSummaryResponseAbusiveStatus)) :*: (S1 (MetaSel (Just "_ssrEnforcementTime") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Maybe DateTime')) :*: S1 (MetaSel (Just "_ssrLastChangeTime") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Maybe DateTime')))) :*: ((S1 (MetaSel (Just "_ssrFilterStatus") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Maybe SiteSummaryResponseFilterStatus)) :*: S1 (MetaSel (Just "_ssrUnderReview") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Maybe Bool))) :*: (S1 (MetaSel (Just "_ssrReportURL") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Maybe Text)) :*: S1 (MetaSel (Just "_ssrReviewedSite") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Maybe Text))))))

siteSummaryResponse :: SiteSummaryResponse Source #

Creates a value of SiteSummaryResponse with the minimum fields required to make a request.

Use one of the following lenses to modify other fields as desired:

ssrAbusiveStatus :: Lens' SiteSummaryResponse (Maybe SiteSummaryResponseAbusiveStatus) Source #

The status of the site reviewed for the abusive experiences.

ssrEnforcementTime :: Lens' SiteSummaryResponse (Maybe UTCTime) Source #

The date on which enforcement begins.

ssrLastChangeTime :: Lens' SiteSummaryResponse (Maybe UTCTime) Source #

The last time that the site changed status.

ssrFilterStatus :: Lens' SiteSummaryResponse (Maybe SiteSummaryResponseFilterStatus) Source #

The abusive experience enforcement status of the site.

ssrUnderReview :: Lens' SiteSummaryResponse (Maybe Bool) Source #

Whether the site is currently under review.

ssrReportURL :: Lens' SiteSummaryResponse (Maybe Text) Source #

A link that leads to a full abusive experience report.

ssrReviewedSite :: Lens' SiteSummaryResponse (Maybe Text) Source #

The name of the site reviewed.

SiteSummaryResponseAbusiveStatus

data SiteSummaryResponseAbusiveStatus Source #

The status of the site reviewed for the abusive experiences.

Constructors

Unknown

UNKNOWN Not reviewed.

Passing

PASSING Passing.

Failing

FAILING Failing.

Instances
Enum SiteSummaryResponseAbusiveStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Eq SiteSummaryResponseAbusiveStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Data SiteSummaryResponseAbusiveStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> SiteSummaryResponseAbusiveStatus -> c SiteSummaryResponseAbusiveStatus #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c SiteSummaryResponseAbusiveStatus #

toConstr :: SiteSummaryResponseAbusiveStatus -> Constr #

dataTypeOf :: SiteSummaryResponseAbusiveStatus -> DataType #

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c SiteSummaryResponseAbusiveStatus) #

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c SiteSummaryResponseAbusiveStatus) #

gmapT :: (forall b. Data b => b -> b) -> SiteSummaryResponseAbusiveStatus -> SiteSummaryResponseAbusiveStatus #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> SiteSummaryResponseAbusiveStatus -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> SiteSummaryResponseAbusiveStatus -> r #

gmapQ :: (forall d. Data d => d -> u) -> SiteSummaryResponseAbusiveStatus -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> SiteSummaryResponseAbusiveStatus -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> SiteSummaryResponseAbusiveStatus -> m SiteSummaryResponseAbusiveStatus #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> SiteSummaryResponseAbusiveStatus -> m SiteSummaryResponseAbusiveStatus #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> SiteSummaryResponseAbusiveStatus -> m SiteSummaryResponseAbusiveStatus #

Ord SiteSummaryResponseAbusiveStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Read SiteSummaryResponseAbusiveStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Show SiteSummaryResponseAbusiveStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Generic SiteSummaryResponseAbusiveStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Associated Types

type Rep SiteSummaryResponseAbusiveStatus :: Type -> Type #

Hashable SiteSummaryResponseAbusiveStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

ToJSON SiteSummaryResponseAbusiveStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

FromJSON SiteSummaryResponseAbusiveStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

FromHttpApiData SiteSummaryResponseAbusiveStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

ToHttpApiData SiteSummaryResponseAbusiveStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

type Rep SiteSummaryResponseAbusiveStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

type Rep SiteSummaryResponseAbusiveStatus = D1 (MetaData "SiteSummaryResponseAbusiveStatus" "Network.Google.AbusiveExperienceReport.Types.Sum" "gogol-abusiveexperiencereport-0.4.0-4Q6k6TGGEru237mhapHfv7" False) (C1 (MetaCons "Unknown" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "Passing" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "Failing" PrefixI False) (U1 :: Type -> Type)))

ViolatingSitesResponse

data ViolatingSitesResponse Source #

Response message for ListViolatingSites.

See: violatingSitesResponse smart constructor.

Instances
Eq ViolatingSitesResponse Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Product

Data ViolatingSitesResponse Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Product

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> ViolatingSitesResponse -> c ViolatingSitesResponse #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c ViolatingSitesResponse #

toConstr :: ViolatingSitesResponse -> Constr #

dataTypeOf :: ViolatingSitesResponse -> DataType #

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c ViolatingSitesResponse) #

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c ViolatingSitesResponse) #

gmapT :: (forall b. Data b => b -> b) -> ViolatingSitesResponse -> ViolatingSitesResponse #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> ViolatingSitesResponse -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> ViolatingSitesResponse -> r #

gmapQ :: (forall d. Data d => d -> u) -> ViolatingSitesResponse -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> ViolatingSitesResponse -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> ViolatingSitesResponse -> m ViolatingSitesResponse #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> ViolatingSitesResponse -> m ViolatingSitesResponse #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> ViolatingSitesResponse -> m ViolatingSitesResponse #

Show ViolatingSitesResponse Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Product

Generic ViolatingSitesResponse Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Product

Associated Types

type Rep ViolatingSitesResponse :: Type -> Type #

ToJSON ViolatingSitesResponse Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Product

FromJSON ViolatingSitesResponse Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Product

type Rep ViolatingSitesResponse Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Product

type Rep ViolatingSitesResponse = D1 (MetaData "ViolatingSitesResponse" "Network.Google.AbusiveExperienceReport.Types.Product" "gogol-abusiveexperiencereport-0.4.0-4Q6k6TGGEru237mhapHfv7" True) (C1 (MetaCons "ViolatingSitesResponse'" PrefixI True) (S1 (MetaSel (Just "_vsrViolatingSites") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe [SiteSummaryResponse]))))

violatingSitesResponse :: ViolatingSitesResponse Source #

Creates a value of ViolatingSitesResponse with the minimum fields required to make a request.

Use one of the following lenses to modify other fields as desired:

vsrViolatingSites :: Lens' ViolatingSitesResponse [SiteSummaryResponse] Source #

A list of summaries of violating sites.

Xgafv

data Xgafv Source #

V1 error format.

Constructors

X1

1 v1 error format

X2

2 v2 error format

Instances
Enum Xgafv Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Eq Xgafv Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Methods

(==) :: Xgafv -> Xgafv -> Bool #

(/=) :: Xgafv -> Xgafv -> Bool #

Data Xgafv Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Xgafv -> c Xgafv #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Xgafv #

toConstr :: Xgafv -> Constr #

dataTypeOf :: Xgafv -> DataType #

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Xgafv) #

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Xgafv) #

gmapT :: (forall b. Data b => b -> b) -> Xgafv -> Xgafv #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Xgafv -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Xgafv -> r #

gmapQ :: (forall d. Data d => d -> u) -> Xgafv -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> Xgafv -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Xgafv -> m Xgafv #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Xgafv -> m Xgafv #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Xgafv -> m Xgafv #

Ord Xgafv Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Methods

compare :: Xgafv -> Xgafv -> Ordering #

(<) :: Xgafv -> Xgafv -> Bool #

(<=) :: Xgafv -> Xgafv -> Bool #

(>) :: Xgafv -> Xgafv -> Bool #

(>=) :: Xgafv -> Xgafv -> Bool #

max :: Xgafv -> Xgafv -> Xgafv #

min :: Xgafv -> Xgafv -> Xgafv #

Read Xgafv Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Show Xgafv Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Methods

showsPrec :: Int -> Xgafv -> ShowS #

show :: Xgafv -> String #

showList :: [Xgafv] -> ShowS #

Generic Xgafv Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Associated Types

type Rep Xgafv :: Type -> Type #

Methods

from :: Xgafv -> Rep Xgafv x #

to :: Rep Xgafv x -> Xgafv #

Hashable Xgafv Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Methods

hashWithSalt :: Int -> Xgafv -> Int #

hash :: Xgafv -> Int #

ToJSON Xgafv Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

FromJSON Xgafv Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

FromHttpApiData Xgafv Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

ToHttpApiData Xgafv Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

type Rep Xgafv Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

type Rep Xgafv = D1 (MetaData "Xgafv" "Network.Google.AbusiveExperienceReport.Types.Sum" "gogol-abusiveexperiencereport-0.4.0-4Q6k6TGGEru237mhapHfv7" False) (C1 (MetaCons "X1" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "X2" PrefixI False) (U1 :: Type -> Type))

SiteSummaryResponseFilterStatus

data SiteSummaryResponseFilterStatus Source #

The abusive experience enforcement status of the site.

Constructors

SSRFSUnknown

UNKNOWN N/A.

SSRFSON

ON Ad filtering is on.

SSRFSOff

OFF Ad filtering is off.

SSRFSPaused

PAUSED Ad filtering is paused.

SSRFSPending

PENDING Ad filtering is pending.

Instances
Enum SiteSummaryResponseFilterStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Eq SiteSummaryResponseFilterStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Data SiteSummaryResponseFilterStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> SiteSummaryResponseFilterStatus -> c SiteSummaryResponseFilterStatus #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c SiteSummaryResponseFilterStatus #

toConstr :: SiteSummaryResponseFilterStatus -> Constr #

dataTypeOf :: SiteSummaryResponseFilterStatus -> DataType #

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c SiteSummaryResponseFilterStatus) #

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c SiteSummaryResponseFilterStatus) #

gmapT :: (forall b. Data b => b -> b) -> SiteSummaryResponseFilterStatus -> SiteSummaryResponseFilterStatus #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> SiteSummaryResponseFilterStatus -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> SiteSummaryResponseFilterStatus -> r #

gmapQ :: (forall d. Data d => d -> u) -> SiteSummaryResponseFilterStatus -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> SiteSummaryResponseFilterStatus -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> SiteSummaryResponseFilterStatus -> m SiteSummaryResponseFilterStatus #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> SiteSummaryResponseFilterStatus -> m SiteSummaryResponseFilterStatus #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> SiteSummaryResponseFilterStatus -> m SiteSummaryResponseFilterStatus #

Ord SiteSummaryResponseFilterStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Read SiteSummaryResponseFilterStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Show SiteSummaryResponseFilterStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Generic SiteSummaryResponseFilterStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

Associated Types

type Rep SiteSummaryResponseFilterStatus :: Type -> Type #

Hashable SiteSummaryResponseFilterStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

ToJSON SiteSummaryResponseFilterStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

FromJSON SiteSummaryResponseFilterStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

FromHttpApiData SiteSummaryResponseFilterStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

ToHttpApiData SiteSummaryResponseFilterStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

type Rep SiteSummaryResponseFilterStatus Source # 
Instance details

Defined in Network.Google.AbusiveExperienceReport.Types.Sum

type Rep SiteSummaryResponseFilterStatus = D1 (MetaData "SiteSummaryResponseFilterStatus" "Network.Google.AbusiveExperienceReport.Types.Sum" "gogol-abusiveexperiencereport-0.4.0-4Q6k6TGGEru237mhapHfv7" False) ((C1 (MetaCons "SSRFSUnknown" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "SSRFSON" PrefixI False) (U1 :: Type -> Type)) :+: (C1 (MetaCons "SSRFSOff" PrefixI False) (U1 :: Type -> Type) :+: (C1 (MetaCons "SSRFSPaused" PrefixI False) (U1 :: Type -> Type) :+: C1 (MetaCons "SSRFSPending" PrefixI False) (U1 :: Type -> Type))))