{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.PlusDomains.Types.Product where
import Network.Google.PlusDomains.Types.Sum
import Network.Google.Prelude
data Audience = Audience'
{ _aEtag :: !(Maybe Text)
, _aKind :: !Text
, _aVisibility :: !(Maybe Text)
, _aItem :: !(Maybe PlusDomainsACLentryResource)
, _aMemberCount :: !(Maybe (Textual Word32))
} deriving (Eq,Show,Data,Typeable,Generic)
audience
:: Audience
audience =
Audience'
{ _aEtag = Nothing
, _aKind = "plus#audience"
, _aVisibility = Nothing
, _aItem = Nothing
, _aMemberCount = Nothing
}
aEtag :: Lens' Audience (Maybe Text)
aEtag = lens _aEtag (\ s a -> s{_aEtag = a})
aKind :: Lens' Audience Text
aKind = lens _aKind (\ s a -> s{_aKind = a})
aVisibility :: Lens' Audience (Maybe Text)
aVisibility
= lens _aVisibility (\ s a -> s{_aVisibility = a})
aItem :: Lens' Audience (Maybe PlusDomainsACLentryResource)
aItem = lens _aItem (\ s a -> s{_aItem = a})
aMemberCount :: Lens' Audience (Maybe Word32)
aMemberCount
= lens _aMemberCount (\ s a -> s{_aMemberCount = a})
. mapping _Coerce
instance FromJSON Audience where
parseJSON
= withObject "Audience"
(\ o ->
Audience' <$>
(o .:? "etag") <*> (o .:? "kind" .!= "plus#audience")
<*> (o .:? "visibility")
<*> (o .:? "item")
<*> (o .:? "memberCount"))
instance ToJSON Audience where
toJSON Audience'{..}
= object
(catMaybes
[("etag" .=) <$> _aEtag, Just ("kind" .= _aKind),
("visibility" .=) <$> _aVisibility,
("item" .=) <$> _aItem,
("memberCount" .=) <$> _aMemberCount])
newtype ActivityProvider = ActivityProvider'
{ _apTitle :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
activityProvider
:: ActivityProvider
activityProvider =
ActivityProvider'
{ _apTitle = Nothing
}
apTitle :: Lens' ActivityProvider (Maybe Text)
apTitle = lens _apTitle (\ s a -> s{_apTitle = a})
instance FromJSON ActivityProvider where
parseJSON
= withObject "ActivityProvider"
(\ o -> ActivityProvider' <$> (o .:? "title"))
instance ToJSON ActivityProvider where
toJSON ActivityProvider'{..}
= object (catMaybes [("title" .=) <$> _apTitle])
data ActivityObjectAttachmentsItemEmbed = ActivityObjectAttachmentsItemEmbed'
{ _aoaieURL :: !(Maybe Text)
, _aoaieType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectAttachmentsItemEmbed
:: ActivityObjectAttachmentsItemEmbed
activityObjectAttachmentsItemEmbed =
ActivityObjectAttachmentsItemEmbed'
{ _aoaieURL = Nothing
, _aoaieType = Nothing
}
aoaieURL :: Lens' ActivityObjectAttachmentsItemEmbed (Maybe Text)
aoaieURL = lens _aoaieURL (\ s a -> s{_aoaieURL = a})
aoaieType :: Lens' ActivityObjectAttachmentsItemEmbed (Maybe Text)
aoaieType
= lens _aoaieType (\ s a -> s{_aoaieType = a})
instance FromJSON ActivityObjectAttachmentsItemEmbed
where
parseJSON
= withObject "ActivityObjectAttachmentsItemEmbed"
(\ o ->
ActivityObjectAttachmentsItemEmbed' <$>
(o .:? "url") <*> (o .:? "type"))
instance ToJSON ActivityObjectAttachmentsItemEmbed
where
toJSON ActivityObjectAttachmentsItemEmbed'{..}
= object
(catMaybes
[("url" .=) <$> _aoaieURL,
("type" .=) <$> _aoaieType])
newtype CommentPlusoners = CommentPlusoners'
{ _cpTotalItems :: Maybe (Textual Word32)
} deriving (Eq,Show,Data,Typeable,Generic)
commentPlusoners
:: CommentPlusoners
commentPlusoners =
CommentPlusoners'
{ _cpTotalItems = Nothing
}
cpTotalItems :: Lens' CommentPlusoners (Maybe Word32)
cpTotalItems
= lens _cpTotalItems (\ s a -> s{_cpTotalItems = a})
. mapping _Coerce
instance FromJSON CommentPlusoners where
parseJSON
= withObject "CommentPlusoners"
(\ o -> CommentPlusoners' <$> (o .:? "totalItems"))
instance ToJSON CommentPlusoners where
toJSON CommentPlusoners'{..}
= object
(catMaybes [("totalItems" .=) <$> _cpTotalItems])
newtype CommentActorClientSpecificActorInfo = CommentActorClientSpecificActorInfo'
{ _cacsaiYouTubeActorInfo :: Maybe CommentActorClientSpecificActorInfoYouTubeActorInfo
} deriving (Eq,Show,Data,Typeable,Generic)
commentActorClientSpecificActorInfo
:: CommentActorClientSpecificActorInfo
commentActorClientSpecificActorInfo =
CommentActorClientSpecificActorInfo'
{ _cacsaiYouTubeActorInfo = Nothing
}
cacsaiYouTubeActorInfo :: Lens' CommentActorClientSpecificActorInfo (Maybe CommentActorClientSpecificActorInfoYouTubeActorInfo)
cacsaiYouTubeActorInfo
= lens _cacsaiYouTubeActorInfo
(\ s a -> s{_cacsaiYouTubeActorInfo = a})
instance FromJSON CommentActorClientSpecificActorInfo
where
parseJSON
= withObject "CommentActorClientSpecificActorInfo"
(\ o ->
CommentActorClientSpecificActorInfo' <$>
(o .:? "youtubeActorInfo"))
instance ToJSON CommentActorClientSpecificActorInfo
where
toJSON CommentActorClientSpecificActorInfo'{..}
= object
(catMaybes
[("youtubeActorInfo" .=) <$>
_cacsaiYouTubeActorInfo])
newtype ActivityObjectActorClientSpecificActorInfoYouTubeActorInfo = ActivityObjectActorClientSpecificActorInfoYouTubeActorInfo'
{ _aoacsaiytaiChannelId :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectActorClientSpecificActorInfoYouTubeActorInfo
:: ActivityObjectActorClientSpecificActorInfoYouTubeActorInfo
activityObjectActorClientSpecificActorInfoYouTubeActorInfo =
ActivityObjectActorClientSpecificActorInfoYouTubeActorInfo'
{ _aoacsaiytaiChannelId = Nothing
}
aoacsaiytaiChannelId :: Lens' ActivityObjectActorClientSpecificActorInfoYouTubeActorInfo (Maybe Text)
aoacsaiytaiChannelId
= lens _aoacsaiytaiChannelId
(\ s a -> s{_aoacsaiytaiChannelId = a})
instance FromJSON
ActivityObjectActorClientSpecificActorInfoYouTubeActorInfo
where
parseJSON
= withObject
"ActivityObjectActorClientSpecificActorInfoYouTubeActorInfo"
(\ o ->
ActivityObjectActorClientSpecificActorInfoYouTubeActorInfo'
<$> (o .:? "channelId"))
instance ToJSON
ActivityObjectActorClientSpecificActorInfoYouTubeActorInfo
where
toJSON
ActivityObjectActorClientSpecificActorInfoYouTubeActorInfo'{..}
= object
(catMaybes
[("channelId" .=) <$> _aoacsaiytaiChannelId])
data ActivityObjectPlusoners = ActivityObjectPlusoners'
{ _aopTotalItems :: !(Maybe (Textual Word32))
, _aopSelfLink :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectPlusoners
:: ActivityObjectPlusoners
activityObjectPlusoners =
ActivityObjectPlusoners'
{ _aopTotalItems = Nothing
, _aopSelfLink = Nothing
}
aopTotalItems :: Lens' ActivityObjectPlusoners (Maybe Word32)
aopTotalItems
= lens _aopTotalItems
(\ s a -> s{_aopTotalItems = a})
. mapping _Coerce
aopSelfLink :: Lens' ActivityObjectPlusoners (Maybe Text)
aopSelfLink
= lens _aopSelfLink (\ s a -> s{_aopSelfLink = a})
instance FromJSON ActivityObjectPlusoners where
parseJSON
= withObject "ActivityObjectPlusoners"
(\ o ->
ActivityObjectPlusoners' <$>
(o .:? "totalItems") <*> (o .:? "selfLink"))
instance ToJSON ActivityObjectPlusoners where
toJSON ActivityObjectPlusoners'{..}
= object
(catMaybes
[("totalItems" .=) <$> _aopTotalItems,
("selfLink" .=) <$> _aopSelfLink])
data PersonEmailsItem = PersonEmailsItem'
{ _peiValue :: !(Maybe Text)
, _peiType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
personEmailsItem
:: PersonEmailsItem
personEmailsItem =
PersonEmailsItem'
{ _peiValue = Nothing
, _peiType = Nothing
}
peiValue :: Lens' PersonEmailsItem (Maybe Text)
peiValue = lens _peiValue (\ s a -> s{_peiValue = a})
peiType :: Lens' PersonEmailsItem (Maybe Text)
peiType = lens _peiType (\ s a -> s{_peiType = a})
instance FromJSON PersonEmailsItem where
parseJSON
= withObject "PersonEmailsItem"
(\ o ->
PersonEmailsItem' <$>
(o .:? "value") <*> (o .:? "type"))
instance ToJSON PersonEmailsItem where
toJSON PersonEmailsItem'{..}
= object
(catMaybes
[("value" .=) <$> _peiValue,
("type" .=) <$> _peiType])
newtype CommentActorImage = CommentActorImage'
{ _caiURL :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
commentActorImage
:: CommentActorImage
commentActorImage =
CommentActorImage'
{ _caiURL = Nothing
}
caiURL :: Lens' CommentActorImage (Maybe Text)
caiURL = lens _caiURL (\ s a -> s{_caiURL = a})
instance FromJSON CommentActorImage where
parseJSON
= withObject "CommentActorImage"
(\ o -> CommentActorImage' <$> (o .:? "url"))
instance ToJSON CommentActorImage where
toJSON CommentActorImage'{..}
= object (catMaybes [("url" .=) <$> _caiURL])
data ActivityObjectAttachmentsItemThumbnailsItemImage = ActivityObjectAttachmentsItemThumbnailsItemImage'
{ _aoaitiiHeight :: !(Maybe (Textual Word32))
, _aoaitiiURL :: !(Maybe Text)
, _aoaitiiWidth :: !(Maybe (Textual Word32))
, _aoaitiiType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectAttachmentsItemThumbnailsItemImage
:: ActivityObjectAttachmentsItemThumbnailsItemImage
activityObjectAttachmentsItemThumbnailsItemImage =
ActivityObjectAttachmentsItemThumbnailsItemImage'
{ _aoaitiiHeight = Nothing
, _aoaitiiURL = Nothing
, _aoaitiiWidth = Nothing
, _aoaitiiType = Nothing
}
aoaitiiHeight :: Lens' ActivityObjectAttachmentsItemThumbnailsItemImage (Maybe Word32)
aoaitiiHeight
= lens _aoaitiiHeight
(\ s a -> s{_aoaitiiHeight = a})
. mapping _Coerce
aoaitiiURL :: Lens' ActivityObjectAttachmentsItemThumbnailsItemImage (Maybe Text)
aoaitiiURL
= lens _aoaitiiURL (\ s a -> s{_aoaitiiURL = a})
aoaitiiWidth :: Lens' ActivityObjectAttachmentsItemThumbnailsItemImage (Maybe Word32)
aoaitiiWidth
= lens _aoaitiiWidth (\ s a -> s{_aoaitiiWidth = a})
. mapping _Coerce
aoaitiiType :: Lens' ActivityObjectAttachmentsItemThumbnailsItemImage (Maybe Text)
aoaitiiType
= lens _aoaitiiType (\ s a -> s{_aoaitiiType = a})
instance FromJSON
ActivityObjectAttachmentsItemThumbnailsItemImage
where
parseJSON
= withObject
"ActivityObjectAttachmentsItemThumbnailsItemImage"
(\ o ->
ActivityObjectAttachmentsItemThumbnailsItemImage' <$>
(o .:? "height") <*> (o .:? "url") <*>
(o .:? "width")
<*> (o .:? "type"))
instance ToJSON
ActivityObjectAttachmentsItemThumbnailsItemImage
where
toJSON
ActivityObjectAttachmentsItemThumbnailsItemImage'{..}
= object
(catMaybes
[("height" .=) <$> _aoaitiiHeight,
("url" .=) <$> _aoaitiiURL,
("width" .=) <$> _aoaitiiWidth,
("type" .=) <$> _aoaitiiType])
data PlacePosition = PlacePosition'
{ _ppLatitude :: !(Maybe (Textual Double))
, _ppLongitude :: !(Maybe (Textual Double))
} deriving (Eq,Show,Data,Typeable,Generic)
placePosition
:: PlacePosition
placePosition =
PlacePosition'
{ _ppLatitude = Nothing
, _ppLongitude = Nothing
}
ppLatitude :: Lens' PlacePosition (Maybe Double)
ppLatitude
= lens _ppLatitude (\ s a -> s{_ppLatitude = a}) .
mapping _Coerce
ppLongitude :: Lens' PlacePosition (Maybe Double)
ppLongitude
= lens _ppLongitude (\ s a -> s{_ppLongitude = a}) .
mapping _Coerce
instance FromJSON PlacePosition where
parseJSON
= withObject "PlacePosition"
(\ o ->
PlacePosition' <$>
(o .:? "latitude") <*> (o .:? "longitude"))
instance ToJSON PlacePosition where
toJSON PlacePosition'{..}
= object
(catMaybes
[("latitude" .=) <$> _ppLatitude,
("longitude" .=) <$> _ppLongitude])
data PersonPlacesLivedItem = PersonPlacesLivedItem'
{ _ppliValue :: !(Maybe Text)
, _ppliPrimary :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
personPlacesLivedItem
:: PersonPlacesLivedItem
personPlacesLivedItem =
PersonPlacesLivedItem'
{ _ppliValue = Nothing
, _ppliPrimary = Nothing
}
ppliValue :: Lens' PersonPlacesLivedItem (Maybe Text)
ppliValue
= lens _ppliValue (\ s a -> s{_ppliValue = a})
ppliPrimary :: Lens' PersonPlacesLivedItem (Maybe Bool)
ppliPrimary
= lens _ppliPrimary (\ s a -> s{_ppliPrimary = a})
instance FromJSON PersonPlacesLivedItem where
parseJSON
= withObject "PersonPlacesLivedItem"
(\ o ->
PersonPlacesLivedItem' <$>
(o .:? "value") <*> (o .:? "primary"))
instance ToJSON PersonPlacesLivedItem where
toJSON PersonPlacesLivedItem'{..}
= object
(catMaybes
[("value" .=) <$> _ppliValue,
("primary" .=) <$> _ppliPrimary])
data Circle = Circle'
{ _cEtag :: !(Maybe Text)
, _cKind :: !Text
, _cPeople :: !(Maybe CirclePeople)
, _cSelfLink :: !(Maybe Text)
, _cDisplayName :: !(Maybe Text)
, _cId :: !(Maybe Text)
, _cDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
circle
:: Circle
circle =
Circle'
{ _cEtag = Nothing
, _cKind = "plus#circle"
, _cPeople = Nothing
, _cSelfLink = Nothing
, _cDisplayName = Nothing
, _cId = Nothing
, _cDescription = Nothing
}
cEtag :: Lens' Circle (Maybe Text)
cEtag = lens _cEtag (\ s a -> s{_cEtag = a})
cKind :: Lens' Circle Text
cKind = lens _cKind (\ s a -> s{_cKind = a})
cPeople :: Lens' Circle (Maybe CirclePeople)
cPeople = lens _cPeople (\ s a -> s{_cPeople = a})
cSelfLink :: Lens' Circle (Maybe Text)
cSelfLink
= lens _cSelfLink (\ s a -> s{_cSelfLink = a})
cDisplayName :: Lens' Circle (Maybe Text)
cDisplayName
= lens _cDisplayName (\ s a -> s{_cDisplayName = a})
cId :: Lens' Circle (Maybe Text)
cId = lens _cId (\ s a -> s{_cId = a})
cDescription :: Lens' Circle (Maybe Text)
cDescription
= lens _cDescription (\ s a -> s{_cDescription = a})
instance FromJSON Circle where
parseJSON
= withObject "Circle"
(\ o ->
Circle' <$>
(o .:? "etag") <*> (o .:? "kind" .!= "plus#circle")
<*> (o .:? "people")
<*> (o .:? "selfLink")
<*> (o .:? "displayName")
<*> (o .:? "id")
<*> (o .:? "description"))
instance ToJSON Circle where
toJSON Circle'{..}
= object
(catMaybes
[("etag" .=) <$> _cEtag, Just ("kind" .= _cKind),
("people" .=) <$> _cPeople,
("selfLink" .=) <$> _cSelfLink,
("displayName" .=) <$> _cDisplayName,
("id" .=) <$> _cId,
("description" .=) <$> _cDescription])
newtype ActivityActorClientSpecificActorInfo = ActivityActorClientSpecificActorInfo'
{ _aacsaiYouTubeActorInfo :: Maybe ActivityActorClientSpecificActorInfoYouTubeActorInfo
} deriving (Eq,Show,Data,Typeable,Generic)
activityActorClientSpecificActorInfo
:: ActivityActorClientSpecificActorInfo
activityActorClientSpecificActorInfo =
ActivityActorClientSpecificActorInfo'
{ _aacsaiYouTubeActorInfo = Nothing
}
aacsaiYouTubeActorInfo :: Lens' ActivityActorClientSpecificActorInfo (Maybe ActivityActorClientSpecificActorInfoYouTubeActorInfo)
aacsaiYouTubeActorInfo
= lens _aacsaiYouTubeActorInfo
(\ s a -> s{_aacsaiYouTubeActorInfo = a})
instance FromJSON
ActivityActorClientSpecificActorInfo where
parseJSON
= withObject "ActivityActorClientSpecificActorInfo"
(\ o ->
ActivityActorClientSpecificActorInfo' <$>
(o .:? "youtubeActorInfo"))
instance ToJSON ActivityActorClientSpecificActorInfo
where
toJSON ActivityActorClientSpecificActorInfo'{..}
= object
(catMaybes
[("youtubeActorInfo" .=) <$>
_aacsaiYouTubeActorInfo])
data Person = Person'
{ _pCurrentLocation :: !(Maybe Text)
, _pEtag :: !(Maybe Text)
, _pImage :: !(Maybe PersonImage)
, _pBraggingRights :: !(Maybe Text)
, _pPlacesLived :: !(Maybe [PersonPlacesLivedItem])
, _pPlusOneCount :: !(Maybe (Textual Int32))
, _pObjectType :: !(Maybe Text)
, _pCover :: !(Maybe PersonCover)
, _pKind :: !Text
, _pRelationshipStatus :: !(Maybe Text)
, _pURLs :: !(Maybe [PersonURLsItem])
, _pDomain :: !(Maybe Text)
, _pURL :: !(Maybe Text)
, _pVerified :: !(Maybe Bool)
, _pBirthday :: !(Maybe Text)
, _pIsPlusUser :: !(Maybe Bool)
, _pTagline :: !(Maybe Text)
, _pGender :: !(Maybe Text)
, _pName :: !(Maybe PersonName)
, _pEmails :: !(Maybe [PersonEmailsItem])
, _pOccupation :: !(Maybe Text)
, _pSkills :: !(Maybe Text)
, _pAboutMe :: !(Maybe Text)
, _pDisplayName :: !(Maybe Text)
, _pId :: !(Maybe Text)
, _pNickname :: !(Maybe Text)
, _pOrganizations :: !(Maybe [PersonOrganizationsItem])
, _pCircledByCount :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
person
:: Person
person =
Person'
{ _pCurrentLocation = Nothing
, _pEtag = Nothing
, _pImage = Nothing
, _pBraggingRights = Nothing
, _pPlacesLived = Nothing
, _pPlusOneCount = Nothing
, _pObjectType = Nothing
, _pCover = Nothing
, _pKind = "plus#person"
, _pRelationshipStatus = Nothing
, _pURLs = Nothing
, _pDomain = Nothing
, _pURL = Nothing
, _pVerified = Nothing
, _pBirthday = Nothing
, _pIsPlusUser = Nothing
, _pTagline = Nothing
, _pGender = Nothing
, _pName = Nothing
, _pEmails = Nothing
, _pOccupation = Nothing
, _pSkills = Nothing
, _pAboutMe = Nothing
, _pDisplayName = Nothing
, _pId = Nothing
, _pNickname = Nothing
, _pOrganizations = Nothing
, _pCircledByCount = Nothing
}
pCurrentLocation :: Lens' Person (Maybe Text)
pCurrentLocation
= lens _pCurrentLocation
(\ s a -> s{_pCurrentLocation = a})
pEtag :: Lens' Person (Maybe Text)
pEtag = lens _pEtag (\ s a -> s{_pEtag = a})
pImage :: Lens' Person (Maybe PersonImage)
pImage = lens _pImage (\ s a -> s{_pImage = a})
pBraggingRights :: Lens' Person (Maybe Text)
pBraggingRights
= lens _pBraggingRights
(\ s a -> s{_pBraggingRights = a})
pPlacesLived :: Lens' Person [PersonPlacesLivedItem]
pPlacesLived
= lens _pPlacesLived (\ s a -> s{_pPlacesLived = a})
. _Default
. _Coerce
pPlusOneCount :: Lens' Person (Maybe Int32)
pPlusOneCount
= lens _pPlusOneCount
(\ s a -> s{_pPlusOneCount = a})
. mapping _Coerce
pObjectType :: Lens' Person (Maybe Text)
pObjectType
= lens _pObjectType (\ s a -> s{_pObjectType = a})
pCover :: Lens' Person (Maybe PersonCover)
pCover = lens _pCover (\ s a -> s{_pCover = a})
pKind :: Lens' Person Text
pKind = lens _pKind (\ s a -> s{_pKind = a})
pRelationshipStatus :: Lens' Person (Maybe Text)
pRelationshipStatus
= lens _pRelationshipStatus
(\ s a -> s{_pRelationshipStatus = a})
pURLs :: Lens' Person [PersonURLsItem]
pURLs
= lens _pURLs (\ s a -> s{_pURLs = a}) . _Default .
_Coerce
pDomain :: Lens' Person (Maybe Text)
pDomain = lens _pDomain (\ s a -> s{_pDomain = a})
pURL :: Lens' Person (Maybe Text)
pURL = lens _pURL (\ s a -> s{_pURL = a})
pVerified :: Lens' Person (Maybe Bool)
pVerified
= lens _pVerified (\ s a -> s{_pVerified = a})
pBirthday :: Lens' Person (Maybe Text)
pBirthday
= lens _pBirthday (\ s a -> s{_pBirthday = a})
pIsPlusUser :: Lens' Person (Maybe Bool)
pIsPlusUser
= lens _pIsPlusUser (\ s a -> s{_pIsPlusUser = a})
pTagline :: Lens' Person (Maybe Text)
pTagline = lens _pTagline (\ s a -> s{_pTagline = a})
pGender :: Lens' Person (Maybe Text)
pGender = lens _pGender (\ s a -> s{_pGender = a})
pName :: Lens' Person (Maybe PersonName)
pName = lens _pName (\ s a -> s{_pName = a})
pEmails :: Lens' Person [PersonEmailsItem]
pEmails
= lens _pEmails (\ s a -> s{_pEmails = a}) . _Default
. _Coerce
pOccupation :: Lens' Person (Maybe Text)
pOccupation
= lens _pOccupation (\ s a -> s{_pOccupation = a})
pSkills :: Lens' Person (Maybe Text)
pSkills = lens _pSkills (\ s a -> s{_pSkills = a})
pAboutMe :: Lens' Person (Maybe Text)
pAboutMe = lens _pAboutMe (\ s a -> s{_pAboutMe = a})
pDisplayName :: Lens' Person (Maybe Text)
pDisplayName
= lens _pDisplayName (\ s a -> s{_pDisplayName = a})
pId :: Lens' Person (Maybe Text)
pId = lens _pId (\ s a -> s{_pId = a})
pNickname :: Lens' Person (Maybe Text)
pNickname
= lens _pNickname (\ s a -> s{_pNickname = a})
pOrganizations :: Lens' Person [PersonOrganizationsItem]
pOrganizations
= lens _pOrganizations
(\ s a -> s{_pOrganizations = a})
. _Default
. _Coerce
pCircledByCount :: Lens' Person (Maybe Int32)
pCircledByCount
= lens _pCircledByCount
(\ s a -> s{_pCircledByCount = a})
. mapping _Coerce
instance FromJSON Person where
parseJSON
= withObject "Person"
(\ o ->
Person' <$>
(o .:? "currentLocation") <*> (o .:? "etag") <*>
(o .:? "image")
<*> (o .:? "braggingRights")
<*> (o .:? "placesLived" .!= mempty)
<*> (o .:? "plusOneCount")
<*> (o .:? "objectType")
<*> (o .:? "cover")
<*> (o .:? "kind" .!= "plus#person")
<*> (o .:? "relationshipStatus")
<*> (o .:? "urls" .!= mempty)
<*> (o .:? "domain")
<*> (o .:? "url")
<*> (o .:? "verified")
<*> (o .:? "birthday")
<*> (o .:? "isPlusUser")
<*> (o .:? "tagline")
<*> (o .:? "gender")
<*> (o .:? "name")
<*> (o .:? "emails" .!= mempty)
<*> (o .:? "occupation")
<*> (o .:? "skills")
<*> (o .:? "aboutMe")
<*> (o .:? "displayName")
<*> (o .:? "id")
<*> (o .:? "nickname")
<*> (o .:? "organizations" .!= mempty)
<*> (o .:? "circledByCount"))
instance ToJSON Person where
toJSON Person'{..}
= object
(catMaybes
[("currentLocation" .=) <$> _pCurrentLocation,
("etag" .=) <$> _pEtag, ("image" .=) <$> _pImage,
("braggingRights" .=) <$> _pBraggingRights,
("placesLived" .=) <$> _pPlacesLived,
("plusOneCount" .=) <$> _pPlusOneCount,
("objectType" .=) <$> _pObjectType,
("cover" .=) <$> _pCover, Just ("kind" .= _pKind),
("relationshipStatus" .=) <$> _pRelationshipStatus,
("urls" .=) <$> _pURLs, ("domain" .=) <$> _pDomain,
("url" .=) <$> _pURL, ("verified" .=) <$> _pVerified,
("birthday" .=) <$> _pBirthday,
("isPlusUser" .=) <$> _pIsPlusUser,
("tagline" .=) <$> _pTagline,
("gender" .=) <$> _pGender, ("name" .=) <$> _pName,
("emails" .=) <$> _pEmails,
("occupation" .=) <$> _pOccupation,
("skills" .=) <$> _pSkills,
("aboutMe" .=) <$> _pAboutMe,
("displayName" .=) <$> _pDisplayName,
("id" .=) <$> _pId, ("nickname" .=) <$> _pNickname,
("organizations" .=) <$> _pOrganizations,
("circledByCount" .=) <$> _pCircledByCount])
data Videostream = Videostream'
{ _vHeight :: !(Maybe (Textual Int32))
, _vURL :: !(Maybe Text)
, _vWidth :: !(Maybe (Textual Int32))
, _vType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
videostream
:: Videostream
videostream =
Videostream'
{ _vHeight = Nothing
, _vURL = Nothing
, _vWidth = Nothing
, _vType = Nothing
}
vHeight :: Lens' Videostream (Maybe Int32)
vHeight
= lens _vHeight (\ s a -> s{_vHeight = a}) .
mapping _Coerce
vURL :: Lens' Videostream (Maybe Text)
vURL = lens _vURL (\ s a -> s{_vURL = a})
vWidth :: Lens' Videostream (Maybe Int32)
vWidth
= lens _vWidth (\ s a -> s{_vWidth = a}) .
mapping _Coerce
vType :: Lens' Videostream (Maybe Text)
vType = lens _vType (\ s a -> s{_vType = a})
instance FromJSON Videostream where
parseJSON
= withObject "Videostream"
(\ o ->
Videostream' <$>
(o .:? "height") <*> (o .:? "url") <*>
(o .:? "width")
<*> (o .:? "type"))
instance ToJSON Videostream where
toJSON Videostream'{..}
= object
(catMaybes
[("height" .=) <$> _vHeight, ("url" .=) <$> _vURL,
("width" .=) <$> _vWidth, ("type" .=) <$> _vType])
data CircleFeed = CircleFeed'
{ _cfTotalItems :: !(Maybe (Textual Int32))
, _cfEtag :: !(Maybe Text)
, _cfNextPageToken :: !(Maybe Text)
, _cfNextLink :: !(Maybe Text)
, _cfKind :: !Text
, _cfItems :: !(Maybe [Circle])
, _cfSelfLink :: !(Maybe Text)
, _cfTitle :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
circleFeed
:: CircleFeed
circleFeed =
CircleFeed'
{ _cfTotalItems = Nothing
, _cfEtag = Nothing
, _cfNextPageToken = Nothing
, _cfNextLink = Nothing
, _cfKind = "plus#circleFeed"
, _cfItems = Nothing
, _cfSelfLink = Nothing
, _cfTitle = Nothing
}
cfTotalItems :: Lens' CircleFeed (Maybe Int32)
cfTotalItems
= lens _cfTotalItems (\ s a -> s{_cfTotalItems = a})
. mapping _Coerce
cfEtag :: Lens' CircleFeed (Maybe Text)
cfEtag = lens _cfEtag (\ s a -> s{_cfEtag = a})
cfNextPageToken :: Lens' CircleFeed (Maybe Text)
cfNextPageToken
= lens _cfNextPageToken
(\ s a -> s{_cfNextPageToken = a})
cfNextLink :: Lens' CircleFeed (Maybe Text)
cfNextLink
= lens _cfNextLink (\ s a -> s{_cfNextLink = a})
cfKind :: Lens' CircleFeed Text
cfKind = lens _cfKind (\ s a -> s{_cfKind = a})
cfItems :: Lens' CircleFeed [Circle]
cfItems
= lens _cfItems (\ s a -> s{_cfItems = a}) . _Default
. _Coerce
cfSelfLink :: Lens' CircleFeed (Maybe Text)
cfSelfLink
= lens _cfSelfLink (\ s a -> s{_cfSelfLink = a})
cfTitle :: Lens' CircleFeed (Maybe Text)
cfTitle = lens _cfTitle (\ s a -> s{_cfTitle = a})
instance FromJSON CircleFeed where
parseJSON
= withObject "CircleFeed"
(\ o ->
CircleFeed' <$>
(o .:? "totalItems") <*> (o .:? "etag") <*>
(o .:? "nextPageToken")
<*> (o .:? "nextLink")
<*> (o .:? "kind" .!= "plus#circleFeed")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "title"))
instance ToJSON CircleFeed where
toJSON CircleFeed'{..}
= object
(catMaybes
[("totalItems" .=) <$> _cfTotalItems,
("etag" .=) <$> _cfEtag,
("nextPageToken" .=) <$> _cfNextPageToken,
("nextLink" .=) <$> _cfNextLink,
Just ("kind" .= _cfKind), ("items" .=) <$> _cfItems,
("selfLink" .=) <$> _cfSelfLink,
("title" .=) <$> _cfTitle])
data ActivityObjectAttachmentsItemImage = ActivityObjectAttachmentsItemImage'
{ _aoaiiHeight :: !(Maybe (Textual Word32))
, _aoaiiURL :: !(Maybe Text)
, _aoaiiWidth :: !(Maybe (Textual Word32))
, _aoaiiType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectAttachmentsItemImage
:: ActivityObjectAttachmentsItemImage
activityObjectAttachmentsItemImage =
ActivityObjectAttachmentsItemImage'
{ _aoaiiHeight = Nothing
, _aoaiiURL = Nothing
, _aoaiiWidth = Nothing
, _aoaiiType = Nothing
}
aoaiiHeight :: Lens' ActivityObjectAttachmentsItemImage (Maybe Word32)
aoaiiHeight
= lens _aoaiiHeight (\ s a -> s{_aoaiiHeight = a}) .
mapping _Coerce
aoaiiURL :: Lens' ActivityObjectAttachmentsItemImage (Maybe Text)
aoaiiURL = lens _aoaiiURL (\ s a -> s{_aoaiiURL = a})
aoaiiWidth :: Lens' ActivityObjectAttachmentsItemImage (Maybe Word32)
aoaiiWidth
= lens _aoaiiWidth (\ s a -> s{_aoaiiWidth = a}) .
mapping _Coerce
aoaiiType :: Lens' ActivityObjectAttachmentsItemImage (Maybe Text)
aoaiiType
= lens _aoaiiType (\ s a -> s{_aoaiiType = a})
instance FromJSON ActivityObjectAttachmentsItemImage
where
parseJSON
= withObject "ActivityObjectAttachmentsItemImage"
(\ o ->
ActivityObjectAttachmentsItemImage' <$>
(o .:? "height") <*> (o .:? "url") <*>
(o .:? "width")
<*> (o .:? "type"))
instance ToJSON ActivityObjectAttachmentsItemImage
where
toJSON ActivityObjectAttachmentsItemImage'{..}
= object
(catMaybes
[("height" .=) <$> _aoaiiHeight,
("url" .=) <$> _aoaiiURL,
("width" .=) <$> _aoaiiWidth,
("type" .=) <$> _aoaiiType])
data CommentActor = CommentActor'
{ _caClientSpecificActorInfo :: !(Maybe CommentActorClientSpecificActorInfo)
, _caImage :: !(Maybe CommentActorImage)
, _caURL :: !(Maybe Text)
, _caDisplayName :: !(Maybe Text)
, _caId :: !(Maybe Text)
, _caVerification :: !(Maybe CommentActorVerification)
} deriving (Eq,Show,Data,Typeable,Generic)
commentActor
:: CommentActor
commentActor =
CommentActor'
{ _caClientSpecificActorInfo = Nothing
, _caImage = Nothing
, _caURL = Nothing
, _caDisplayName = Nothing
, _caId = Nothing
, _caVerification = Nothing
}
caClientSpecificActorInfo :: Lens' CommentActor (Maybe CommentActorClientSpecificActorInfo)
caClientSpecificActorInfo
= lens _caClientSpecificActorInfo
(\ s a -> s{_caClientSpecificActorInfo = a})
caImage :: Lens' CommentActor (Maybe CommentActorImage)
caImage = lens _caImage (\ s a -> s{_caImage = a})
caURL :: Lens' CommentActor (Maybe Text)
caURL = lens _caURL (\ s a -> s{_caURL = a})
caDisplayName :: Lens' CommentActor (Maybe Text)
caDisplayName
= lens _caDisplayName
(\ s a -> s{_caDisplayName = a})
caId :: Lens' CommentActor (Maybe Text)
caId = lens _caId (\ s a -> s{_caId = a})
caVerification :: Lens' CommentActor (Maybe CommentActorVerification)
caVerification
= lens _caVerification
(\ s a -> s{_caVerification = a})
instance FromJSON CommentActor where
parseJSON
= withObject "CommentActor"
(\ o ->
CommentActor' <$>
(o .:? "clientSpecificActorInfo") <*> (o .:? "image")
<*> (o .:? "url")
<*> (o .:? "displayName")
<*> (o .:? "id")
<*> (o .:? "verification"))
instance ToJSON CommentActor where
toJSON CommentActor'{..}
= object
(catMaybes
[("clientSpecificActorInfo" .=) <$>
_caClientSpecificActorInfo,
("image" .=) <$> _caImage, ("url" .=) <$> _caURL,
("displayName" .=) <$> _caDisplayName,
("id" .=) <$> _caId,
("verification" .=) <$> _caVerification])
data ActivityObject = ActivityObject'
{ _aoPlusoners :: !(Maybe ActivityObjectPlusoners)
, _aoAttachments :: !(Maybe [ActivityObjectAttachmentsItem])
, _aoObjectType :: !(Maybe Text)
, _aoOriginalContent :: !(Maybe Text)
, _aoURL :: !(Maybe Text)
, _aoActor :: !(Maybe ActivityObjectActor)
, _aoContent :: !(Maybe Text)
, _aoReplies :: !(Maybe ActivityObjectReplies)
, _aoId :: !(Maybe Text)
, _aoStatusForViewer :: !(Maybe ActivityObjectStatusForViewer)
, _aoResharers :: !(Maybe ActivityObjectResharers)
} deriving (Eq,Show,Data,Typeable,Generic)
activityObject
:: ActivityObject
activityObject =
ActivityObject'
{ _aoPlusoners = Nothing
, _aoAttachments = Nothing
, _aoObjectType = Nothing
, _aoOriginalContent = Nothing
, _aoURL = Nothing
, _aoActor = Nothing
, _aoContent = Nothing
, _aoReplies = Nothing
, _aoId = Nothing
, _aoStatusForViewer = Nothing
, _aoResharers = Nothing
}
aoPlusoners :: Lens' ActivityObject (Maybe ActivityObjectPlusoners)
aoPlusoners
= lens _aoPlusoners (\ s a -> s{_aoPlusoners = a})
aoAttachments :: Lens' ActivityObject [ActivityObjectAttachmentsItem]
aoAttachments
= lens _aoAttachments
(\ s a -> s{_aoAttachments = a})
. _Default
. _Coerce
aoObjectType :: Lens' ActivityObject (Maybe Text)
aoObjectType
= lens _aoObjectType (\ s a -> s{_aoObjectType = a})
aoOriginalContent :: Lens' ActivityObject (Maybe Text)
aoOriginalContent
= lens _aoOriginalContent
(\ s a -> s{_aoOriginalContent = a})
aoURL :: Lens' ActivityObject (Maybe Text)
aoURL = lens _aoURL (\ s a -> s{_aoURL = a})
aoActor :: Lens' ActivityObject (Maybe ActivityObjectActor)
aoActor = lens _aoActor (\ s a -> s{_aoActor = a})
aoContent :: Lens' ActivityObject (Maybe Text)
aoContent
= lens _aoContent (\ s a -> s{_aoContent = a})
aoReplies :: Lens' ActivityObject (Maybe ActivityObjectReplies)
aoReplies
= lens _aoReplies (\ s a -> s{_aoReplies = a})
aoId :: Lens' ActivityObject (Maybe Text)
aoId = lens _aoId (\ s a -> s{_aoId = a})
aoStatusForViewer :: Lens' ActivityObject (Maybe ActivityObjectStatusForViewer)
aoStatusForViewer
= lens _aoStatusForViewer
(\ s a -> s{_aoStatusForViewer = a})
aoResharers :: Lens' ActivityObject (Maybe ActivityObjectResharers)
aoResharers
= lens _aoResharers (\ s a -> s{_aoResharers = a})
instance FromJSON ActivityObject where
parseJSON
= withObject "ActivityObject"
(\ o ->
ActivityObject' <$>
(o .:? "plusoners") <*>
(o .:? "attachments" .!= mempty)
<*> (o .:? "objectType")
<*> (o .:? "originalContent")
<*> (o .:? "url")
<*> (o .:? "actor")
<*> (o .:? "content")
<*> (o .:? "replies")
<*> (o .:? "id")
<*> (o .:? "statusForViewer")
<*> (o .:? "resharers"))
instance ToJSON ActivityObject where
toJSON ActivityObject'{..}
= object
(catMaybes
[("plusoners" .=) <$> _aoPlusoners,
("attachments" .=) <$> _aoAttachments,
("objectType" .=) <$> _aoObjectType,
("originalContent" .=) <$> _aoOriginalContent,
("url" .=) <$> _aoURL, ("actor" .=) <$> _aoActor,
("content" .=) <$> _aoContent,
("replies" .=) <$> _aoReplies, ("id" .=) <$> _aoId,
("statusForViewer" .=) <$> _aoStatusForViewer,
("resharers" .=) <$> _aoResharers])
data ActivityObjectActor = ActivityObjectActor'
{ _aoaClientSpecificActorInfo :: !(Maybe ActivityObjectActorClientSpecificActorInfo)
, _aoaImage :: !(Maybe ActivityObjectActorImage)
, _aoaURL :: !(Maybe Text)
, _aoaDisplayName :: !(Maybe Text)
, _aoaId :: !(Maybe Text)
, _aoaVerification :: !(Maybe ActivityObjectActorVerification)
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectActor
:: ActivityObjectActor
activityObjectActor =
ActivityObjectActor'
{ _aoaClientSpecificActorInfo = Nothing
, _aoaImage = Nothing
, _aoaURL = Nothing
, _aoaDisplayName = Nothing
, _aoaId = Nothing
, _aoaVerification = Nothing
}
aoaClientSpecificActorInfo :: Lens' ActivityObjectActor (Maybe ActivityObjectActorClientSpecificActorInfo)
aoaClientSpecificActorInfo
= lens _aoaClientSpecificActorInfo
(\ s a -> s{_aoaClientSpecificActorInfo = a})
aoaImage :: Lens' ActivityObjectActor (Maybe ActivityObjectActorImage)
aoaImage = lens _aoaImage (\ s a -> s{_aoaImage = a})
aoaURL :: Lens' ActivityObjectActor (Maybe Text)
aoaURL = lens _aoaURL (\ s a -> s{_aoaURL = a})
aoaDisplayName :: Lens' ActivityObjectActor (Maybe Text)
aoaDisplayName
= lens _aoaDisplayName
(\ s a -> s{_aoaDisplayName = a})
aoaId :: Lens' ActivityObjectActor (Maybe Text)
aoaId = lens _aoaId (\ s a -> s{_aoaId = a})
aoaVerification :: Lens' ActivityObjectActor (Maybe ActivityObjectActorVerification)
aoaVerification
= lens _aoaVerification
(\ s a -> s{_aoaVerification = a})
instance FromJSON ActivityObjectActor where
parseJSON
= withObject "ActivityObjectActor"
(\ o ->
ActivityObjectActor' <$>
(o .:? "clientSpecificActorInfo") <*> (o .:? "image")
<*> (o .:? "url")
<*> (o .:? "displayName")
<*> (o .:? "id")
<*> (o .:? "verification"))
instance ToJSON ActivityObjectActor where
toJSON ActivityObjectActor'{..}
= object
(catMaybes
[("clientSpecificActorInfo" .=) <$>
_aoaClientSpecificActorInfo,
("image" .=) <$> _aoaImage, ("url" .=) <$> _aoaURL,
("displayName" .=) <$> _aoaDisplayName,
("id" .=) <$> _aoaId,
("verification" .=) <$> _aoaVerification])
data ActivityObjectAttachmentsItemFullImage = ActivityObjectAttachmentsItemFullImage'
{ _aoaifiHeight :: !(Maybe (Textual Word32))
, _aoaifiURL :: !(Maybe Text)
, _aoaifiWidth :: !(Maybe (Textual Word32))
, _aoaifiType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectAttachmentsItemFullImage
:: ActivityObjectAttachmentsItemFullImage
activityObjectAttachmentsItemFullImage =
ActivityObjectAttachmentsItemFullImage'
{ _aoaifiHeight = Nothing
, _aoaifiURL = Nothing
, _aoaifiWidth = Nothing
, _aoaifiType = Nothing
}
aoaifiHeight :: Lens' ActivityObjectAttachmentsItemFullImage (Maybe Word32)
aoaifiHeight
= lens _aoaifiHeight (\ s a -> s{_aoaifiHeight = a})
. mapping _Coerce
aoaifiURL :: Lens' ActivityObjectAttachmentsItemFullImage (Maybe Text)
aoaifiURL
= lens _aoaifiURL (\ s a -> s{_aoaifiURL = a})
aoaifiWidth :: Lens' ActivityObjectAttachmentsItemFullImage (Maybe Word32)
aoaifiWidth
= lens _aoaifiWidth (\ s a -> s{_aoaifiWidth = a}) .
mapping _Coerce
aoaifiType :: Lens' ActivityObjectAttachmentsItemFullImage (Maybe Text)
aoaifiType
= lens _aoaifiType (\ s a -> s{_aoaifiType = a})
instance FromJSON
ActivityObjectAttachmentsItemFullImage where
parseJSON
= withObject "ActivityObjectAttachmentsItemFullImage"
(\ o ->
ActivityObjectAttachmentsItemFullImage' <$>
(o .:? "height") <*> (o .:? "url") <*>
(o .:? "width")
<*> (o .:? "type"))
instance ToJSON
ActivityObjectAttachmentsItemFullImage where
toJSON ActivityObjectAttachmentsItemFullImage'{..}
= object
(catMaybes
[("height" .=) <$> _aoaifiHeight,
("url" .=) <$> _aoaifiURL,
("width" .=) <$> _aoaifiWidth,
("type" .=) <$> _aoaifiType])
newtype MediaAuthorImage = MediaAuthorImage'
{ _maiURL :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
mediaAuthorImage
:: MediaAuthorImage
mediaAuthorImage =
MediaAuthorImage'
{ _maiURL = Nothing
}
maiURL :: Lens' MediaAuthorImage (Maybe Text)
maiURL = lens _maiURL (\ s a -> s{_maiURL = a})
instance FromJSON MediaAuthorImage where
parseJSON
= withObject "MediaAuthorImage"
(\ o -> MediaAuthorImage' <$> (o .:? "url"))
instance ToJSON MediaAuthorImage where
toJSON MediaAuthorImage'{..}
= object (catMaybes [("url" .=) <$> _maiURL])
newtype CirclePeople = CirclePeople'
{ _cTotalItems :: Maybe (Textual Word32)
} deriving (Eq,Show,Data,Typeable,Generic)
circlePeople
:: CirclePeople
circlePeople =
CirclePeople'
{ _cTotalItems = Nothing
}
cTotalItems :: Lens' CirclePeople (Maybe Word32)
cTotalItems
= lens _cTotalItems (\ s a -> s{_cTotalItems = a}) .
mapping _Coerce
instance FromJSON CirclePeople where
parseJSON
= withObject "CirclePeople"
(\ o -> CirclePeople' <$> (o .:? "totalItems"))
instance ToJSON CirclePeople where
toJSON CirclePeople'{..}
= object
(catMaybes [("totalItems" .=) <$> _cTotalItems])
data PlusDomainsACLentryResource = PlusDomainsACLentryResource'
{ _pdarDisplayName :: !(Maybe Text)
, _pdarId :: !(Maybe Text)
, _pdarType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
plusDomainsACLentryResource
:: PlusDomainsACLentryResource
plusDomainsACLentryResource =
PlusDomainsACLentryResource'
{ _pdarDisplayName = Nothing
, _pdarId = Nothing
, _pdarType = Nothing
}
pdarDisplayName :: Lens' PlusDomainsACLentryResource (Maybe Text)
pdarDisplayName
= lens _pdarDisplayName
(\ s a -> s{_pdarDisplayName = a})
pdarId :: Lens' PlusDomainsACLentryResource (Maybe Text)
pdarId = lens _pdarId (\ s a -> s{_pdarId = a})
pdarType :: Lens' PlusDomainsACLentryResource (Maybe Text)
pdarType = lens _pdarType (\ s a -> s{_pdarType = a})
instance FromJSON PlusDomainsACLentryResource where
parseJSON
= withObject "PlusDomainsACLentryResource"
(\ o ->
PlusDomainsACLentryResource' <$>
(o .:? "displayName") <*> (o .:? "id") <*>
(o .:? "type"))
instance ToJSON PlusDomainsACLentryResource where
toJSON PlusDomainsACLentryResource'{..}
= object
(catMaybes
[("displayName" .=) <$> _pdarDisplayName,
("id" .=) <$> _pdarId, ("type" .=) <$> _pdarType])
newtype ActivityActorImage = ActivityActorImage'
{ _aaiURL :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
activityActorImage
:: ActivityActorImage
activityActorImage =
ActivityActorImage'
{ _aaiURL = Nothing
}
aaiURL :: Lens' ActivityActorImage (Maybe Text)
aaiURL = lens _aaiURL (\ s a -> s{_aaiURL = a})
instance FromJSON ActivityActorImage where
parseJSON
= withObject "ActivityActorImage"
(\ o -> ActivityActorImage' <$> (o .:? "url"))
instance ToJSON ActivityActorImage where
toJSON ActivityActorImage'{..}
= object (catMaybes [("url" .=) <$> _aaiURL])
data PeopleFeed = PeopleFeed'
{ _pfTotalItems :: !(Maybe (Textual Int32))
, _pfEtag :: !(Maybe Text)
, _pfNextPageToken :: !(Maybe Text)
, _pfKind :: !Text
, _pfItems :: !(Maybe [Person])
, _pfSelfLink :: !(Maybe Text)
, _pfTitle :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
peopleFeed
:: PeopleFeed
peopleFeed =
PeopleFeed'
{ _pfTotalItems = Nothing
, _pfEtag = Nothing
, _pfNextPageToken = Nothing
, _pfKind = "plus#peopleFeed"
, _pfItems = Nothing
, _pfSelfLink = Nothing
, _pfTitle = Nothing
}
pfTotalItems :: Lens' PeopleFeed (Maybe Int32)
pfTotalItems
= lens _pfTotalItems (\ s a -> s{_pfTotalItems = a})
. mapping _Coerce
pfEtag :: Lens' PeopleFeed (Maybe Text)
pfEtag = lens _pfEtag (\ s a -> s{_pfEtag = a})
pfNextPageToken :: Lens' PeopleFeed (Maybe Text)
pfNextPageToken
= lens _pfNextPageToken
(\ s a -> s{_pfNextPageToken = a})
pfKind :: Lens' PeopleFeed Text
pfKind = lens _pfKind (\ s a -> s{_pfKind = a})
pfItems :: Lens' PeopleFeed [Person]
pfItems
= lens _pfItems (\ s a -> s{_pfItems = a}) . _Default
. _Coerce
pfSelfLink :: Lens' PeopleFeed (Maybe Text)
pfSelfLink
= lens _pfSelfLink (\ s a -> s{_pfSelfLink = a})
pfTitle :: Lens' PeopleFeed (Maybe Text)
pfTitle = lens _pfTitle (\ s a -> s{_pfTitle = a})
instance FromJSON PeopleFeed where
parseJSON
= withObject "PeopleFeed"
(\ o ->
PeopleFeed' <$>
(o .:? "totalItems") <*> (o .:? "etag") <*>
(o .:? "nextPageToken")
<*> (o .:? "kind" .!= "plus#peopleFeed")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "title"))
instance ToJSON PeopleFeed where
toJSON PeopleFeed'{..}
= object
(catMaybes
[("totalItems" .=) <$> _pfTotalItems,
("etag" .=) <$> _pfEtag,
("nextPageToken" .=) <$> _pfNextPageToken,
Just ("kind" .= _pfKind), ("items" .=) <$> _pfItems,
("selfLink" .=) <$> _pfSelfLink,
("title" .=) <$> _pfTitle])
data PersonCoverCoverPhoto = PersonCoverCoverPhoto'
{ _pccpHeight :: !(Maybe (Textual Int32))
, _pccpURL :: !(Maybe Text)
, _pccpWidth :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
personCoverCoverPhoto
:: PersonCoverCoverPhoto
personCoverCoverPhoto =
PersonCoverCoverPhoto'
{ _pccpHeight = Nothing
, _pccpURL = Nothing
, _pccpWidth = Nothing
}
pccpHeight :: Lens' PersonCoverCoverPhoto (Maybe Int32)
pccpHeight
= lens _pccpHeight (\ s a -> s{_pccpHeight = a}) .
mapping _Coerce
pccpURL :: Lens' PersonCoverCoverPhoto (Maybe Text)
pccpURL = lens _pccpURL (\ s a -> s{_pccpURL = a})
pccpWidth :: Lens' PersonCoverCoverPhoto (Maybe Int32)
pccpWidth
= lens _pccpWidth (\ s a -> s{_pccpWidth = a}) .
mapping _Coerce
instance FromJSON PersonCoverCoverPhoto where
parseJSON
= withObject "PersonCoverCoverPhoto"
(\ o ->
PersonCoverCoverPhoto' <$>
(o .:? "height") <*> (o .:? "url") <*>
(o .:? "width"))
instance ToJSON PersonCoverCoverPhoto where
toJSON PersonCoverCoverPhoto'{..}
= object
(catMaybes
[("height" .=) <$> _pccpHeight,
("url" .=) <$> _pccpURL,
("width" .=) <$> _pccpWidth])
data MediaAuthor = MediaAuthor'
{ _maImage :: !(Maybe MediaAuthorImage)
, _maURL :: !(Maybe Text)
, _maDisplayName :: !(Maybe Text)
, _maId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
mediaAuthor
:: MediaAuthor
mediaAuthor =
MediaAuthor'
{ _maImage = Nothing
, _maURL = Nothing
, _maDisplayName = Nothing
, _maId = Nothing
}
maImage :: Lens' MediaAuthor (Maybe MediaAuthorImage)
maImage = lens _maImage (\ s a -> s{_maImage = a})
maURL :: Lens' MediaAuthor (Maybe Text)
maURL = lens _maURL (\ s a -> s{_maURL = a})
maDisplayName :: Lens' MediaAuthor (Maybe Text)
maDisplayName
= lens _maDisplayName
(\ s a -> s{_maDisplayName = a})
maId :: Lens' MediaAuthor (Maybe Text)
maId = lens _maId (\ s a -> s{_maId = a})
instance FromJSON MediaAuthor where
parseJSON
= withObject "MediaAuthor"
(\ o ->
MediaAuthor' <$>
(o .:? "image") <*> (o .:? "url") <*>
(o .:? "displayName")
<*> (o .:? "id"))
instance ToJSON MediaAuthor where
toJSON MediaAuthor'{..}
= object
(catMaybes
[("image" .=) <$> _maImage, ("url" .=) <$> _maURL,
("displayName" .=) <$> _maDisplayName,
("id" .=) <$> _maId])
newtype ActivityObjectActorImage = ActivityObjectActorImage'
{ _aoaiURL :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectActorImage
:: ActivityObjectActorImage
activityObjectActorImage =
ActivityObjectActorImage'
{ _aoaiURL = Nothing
}
aoaiURL :: Lens' ActivityObjectActorImage (Maybe Text)
aoaiURL = lens _aoaiURL (\ s a -> s{_aoaiURL = a})
instance FromJSON ActivityObjectActorImage where
parseJSON
= withObject "ActivityObjectActorImage"
(\ o -> ActivityObjectActorImage' <$> (o .:? "url"))
instance ToJSON ActivityObjectActorImage where
toJSON ActivityObjectActorImage'{..}
= object (catMaybes [("url" .=) <$> _aoaiURL])
newtype CommentActorClientSpecificActorInfoYouTubeActorInfo = CommentActorClientSpecificActorInfoYouTubeActorInfo'
{ _cacsaiytaiChannelId :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
commentActorClientSpecificActorInfoYouTubeActorInfo
:: CommentActorClientSpecificActorInfoYouTubeActorInfo
commentActorClientSpecificActorInfoYouTubeActorInfo =
CommentActorClientSpecificActorInfoYouTubeActorInfo'
{ _cacsaiytaiChannelId = Nothing
}
cacsaiytaiChannelId :: Lens' CommentActorClientSpecificActorInfoYouTubeActorInfo (Maybe Text)
cacsaiytaiChannelId
= lens _cacsaiytaiChannelId
(\ s a -> s{_cacsaiytaiChannelId = a})
instance FromJSON
CommentActorClientSpecificActorInfoYouTubeActorInfo
where
parseJSON
= withObject
"CommentActorClientSpecificActorInfoYouTubeActorInfo"
(\ o ->
CommentActorClientSpecificActorInfoYouTubeActorInfo'
<$> (o .:? "channelId"))
instance ToJSON
CommentActorClientSpecificActorInfoYouTubeActorInfo
where
toJSON
CommentActorClientSpecificActorInfoYouTubeActorInfo'{..}
= object
(catMaybes
[("channelId" .=) <$> _cacsaiytaiChannelId])
data Media = Media'
{ _mSizeBytes :: !(Maybe (Textual Int64))
, _mSummary :: !(Maybe Text)
, _mEtag :: !(Maybe Text)
, _mHeight :: !(Maybe (Textual Word32))
, _mVideoDuration :: !(Maybe (Textual Int64))
, _mVideoStatus :: !(Maybe Text)
, _mKind :: !Text
, _mPublished :: !(Maybe DateTime')
, _mURL :: !(Maybe Text)
, _mWidth :: !(Maybe (Textual Word32))
, _mMediaURL :: !(Maybe Text)
, _mStreams :: !(Maybe [Videostream])
, _mExif :: !(Maybe MediaExif)
, _mDisplayName :: !(Maybe Text)
, _mAuthor :: !(Maybe MediaAuthor)
, _mId :: !(Maybe Text)
, _mUpdated :: !(Maybe DateTime')
, _mMediaCreatedTime :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
media
:: Media
media =
Media'
{ _mSizeBytes = Nothing
, _mSummary = Nothing
, _mEtag = Nothing
, _mHeight = Nothing
, _mVideoDuration = Nothing
, _mVideoStatus = Nothing
, _mKind = "plus#media"
, _mPublished = Nothing
, _mURL = Nothing
, _mWidth = Nothing
, _mMediaURL = Nothing
, _mStreams = Nothing
, _mExif = Nothing
, _mDisplayName = Nothing
, _mAuthor = Nothing
, _mId = Nothing
, _mUpdated = Nothing
, _mMediaCreatedTime = Nothing
}
mSizeBytes :: Lens' Media (Maybe Int64)
mSizeBytes
= lens _mSizeBytes (\ s a -> s{_mSizeBytes = a}) .
mapping _Coerce
mSummary :: Lens' Media (Maybe Text)
mSummary = lens _mSummary (\ s a -> s{_mSummary = a})
mEtag :: Lens' Media (Maybe Text)
mEtag = lens _mEtag (\ s a -> s{_mEtag = a})
mHeight :: Lens' Media (Maybe Word32)
mHeight
= lens _mHeight (\ s a -> s{_mHeight = a}) .
mapping _Coerce
mVideoDuration :: Lens' Media (Maybe Int64)
mVideoDuration
= lens _mVideoDuration
(\ s a -> s{_mVideoDuration = a})
. mapping _Coerce
mVideoStatus :: Lens' Media (Maybe Text)
mVideoStatus
= lens _mVideoStatus (\ s a -> s{_mVideoStatus = a})
mKind :: Lens' Media Text
mKind = lens _mKind (\ s a -> s{_mKind = a})
mPublished :: Lens' Media (Maybe UTCTime)
mPublished
= lens _mPublished (\ s a -> s{_mPublished = a}) .
mapping _DateTime
mURL :: Lens' Media (Maybe Text)
mURL = lens _mURL (\ s a -> s{_mURL = a})
mWidth :: Lens' Media (Maybe Word32)
mWidth
= lens _mWidth (\ s a -> s{_mWidth = a}) .
mapping _Coerce
mMediaURL :: Lens' Media (Maybe Text)
mMediaURL
= lens _mMediaURL (\ s a -> s{_mMediaURL = a})
mStreams :: Lens' Media [Videostream]
mStreams
= lens _mStreams (\ s a -> s{_mStreams = a}) .
_Default
. _Coerce
mExif :: Lens' Media (Maybe MediaExif)
mExif = lens _mExif (\ s a -> s{_mExif = a})
mDisplayName :: Lens' Media (Maybe Text)
mDisplayName
= lens _mDisplayName (\ s a -> s{_mDisplayName = a})
mAuthor :: Lens' Media (Maybe MediaAuthor)
mAuthor = lens _mAuthor (\ s a -> s{_mAuthor = a})
mId :: Lens' Media (Maybe Text)
mId = lens _mId (\ s a -> s{_mId = a})
mUpdated :: Lens' Media (Maybe UTCTime)
mUpdated
= lens _mUpdated (\ s a -> s{_mUpdated = a}) .
mapping _DateTime
mMediaCreatedTime :: Lens' Media (Maybe UTCTime)
mMediaCreatedTime
= lens _mMediaCreatedTime
(\ s a -> s{_mMediaCreatedTime = a})
. mapping _DateTime
instance FromJSON Media where
parseJSON
= withObject "Media"
(\ o ->
Media' <$>
(o .:? "sizeBytes") <*> (o .:? "summary") <*>
(o .:? "etag")
<*> (o .:? "height")
<*> (o .:? "videoDuration")
<*> (o .:? "videoStatus")
<*> (o .:? "kind" .!= "plus#media")
<*> (o .:? "published")
<*> (o .:? "url")
<*> (o .:? "width")
<*> (o .:? "mediaUrl")
<*> (o .:? "streams" .!= mempty)
<*> (o .:? "exif")
<*> (o .:? "displayName")
<*> (o .:? "author")
<*> (o .:? "id")
<*> (o .:? "updated")
<*> (o .:? "mediaCreatedTime"))
instance ToJSON Media where
toJSON Media'{..}
= object
(catMaybes
[("sizeBytes" .=) <$> _mSizeBytes,
("summary" .=) <$> _mSummary, ("etag" .=) <$> _mEtag,
("height" .=) <$> _mHeight,
("videoDuration" .=) <$> _mVideoDuration,
("videoStatus" .=) <$> _mVideoStatus,
Just ("kind" .= _mKind),
("published" .=) <$> _mPublished,
("url" .=) <$> _mURL, ("width" .=) <$> _mWidth,
("mediaUrl" .=) <$> _mMediaURL,
("streams" .=) <$> _mStreams, ("exif" .=) <$> _mExif,
("displayName" .=) <$> _mDisplayName,
("author" .=) <$> _mAuthor, ("id" .=) <$> _mId,
("updated" .=) <$> _mUpdated,
("mediaCreatedTime" .=) <$> _mMediaCreatedTime])
data ActivityObjectReplies = ActivityObjectReplies'
{ _aorTotalItems :: !(Maybe (Textual Word32))
, _aorSelfLink :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectReplies
:: ActivityObjectReplies
activityObjectReplies =
ActivityObjectReplies'
{ _aorTotalItems = Nothing
, _aorSelfLink = Nothing
}
aorTotalItems :: Lens' ActivityObjectReplies (Maybe Word32)
aorTotalItems
= lens _aorTotalItems
(\ s a -> s{_aorTotalItems = a})
. mapping _Coerce
aorSelfLink :: Lens' ActivityObjectReplies (Maybe Text)
aorSelfLink
= lens _aorSelfLink (\ s a -> s{_aorSelfLink = a})
instance FromJSON ActivityObjectReplies where
parseJSON
= withObject "ActivityObjectReplies"
(\ o ->
ActivityObjectReplies' <$>
(o .:? "totalItems") <*> (o .:? "selfLink"))
instance ToJSON ActivityObjectReplies where
toJSON ActivityObjectReplies'{..}
= object
(catMaybes
[("totalItems" .=) <$> _aorTotalItems,
("selfLink" .=) <$> _aorSelfLink])
newtype ActivityObjectAttachmentsItemPreviewThumbnailsItem = ActivityObjectAttachmentsItemPreviewThumbnailsItem'
{ _aoaiptiURL :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectAttachmentsItemPreviewThumbnailsItem
:: ActivityObjectAttachmentsItemPreviewThumbnailsItem
activityObjectAttachmentsItemPreviewThumbnailsItem =
ActivityObjectAttachmentsItemPreviewThumbnailsItem'
{ _aoaiptiURL = Nothing
}
aoaiptiURL :: Lens' ActivityObjectAttachmentsItemPreviewThumbnailsItem (Maybe Text)
aoaiptiURL
= lens _aoaiptiURL (\ s a -> s{_aoaiptiURL = a})
instance FromJSON
ActivityObjectAttachmentsItemPreviewThumbnailsItem
where
parseJSON
= withObject
"ActivityObjectAttachmentsItemPreviewThumbnailsItem"
(\ o ->
ActivityObjectAttachmentsItemPreviewThumbnailsItem'
<$> (o .:? "url"))
instance ToJSON
ActivityObjectAttachmentsItemPreviewThumbnailsItem
where
toJSON
ActivityObjectAttachmentsItemPreviewThumbnailsItem'{..}
= object (catMaybes [("url" .=) <$> _aoaiptiURL])
newtype ActivityActorVerification = ActivityActorVerification'
{ _aavAdHocVerified :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
activityActorVerification
:: ActivityActorVerification
activityActorVerification =
ActivityActorVerification'
{ _aavAdHocVerified = Nothing
}
aavAdHocVerified :: Lens' ActivityActorVerification (Maybe Text)
aavAdHocVerified
= lens _aavAdHocVerified
(\ s a -> s{_aavAdHocVerified = a})
instance FromJSON ActivityActorVerification where
parseJSON
= withObject "ActivityActorVerification"
(\ o ->
ActivityActorVerification' <$>
(o .:? "adHocVerified"))
instance ToJSON ActivityActorVerification where
toJSON ActivityActorVerification'{..}
= object
(catMaybes
[("adHocVerified" .=) <$> _aavAdHocVerified])
newtype ActivityObjectActorClientSpecificActorInfo = ActivityObjectActorClientSpecificActorInfo'
{ _aoacsaiYouTubeActorInfo :: Maybe ActivityObjectActorClientSpecificActorInfoYouTubeActorInfo
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectActorClientSpecificActorInfo
:: ActivityObjectActorClientSpecificActorInfo
activityObjectActorClientSpecificActorInfo =
ActivityObjectActorClientSpecificActorInfo'
{ _aoacsaiYouTubeActorInfo = Nothing
}
aoacsaiYouTubeActorInfo :: Lens' ActivityObjectActorClientSpecificActorInfo (Maybe ActivityObjectActorClientSpecificActorInfoYouTubeActorInfo)
aoacsaiYouTubeActorInfo
= lens _aoacsaiYouTubeActorInfo
(\ s a -> s{_aoacsaiYouTubeActorInfo = a})
instance FromJSON
ActivityObjectActorClientSpecificActorInfo where
parseJSON
= withObject
"ActivityObjectActorClientSpecificActorInfo"
(\ o ->
ActivityObjectActorClientSpecificActorInfo' <$>
(o .:? "youtubeActorInfo"))
instance ToJSON
ActivityObjectActorClientSpecificActorInfo where
toJSON
ActivityObjectActorClientSpecificActorInfo'{..}
= object
(catMaybes
[("youtubeActorInfo" .=) <$>
_aoacsaiYouTubeActorInfo])
data ActivityObjectAttachmentsItem = ActivityObjectAttachmentsItem'
{ _aFullImage :: !(Maybe ActivityObjectAttachmentsItemFullImage)
, _aImage :: !(Maybe ActivityObjectAttachmentsItemImage)
, _aObjectType :: !(Maybe Text)
, _aPreviewThumbnails :: !(Maybe [ActivityObjectAttachmentsItemPreviewThumbnailsItem])
, _aURL :: !(Maybe Text)
, _aEmbed :: !(Maybe ActivityObjectAttachmentsItemEmbed)
, _aContent :: !(Maybe Text)
, _aThumbnails :: !(Maybe [ActivityObjectAttachmentsItemThumbnailsItem])
, _aDisplayName :: !(Maybe Text)
, _aId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectAttachmentsItem
:: ActivityObjectAttachmentsItem
activityObjectAttachmentsItem =
ActivityObjectAttachmentsItem'
{ _aFullImage = Nothing
, _aImage = Nothing
, _aObjectType = Nothing
, _aPreviewThumbnails = Nothing
, _aURL = Nothing
, _aEmbed = Nothing
, _aContent = Nothing
, _aThumbnails = Nothing
, _aDisplayName = Nothing
, _aId = Nothing
}
aFullImage :: Lens' ActivityObjectAttachmentsItem (Maybe ActivityObjectAttachmentsItemFullImage)
aFullImage
= lens _aFullImage (\ s a -> s{_aFullImage = a})
aImage :: Lens' ActivityObjectAttachmentsItem (Maybe ActivityObjectAttachmentsItemImage)
aImage = lens _aImage (\ s a -> s{_aImage = a})
aObjectType :: Lens' ActivityObjectAttachmentsItem (Maybe Text)
aObjectType
= lens _aObjectType (\ s a -> s{_aObjectType = a})
aPreviewThumbnails :: Lens' ActivityObjectAttachmentsItem [ActivityObjectAttachmentsItemPreviewThumbnailsItem]
aPreviewThumbnails
= lens _aPreviewThumbnails
(\ s a -> s{_aPreviewThumbnails = a})
. _Default
. _Coerce
aURL :: Lens' ActivityObjectAttachmentsItem (Maybe Text)
aURL = lens _aURL (\ s a -> s{_aURL = a})
aEmbed :: Lens' ActivityObjectAttachmentsItem (Maybe ActivityObjectAttachmentsItemEmbed)
aEmbed = lens _aEmbed (\ s a -> s{_aEmbed = a})
aContent :: Lens' ActivityObjectAttachmentsItem (Maybe Text)
aContent = lens _aContent (\ s a -> s{_aContent = a})
aThumbnails :: Lens' ActivityObjectAttachmentsItem [ActivityObjectAttachmentsItemThumbnailsItem]
aThumbnails
= lens _aThumbnails (\ s a -> s{_aThumbnails = a}) .
_Default
. _Coerce
aDisplayName :: Lens' ActivityObjectAttachmentsItem (Maybe Text)
aDisplayName
= lens _aDisplayName (\ s a -> s{_aDisplayName = a})
aId :: Lens' ActivityObjectAttachmentsItem (Maybe Text)
aId = lens _aId (\ s a -> s{_aId = a})
instance FromJSON ActivityObjectAttachmentsItem where
parseJSON
= withObject "ActivityObjectAttachmentsItem"
(\ o ->
ActivityObjectAttachmentsItem' <$>
(o .:? "fullImage") <*> (o .:? "image") <*>
(o .:? "objectType")
<*> (o .:? "previewThumbnails" .!= mempty)
<*> (o .:? "url")
<*> (o .:? "embed")
<*> (o .:? "content")
<*> (o .:? "thumbnails" .!= mempty)
<*> (o .:? "displayName")
<*> (o .:? "id"))
instance ToJSON ActivityObjectAttachmentsItem where
toJSON ActivityObjectAttachmentsItem'{..}
= object
(catMaybes
[("fullImage" .=) <$> _aFullImage,
("image" .=) <$> _aImage,
("objectType" .=) <$> _aObjectType,
("previewThumbnails" .=) <$> _aPreviewThumbnails,
("url" .=) <$> _aURL, ("embed" .=) <$> _aEmbed,
("content" .=) <$> _aContent,
("thumbnails" .=) <$> _aThumbnails,
("displayName" .=) <$> _aDisplayName,
("id" .=) <$> _aId])
data ActivityFeed = ActivityFeed'
{ _afEtag :: !(Maybe Text)
, _afNextPageToken :: !(Maybe Text)
, _afNextLink :: !(Maybe Text)
, _afKind :: !Text
, _afItems :: !(Maybe [Activity])
, _afSelfLink :: !(Maybe Text)
, _afId :: !(Maybe Text)
, _afUpdated :: !(Maybe DateTime')
, _afTitle :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
activityFeed
:: ActivityFeed
activityFeed =
ActivityFeed'
{ _afEtag = Nothing
, _afNextPageToken = Nothing
, _afNextLink = Nothing
, _afKind = "plus#activityFeed"
, _afItems = Nothing
, _afSelfLink = Nothing
, _afId = Nothing
, _afUpdated = Nothing
, _afTitle = Nothing
}
afEtag :: Lens' ActivityFeed (Maybe Text)
afEtag = lens _afEtag (\ s a -> s{_afEtag = a})
afNextPageToken :: Lens' ActivityFeed (Maybe Text)
afNextPageToken
= lens _afNextPageToken
(\ s a -> s{_afNextPageToken = a})
afNextLink :: Lens' ActivityFeed (Maybe Text)
afNextLink
= lens _afNextLink (\ s a -> s{_afNextLink = a})
afKind :: Lens' ActivityFeed Text
afKind = lens _afKind (\ s a -> s{_afKind = a})
afItems :: Lens' ActivityFeed [Activity]
afItems
= lens _afItems (\ s a -> s{_afItems = a}) . _Default
. _Coerce
afSelfLink :: Lens' ActivityFeed (Maybe Text)
afSelfLink
= lens _afSelfLink (\ s a -> s{_afSelfLink = a})
afId :: Lens' ActivityFeed (Maybe Text)
afId = lens _afId (\ s a -> s{_afId = a})
afUpdated :: Lens' ActivityFeed (Maybe UTCTime)
afUpdated
= lens _afUpdated (\ s a -> s{_afUpdated = a}) .
mapping _DateTime
afTitle :: Lens' ActivityFeed (Maybe Text)
afTitle = lens _afTitle (\ s a -> s{_afTitle = a})
instance FromJSON ActivityFeed where
parseJSON
= withObject "ActivityFeed"
(\ o ->
ActivityFeed' <$>
(o .:? "etag") <*> (o .:? "nextPageToken") <*>
(o .:? "nextLink")
<*> (o .:? "kind" .!= "plus#activityFeed")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "selfLink")
<*> (o .:? "id")
<*> (o .:? "updated")
<*> (o .:? "title"))
instance ToJSON ActivityFeed where
toJSON ActivityFeed'{..}
= object
(catMaybes
[("etag" .=) <$> _afEtag,
("nextPageToken" .=) <$> _afNextPageToken,
("nextLink" .=) <$> _afNextLink,
Just ("kind" .= _afKind), ("items" .=) <$> _afItems,
("selfLink" .=) <$> _afSelfLink, ("id" .=) <$> _afId,
("updated" .=) <$> _afUpdated,
("title" .=) <$> _afTitle])
newtype ActivityObjectActorVerification = ActivityObjectActorVerification'
{ _aoavAdHocVerified :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectActorVerification
:: ActivityObjectActorVerification
activityObjectActorVerification =
ActivityObjectActorVerification'
{ _aoavAdHocVerified = Nothing
}
aoavAdHocVerified :: Lens' ActivityObjectActorVerification (Maybe Text)
aoavAdHocVerified
= lens _aoavAdHocVerified
(\ s a -> s{_aoavAdHocVerified = a})
instance FromJSON ActivityObjectActorVerification
where
parseJSON
= withObject "ActivityObjectActorVerification"
(\ o ->
ActivityObjectActorVerification' <$>
(o .:? "adHocVerified"))
instance ToJSON ActivityObjectActorVerification where
toJSON ActivityObjectActorVerification'{..}
= object
(catMaybes
[("adHocVerified" .=) <$> _aoavAdHocVerified])
data PersonName = PersonName'
{ _pnGivenName :: !(Maybe Text)
, _pnMiddleName :: !(Maybe Text)
, _pnFormatted :: !(Maybe Text)
, _pnHonorificPrefix :: !(Maybe Text)
, _pnFamilyName :: !(Maybe Text)
, _pnHonorificSuffix :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
personName
:: PersonName
personName =
PersonName'
{ _pnGivenName = Nothing
, _pnMiddleName = Nothing
, _pnFormatted = Nothing
, _pnHonorificPrefix = Nothing
, _pnFamilyName = Nothing
, _pnHonorificSuffix = Nothing
}
pnGivenName :: Lens' PersonName (Maybe Text)
pnGivenName
= lens _pnGivenName (\ s a -> s{_pnGivenName = a})
pnMiddleName :: Lens' PersonName (Maybe Text)
pnMiddleName
= lens _pnMiddleName (\ s a -> s{_pnMiddleName = a})
pnFormatted :: Lens' PersonName (Maybe Text)
pnFormatted
= lens _pnFormatted (\ s a -> s{_pnFormatted = a})
pnHonorificPrefix :: Lens' PersonName (Maybe Text)
pnHonorificPrefix
= lens _pnHonorificPrefix
(\ s a -> s{_pnHonorificPrefix = a})
pnFamilyName :: Lens' PersonName (Maybe Text)
pnFamilyName
= lens _pnFamilyName (\ s a -> s{_pnFamilyName = a})
pnHonorificSuffix :: Lens' PersonName (Maybe Text)
pnHonorificSuffix
= lens _pnHonorificSuffix
(\ s a -> s{_pnHonorificSuffix = a})
instance FromJSON PersonName where
parseJSON
= withObject "PersonName"
(\ o ->
PersonName' <$>
(o .:? "givenName") <*> (o .:? "middleName") <*>
(o .:? "formatted")
<*> (o .:? "honorificPrefix")
<*> (o .:? "familyName")
<*> (o .:? "honorificSuffix"))
instance ToJSON PersonName where
toJSON PersonName'{..}
= object
(catMaybes
[("givenName" .=) <$> _pnGivenName,
("middleName" .=) <$> _pnMiddleName,
("formatted" .=) <$> _pnFormatted,
("honorificPrefix" .=) <$> _pnHonorificPrefix,
("familyName" .=) <$> _pnFamilyName,
("honorificSuffix" .=) <$> _pnHonorificSuffix])
data PersonImage = PersonImage'
{ _piURL :: !(Maybe Text)
, _piIsDefault :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
personImage
:: PersonImage
personImage =
PersonImage'
{ _piURL = Nothing
, _piIsDefault = Nothing
}
piURL :: Lens' PersonImage (Maybe Text)
piURL = lens _piURL (\ s a -> s{_piURL = a})
piIsDefault :: Lens' PersonImage (Maybe Bool)
piIsDefault
= lens _piIsDefault (\ s a -> s{_piIsDefault = a})
instance FromJSON PersonImage where
parseJSON
= withObject "PersonImage"
(\ o ->
PersonImage' <$>
(o .:? "url") <*> (o .:? "isDefault"))
instance ToJSON PersonImage where
toJSON PersonImage'{..}
= object
(catMaybes
[("url" .=) <$> _piURL,
("isDefault" .=) <$> _piIsDefault])
newtype ActivityActorClientSpecificActorInfoYouTubeActorInfo = ActivityActorClientSpecificActorInfoYouTubeActorInfo'
{ _aacsaiytaiChannelId :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
activityActorClientSpecificActorInfoYouTubeActorInfo
:: ActivityActorClientSpecificActorInfoYouTubeActorInfo
activityActorClientSpecificActorInfoYouTubeActorInfo =
ActivityActorClientSpecificActorInfoYouTubeActorInfo'
{ _aacsaiytaiChannelId = Nothing
}
aacsaiytaiChannelId :: Lens' ActivityActorClientSpecificActorInfoYouTubeActorInfo (Maybe Text)
aacsaiytaiChannelId
= lens _aacsaiytaiChannelId
(\ s a -> s{_aacsaiytaiChannelId = a})
instance FromJSON
ActivityActorClientSpecificActorInfoYouTubeActorInfo
where
parseJSON
= withObject
"ActivityActorClientSpecificActorInfoYouTubeActorInfo"
(\ o ->
ActivityActorClientSpecificActorInfoYouTubeActorInfo'
<$> (o .:? "channelId"))
instance ToJSON
ActivityActorClientSpecificActorInfoYouTubeActorInfo
where
toJSON
ActivityActorClientSpecificActorInfoYouTubeActorInfo'{..}
= object
(catMaybes
[("channelId" .=) <$> _aacsaiytaiChannelId])
data ActivityObjectStatusForViewer = ActivityObjectStatusForViewer'
{ _aosfvCanComment :: !(Maybe Bool)
, _aosfvResharingDisabled :: !(Maybe Bool)
, _aosfvCanUpdate :: !(Maybe Bool)
, _aosfvIsPlusOned :: !(Maybe Bool)
, _aosfvCanPlusone :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectStatusForViewer
:: ActivityObjectStatusForViewer
activityObjectStatusForViewer =
ActivityObjectStatusForViewer'
{ _aosfvCanComment = Nothing
, _aosfvResharingDisabled = Nothing
, _aosfvCanUpdate = Nothing
, _aosfvIsPlusOned = Nothing
, _aosfvCanPlusone = Nothing
}
aosfvCanComment :: Lens' ActivityObjectStatusForViewer (Maybe Bool)
aosfvCanComment
= lens _aosfvCanComment
(\ s a -> s{_aosfvCanComment = a})
aosfvResharingDisabled :: Lens' ActivityObjectStatusForViewer (Maybe Bool)
aosfvResharingDisabled
= lens _aosfvResharingDisabled
(\ s a -> s{_aosfvResharingDisabled = a})
aosfvCanUpdate :: Lens' ActivityObjectStatusForViewer (Maybe Bool)
aosfvCanUpdate
= lens _aosfvCanUpdate
(\ s a -> s{_aosfvCanUpdate = a})
aosfvIsPlusOned :: Lens' ActivityObjectStatusForViewer (Maybe Bool)
aosfvIsPlusOned
= lens _aosfvIsPlusOned
(\ s a -> s{_aosfvIsPlusOned = a})
aosfvCanPlusone :: Lens' ActivityObjectStatusForViewer (Maybe Bool)
aosfvCanPlusone
= lens _aosfvCanPlusone
(\ s a -> s{_aosfvCanPlusone = a})
instance FromJSON ActivityObjectStatusForViewer where
parseJSON
= withObject "ActivityObjectStatusForViewer"
(\ o ->
ActivityObjectStatusForViewer' <$>
(o .:? "canComment") <*> (o .:? "resharingDisabled")
<*> (o .:? "canUpdate")
<*> (o .:? "isPlusOned")
<*> (o .:? "canPlusone"))
instance ToJSON ActivityObjectStatusForViewer where
toJSON ActivityObjectStatusForViewer'{..}
= object
(catMaybes
[("canComment" .=) <$> _aosfvCanComment,
("resharingDisabled" .=) <$> _aosfvResharingDisabled,
("canUpdate" .=) <$> _aosfvCanUpdate,
("isPlusOned" .=) <$> _aosfvIsPlusOned,
("canPlusone" .=) <$> _aosfvCanPlusone])
data Activity = Activity'
{ _actAccess :: !(Maybe ACL)
, _actPlaceName :: !(Maybe Text)
, _actEtag :: !(Maybe Text)
, _actAnnotation :: !(Maybe Text)
, _actLocation :: !(Maybe Place)
, _actGeocode :: !(Maybe Text)
, _actKind :: !Text
, _actRadius :: !(Maybe Text)
, _actPublished :: !(Maybe DateTime')
, _actURL :: !(Maybe Text)
, _actActor :: !(Maybe ActivityActor)
, _actAddress :: !(Maybe Text)
, _actObject :: !(Maybe ActivityObject)
, _actId :: !(Maybe Text)
, _actUpdated :: !(Maybe DateTime')
, _actTitle :: !(Maybe Text)
, _actVerb :: !(Maybe Text)
, _actCrosspostSource :: !(Maybe Text)
, _actPlaceId :: !(Maybe Text)
, _actProvider :: !(Maybe ActivityProvider)
} deriving (Eq,Show,Data,Typeable,Generic)
activity
:: Activity
activity =
Activity'
{ _actAccess = Nothing
, _actPlaceName = Nothing
, _actEtag = Nothing
, _actAnnotation = Nothing
, _actLocation = Nothing
, _actGeocode = Nothing
, _actKind = "plus#activity"
, _actRadius = Nothing
, _actPublished = Nothing
, _actURL = Nothing
, _actActor = Nothing
, _actAddress = Nothing
, _actObject = Nothing
, _actId = Nothing
, _actUpdated = Nothing
, _actTitle = Nothing
, _actVerb = Nothing
, _actCrosspostSource = Nothing
, _actPlaceId = Nothing
, _actProvider = Nothing
}
actAccess :: Lens' Activity (Maybe ACL)
actAccess
= lens _actAccess (\ s a -> s{_actAccess = a})
actPlaceName :: Lens' Activity (Maybe Text)
actPlaceName
= lens _actPlaceName (\ s a -> s{_actPlaceName = a})
actEtag :: Lens' Activity (Maybe Text)
actEtag = lens _actEtag (\ s a -> s{_actEtag = a})
actAnnotation :: Lens' Activity (Maybe Text)
actAnnotation
= lens _actAnnotation
(\ s a -> s{_actAnnotation = a})
actLocation :: Lens' Activity (Maybe Place)
actLocation
= lens _actLocation (\ s a -> s{_actLocation = a})
actGeocode :: Lens' Activity (Maybe Text)
actGeocode
= lens _actGeocode (\ s a -> s{_actGeocode = a})
actKind :: Lens' Activity Text
actKind = lens _actKind (\ s a -> s{_actKind = a})
actRadius :: Lens' Activity (Maybe Text)
actRadius
= lens _actRadius (\ s a -> s{_actRadius = a})
actPublished :: Lens' Activity (Maybe UTCTime)
actPublished
= lens _actPublished (\ s a -> s{_actPublished = a})
. mapping _DateTime
actURL :: Lens' Activity (Maybe Text)
actURL = lens _actURL (\ s a -> s{_actURL = a})
actActor :: Lens' Activity (Maybe ActivityActor)
actActor = lens _actActor (\ s a -> s{_actActor = a})
actAddress :: Lens' Activity (Maybe Text)
actAddress
= lens _actAddress (\ s a -> s{_actAddress = a})
actObject :: Lens' Activity (Maybe ActivityObject)
actObject
= lens _actObject (\ s a -> s{_actObject = a})
actId :: Lens' Activity (Maybe Text)
actId = lens _actId (\ s a -> s{_actId = a})
actUpdated :: Lens' Activity (Maybe UTCTime)
actUpdated
= lens _actUpdated (\ s a -> s{_actUpdated = a}) .
mapping _DateTime
actTitle :: Lens' Activity (Maybe Text)
actTitle = lens _actTitle (\ s a -> s{_actTitle = a})
actVerb :: Lens' Activity (Maybe Text)
actVerb = lens _actVerb (\ s a -> s{_actVerb = a})
actCrosspostSource :: Lens' Activity (Maybe Text)
actCrosspostSource
= lens _actCrosspostSource
(\ s a -> s{_actCrosspostSource = a})
actPlaceId :: Lens' Activity (Maybe Text)
actPlaceId
= lens _actPlaceId (\ s a -> s{_actPlaceId = a})
actProvider :: Lens' Activity (Maybe ActivityProvider)
actProvider
= lens _actProvider (\ s a -> s{_actProvider = a})
instance FromJSON Activity where
parseJSON
= withObject "Activity"
(\ o ->
Activity' <$>
(o .:? "access") <*> (o .:? "placeName") <*>
(o .:? "etag")
<*> (o .:? "annotation")
<*> (o .:? "location")
<*> (o .:? "geocode")
<*> (o .:? "kind" .!= "plus#activity")
<*> (o .:? "radius")
<*> (o .:? "published")
<*> (o .:? "url")
<*> (o .:? "actor")
<*> (o .:? "address")
<*> (o .:? "object")
<*> (o .:? "id")
<*> (o .:? "updated")
<*> (o .:? "title")
<*> (o .:? "verb")
<*> (o .:? "crosspostSource")
<*> (o .:? "placeId")
<*> (o .:? "provider"))
instance ToJSON Activity where
toJSON Activity'{..}
= object
(catMaybes
[("access" .=) <$> _actAccess,
("placeName" .=) <$> _actPlaceName,
("etag" .=) <$> _actEtag,
("annotation" .=) <$> _actAnnotation,
("location" .=) <$> _actLocation,
("geocode" .=) <$> _actGeocode,
Just ("kind" .= _actKind),
("radius" .=) <$> _actRadius,
("published" .=) <$> _actPublished,
("url" .=) <$> _actURL, ("actor" .=) <$> _actActor,
("address" .=) <$> _actAddress,
("object" .=) <$> _actObject, ("id" .=) <$> _actId,
("updated" .=) <$> _actUpdated,
("title" .=) <$> _actTitle, ("verb" .=) <$> _actVerb,
("crosspostSource" .=) <$> _actCrosspostSource,
("placeId" .=) <$> _actPlaceId,
("provider" .=) <$> _actProvider])
newtype PlaceAddress = PlaceAddress'
{ _paFormatted :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
placeAddress
:: PlaceAddress
placeAddress =
PlaceAddress'
{ _paFormatted = Nothing
}
paFormatted :: Lens' PlaceAddress (Maybe Text)
paFormatted
= lens _paFormatted (\ s a -> s{_paFormatted = a})
instance FromJSON PlaceAddress where
parseJSON
= withObject "PlaceAddress"
(\ o -> PlaceAddress' <$> (o .:? "formatted"))
instance ToJSON PlaceAddress where
toJSON PlaceAddress'{..}
= object
(catMaybes [("formatted" .=) <$> _paFormatted])
data AudiencesFeed = AudiencesFeed'
{ _audTotalItems :: !(Maybe (Textual Int32))
, _audEtag :: !(Maybe Text)
, _audNextPageToken :: !(Maybe Text)
, _audKind :: !Text
, _audItems :: !(Maybe [Audience])
} deriving (Eq,Show,Data,Typeable,Generic)
audiencesFeed
:: AudiencesFeed
audiencesFeed =
AudiencesFeed'
{ _audTotalItems = Nothing
, _audEtag = Nothing
, _audNextPageToken = Nothing
, _audKind = "plus#audiencesFeed"
, _audItems = Nothing
}
audTotalItems :: Lens' AudiencesFeed (Maybe Int32)
audTotalItems
= lens _audTotalItems
(\ s a -> s{_audTotalItems = a})
. mapping _Coerce
audEtag :: Lens' AudiencesFeed (Maybe Text)
audEtag = lens _audEtag (\ s a -> s{_audEtag = a})
audNextPageToken :: Lens' AudiencesFeed (Maybe Text)
audNextPageToken
= lens _audNextPageToken
(\ s a -> s{_audNextPageToken = a})
audKind :: Lens' AudiencesFeed Text
audKind = lens _audKind (\ s a -> s{_audKind = a})
audItems :: Lens' AudiencesFeed [Audience]
audItems
= lens _audItems (\ s a -> s{_audItems = a}) .
_Default
. _Coerce
instance FromJSON AudiencesFeed where
parseJSON
= withObject "AudiencesFeed"
(\ o ->
AudiencesFeed' <$>
(o .:? "totalItems") <*> (o .:? "etag") <*>
(o .:? "nextPageToken")
<*> (o .:? "kind" .!= "plus#audiencesFeed")
<*> (o .:? "items" .!= mempty))
instance ToJSON AudiencesFeed where
toJSON AudiencesFeed'{..}
= object
(catMaybes
[("totalItems" .=) <$> _audTotalItems,
("etag" .=) <$> _audEtag,
("nextPageToken" .=) <$> _audNextPageToken,
Just ("kind" .= _audKind),
("items" .=) <$> _audItems])
data ActivityObjectAttachmentsItemThumbnailsItem = ActivityObjectAttachmentsItemThumbnailsItem'
{ _aoaitiImage :: !(Maybe ActivityObjectAttachmentsItemThumbnailsItemImage)
, _aoaitiURL :: !(Maybe Text)
, _aoaitiDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectAttachmentsItemThumbnailsItem
:: ActivityObjectAttachmentsItemThumbnailsItem
activityObjectAttachmentsItemThumbnailsItem =
ActivityObjectAttachmentsItemThumbnailsItem'
{ _aoaitiImage = Nothing
, _aoaitiURL = Nothing
, _aoaitiDescription = Nothing
}
aoaitiImage :: Lens' ActivityObjectAttachmentsItemThumbnailsItem (Maybe ActivityObjectAttachmentsItemThumbnailsItemImage)
aoaitiImage
= lens _aoaitiImage (\ s a -> s{_aoaitiImage = a})
aoaitiURL :: Lens' ActivityObjectAttachmentsItemThumbnailsItem (Maybe Text)
aoaitiURL
= lens _aoaitiURL (\ s a -> s{_aoaitiURL = a})
aoaitiDescription :: Lens' ActivityObjectAttachmentsItemThumbnailsItem (Maybe Text)
aoaitiDescription
= lens _aoaitiDescription
(\ s a -> s{_aoaitiDescription = a})
instance FromJSON
ActivityObjectAttachmentsItemThumbnailsItem where
parseJSON
= withObject
"ActivityObjectAttachmentsItemThumbnailsItem"
(\ o ->
ActivityObjectAttachmentsItemThumbnailsItem' <$>
(o .:? "image") <*> (o .:? "url") <*>
(o .:? "description"))
instance ToJSON
ActivityObjectAttachmentsItemThumbnailsItem where
toJSON
ActivityObjectAttachmentsItemThumbnailsItem'{..}
= object
(catMaybes
[("image" .=) <$> _aoaitiImage,
("url" .=) <$> _aoaitiURL,
("description" .=) <$> _aoaitiDescription])
data PersonCover = PersonCover'
{ _pcLayout :: !(Maybe Text)
, _pcCoverInfo :: !(Maybe PersonCoverCoverInfo)
, _pcCoverPhoto :: !(Maybe PersonCoverCoverPhoto)
} deriving (Eq,Show,Data,Typeable,Generic)
personCover
:: PersonCover
personCover =
PersonCover'
{ _pcLayout = Nothing
, _pcCoverInfo = Nothing
, _pcCoverPhoto = Nothing
}
pcLayout :: Lens' PersonCover (Maybe Text)
pcLayout = lens _pcLayout (\ s a -> s{_pcLayout = a})
pcCoverInfo :: Lens' PersonCover (Maybe PersonCoverCoverInfo)
pcCoverInfo
= lens _pcCoverInfo (\ s a -> s{_pcCoverInfo = a})
pcCoverPhoto :: Lens' PersonCover (Maybe PersonCoverCoverPhoto)
pcCoverPhoto
= lens _pcCoverPhoto (\ s a -> s{_pcCoverPhoto = a})
instance FromJSON PersonCover where
parseJSON
= withObject "PersonCover"
(\ o ->
PersonCover' <$>
(o .:? "layout") <*> (o .:? "coverInfo") <*>
(o .:? "coverPhoto"))
instance ToJSON PersonCover where
toJSON PersonCover'{..}
= object
(catMaybes
[("layout" .=) <$> _pcLayout,
("coverInfo" .=) <$> _pcCoverInfo,
("coverPhoto" .=) <$> _pcCoverPhoto])
data CommentInReplyToItem = CommentInReplyToItem'
{ _cirtiURL :: !(Maybe Text)
, _cirtiId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
commentInReplyToItem
:: CommentInReplyToItem
commentInReplyToItem =
CommentInReplyToItem'
{ _cirtiURL = Nothing
, _cirtiId = Nothing
}
cirtiURL :: Lens' CommentInReplyToItem (Maybe Text)
cirtiURL = lens _cirtiURL (\ s a -> s{_cirtiURL = a})
cirtiId :: Lens' CommentInReplyToItem (Maybe Text)
cirtiId = lens _cirtiId (\ s a -> s{_cirtiId = a})
instance FromJSON CommentInReplyToItem where
parseJSON
= withObject "CommentInReplyToItem"
(\ o ->
CommentInReplyToItem' <$>
(o .:? "url") <*> (o .:? "id"))
instance ToJSON CommentInReplyToItem where
toJSON CommentInReplyToItem'{..}
= object
(catMaybes
[("url" .=) <$> _cirtiURL, ("id" .=) <$> _cirtiId])
data PersonOrganizationsItem = PersonOrganizationsItem'
{ _poiDePartment :: !(Maybe Text)
, _poiLocation :: !(Maybe Text)
, _poiEndDate :: !(Maybe Text)
, _poiPrimary :: !(Maybe Bool)
, _poiStartDate :: !(Maybe Text)
, _poiName :: !(Maybe Text)
, _poiTitle :: !(Maybe Text)
, _poiType :: !(Maybe Text)
, _poiDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
personOrganizationsItem
:: PersonOrganizationsItem
personOrganizationsItem =
PersonOrganizationsItem'
{ _poiDePartment = Nothing
, _poiLocation = Nothing
, _poiEndDate = Nothing
, _poiPrimary = Nothing
, _poiStartDate = Nothing
, _poiName = Nothing
, _poiTitle = Nothing
, _poiType = Nothing
, _poiDescription = Nothing
}
poiDePartment :: Lens' PersonOrganizationsItem (Maybe Text)
poiDePartment
= lens _poiDePartment
(\ s a -> s{_poiDePartment = a})
poiLocation :: Lens' PersonOrganizationsItem (Maybe Text)
poiLocation
= lens _poiLocation (\ s a -> s{_poiLocation = a})
poiEndDate :: Lens' PersonOrganizationsItem (Maybe Text)
poiEndDate
= lens _poiEndDate (\ s a -> s{_poiEndDate = a})
poiPrimary :: Lens' PersonOrganizationsItem (Maybe Bool)
poiPrimary
= lens _poiPrimary (\ s a -> s{_poiPrimary = a})
poiStartDate :: Lens' PersonOrganizationsItem (Maybe Text)
poiStartDate
= lens _poiStartDate (\ s a -> s{_poiStartDate = a})
poiName :: Lens' PersonOrganizationsItem (Maybe Text)
poiName = lens _poiName (\ s a -> s{_poiName = a})
poiTitle :: Lens' PersonOrganizationsItem (Maybe Text)
poiTitle = lens _poiTitle (\ s a -> s{_poiTitle = a})
poiType :: Lens' PersonOrganizationsItem (Maybe Text)
poiType = lens _poiType (\ s a -> s{_poiType = a})
poiDescription :: Lens' PersonOrganizationsItem (Maybe Text)
poiDescription
= lens _poiDescription
(\ s a -> s{_poiDescription = a})
instance FromJSON PersonOrganizationsItem where
parseJSON
= withObject "PersonOrganizationsItem"
(\ o ->
PersonOrganizationsItem' <$>
(o .:? "department") <*> (o .:? "location") <*>
(o .:? "endDate")
<*> (o .:? "primary")
<*> (o .:? "startDate")
<*> (o .:? "name")
<*> (o .:? "title")
<*> (o .:? "type")
<*> (o .:? "description"))
instance ToJSON PersonOrganizationsItem where
toJSON PersonOrganizationsItem'{..}
= object
(catMaybes
[("department" .=) <$> _poiDePartment,
("location" .=) <$> _poiLocation,
("endDate" .=) <$> _poiEndDate,
("primary" .=) <$> _poiPrimary,
("startDate" .=) <$> _poiStartDate,
("name" .=) <$> _poiName, ("title" .=) <$> _poiTitle,
("type" .=) <$> _poiType,
("description" .=) <$> _poiDescription])
data PersonURLsItem = PersonURLsItem'
{ _puiValue :: !(Maybe Text)
, _puiType :: !(Maybe Text)
, _puiLabel :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
personURLsItem
:: PersonURLsItem
personURLsItem =
PersonURLsItem'
{ _puiValue = Nothing
, _puiType = Nothing
, _puiLabel = Nothing
}
puiValue :: Lens' PersonURLsItem (Maybe Text)
puiValue = lens _puiValue (\ s a -> s{_puiValue = a})
puiType :: Lens' PersonURLsItem (Maybe Text)
puiType = lens _puiType (\ s a -> s{_puiType = a})
puiLabel :: Lens' PersonURLsItem (Maybe Text)
puiLabel = lens _puiLabel (\ s a -> s{_puiLabel = a})
instance FromJSON PersonURLsItem where
parseJSON
= withObject "PersonURLsItem"
(\ o ->
PersonURLsItem' <$>
(o .:? "value") <*> (o .:? "type") <*>
(o .:? "label"))
instance ToJSON PersonURLsItem where
toJSON PersonURLsItem'{..}
= object
(catMaybes
[("value" .=) <$> _puiValue,
("type" .=) <$> _puiType,
("label" .=) <$> _puiLabel])
data PersonCoverCoverInfo = PersonCoverCoverInfo'
{ _pcciTopImageOffSet :: !(Maybe (Textual Int32))
, _pcciLeftImageOffSet :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
personCoverCoverInfo
:: PersonCoverCoverInfo
personCoverCoverInfo =
PersonCoverCoverInfo'
{ _pcciTopImageOffSet = Nothing
, _pcciLeftImageOffSet = Nothing
}
pcciTopImageOffSet :: Lens' PersonCoverCoverInfo (Maybe Int32)
pcciTopImageOffSet
= lens _pcciTopImageOffSet
(\ s a -> s{_pcciTopImageOffSet = a})
. mapping _Coerce
pcciLeftImageOffSet :: Lens' PersonCoverCoverInfo (Maybe Int32)
pcciLeftImageOffSet
= lens _pcciLeftImageOffSet
(\ s a -> s{_pcciLeftImageOffSet = a})
. mapping _Coerce
instance FromJSON PersonCoverCoverInfo where
parseJSON
= withObject "PersonCoverCoverInfo"
(\ o ->
PersonCoverCoverInfo' <$>
(o .:? "topImageOffset") <*>
(o .:? "leftImageOffset"))
instance ToJSON PersonCoverCoverInfo where
toJSON PersonCoverCoverInfo'{..}
= object
(catMaybes
[("topImageOffset" .=) <$> _pcciTopImageOffSet,
("leftImageOffset" .=) <$> _pcciLeftImageOffSet])
data ActivityObjectResharers = ActivityObjectResharers'
{ _aTotalItems :: !(Maybe (Textual Word32))
, _aSelfLink :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
activityObjectResharers
:: ActivityObjectResharers
activityObjectResharers =
ActivityObjectResharers'
{ _aTotalItems = Nothing
, _aSelfLink = Nothing
}
aTotalItems :: Lens' ActivityObjectResharers (Maybe Word32)
aTotalItems
= lens _aTotalItems (\ s a -> s{_aTotalItems = a}) .
mapping _Coerce
aSelfLink :: Lens' ActivityObjectResharers (Maybe Text)
aSelfLink
= lens _aSelfLink (\ s a -> s{_aSelfLink = a})
instance FromJSON ActivityObjectResharers where
parseJSON
= withObject "ActivityObjectResharers"
(\ o ->
ActivityObjectResharers' <$>
(o .:? "totalItems") <*> (o .:? "selfLink"))
instance ToJSON ActivityObjectResharers where
toJSON ActivityObjectResharers'{..}
= object
(catMaybes
[("totalItems" .=) <$> _aTotalItems,
("selfLink" .=) <$> _aSelfLink])
data Comment = Comment'
{ _comEtag :: !(Maybe Text)
, _comPlusoners :: !(Maybe CommentPlusoners)
, _comKind :: !Text
, _comPublished :: !(Maybe DateTime')
, _comActor :: !(Maybe CommentActor)
, _comSelfLink :: !(Maybe Text)
, _comObject :: !(Maybe CommentObject)
, _comId :: !(Maybe Text)
, _comUpdated :: !(Maybe DateTime')
, _comVerb :: !Text
, _comInReplyTo :: !(Maybe [CommentInReplyToItem])
} deriving (Eq,Show,Data,Typeable,Generic)
comment
:: Comment
comment =
Comment'
{ _comEtag = Nothing
, _comPlusoners = Nothing
, _comKind = "plus#comment"
, _comPublished = Nothing
, _comActor = Nothing
, _comSelfLink = Nothing
, _comObject = Nothing
, _comId = Nothing
, _comUpdated = Nothing
, _comVerb = "post"
, _comInReplyTo = Nothing
}
comEtag :: Lens' Comment (Maybe Text)
comEtag = lens _comEtag (\ s a -> s{_comEtag = a})
comPlusoners :: Lens' Comment (Maybe CommentPlusoners)
comPlusoners
= lens _comPlusoners (\ s a -> s{_comPlusoners = a})
comKind :: Lens' Comment Text
comKind = lens _comKind (\ s a -> s{_comKind = a})
comPublished :: Lens' Comment (Maybe UTCTime)
comPublished
= lens _comPublished (\ s a -> s{_comPublished = a})
. mapping _DateTime
comActor :: Lens' Comment (Maybe CommentActor)
comActor = lens _comActor (\ s a -> s{_comActor = a})
comSelfLink :: Lens' Comment (Maybe Text)
comSelfLink
= lens _comSelfLink (\ s a -> s{_comSelfLink = a})
comObject :: Lens' Comment (Maybe CommentObject)
comObject
= lens _comObject (\ s a -> s{_comObject = a})
comId :: Lens' Comment (Maybe Text)
comId = lens _comId (\ s a -> s{_comId = a})
comUpdated :: Lens' Comment (Maybe UTCTime)
comUpdated
= lens _comUpdated (\ s a -> s{_comUpdated = a}) .
mapping _DateTime
comVerb :: Lens' Comment Text
comVerb = lens _comVerb (\ s a -> s{_comVerb = a})
comInReplyTo :: Lens' Comment [CommentInReplyToItem]
comInReplyTo
= lens _comInReplyTo (\ s a -> s{_comInReplyTo = a})
. _Default
. _Coerce
instance FromJSON Comment where
parseJSON
= withObject "Comment"
(\ o ->
Comment' <$>
(o .:? "etag") <*> (o .:? "plusoners") <*>
(o .:? "kind" .!= "plus#comment")
<*> (o .:? "published")
<*> (o .:? "actor")
<*> (o .:? "selfLink")
<*> (o .:? "object")
<*> (o .:? "id")
<*> (o .:? "updated")
<*> (o .:? "verb" .!= "post")
<*> (o .:? "inReplyTo" .!= mempty))
instance ToJSON Comment where
toJSON Comment'{..}
= object
(catMaybes
[("etag" .=) <$> _comEtag,
("plusoners" .=) <$> _comPlusoners,
Just ("kind" .= _comKind),
("published" .=) <$> _comPublished,
("actor" .=) <$> _comActor,
("selfLink" .=) <$> _comSelfLink,
("object" .=) <$> _comObject, ("id" .=) <$> _comId,
("updated" .=) <$> _comUpdated,
Just ("verb" .= _comVerb),
("inReplyTo" .=) <$> _comInReplyTo])
data Place = Place'
{ _plaKind :: !Text
, _plaAddress :: !(Maybe PlaceAddress)
, _plaDisplayName :: !(Maybe Text)
, _plaId :: !(Maybe Text)
, _plaPosition :: !(Maybe PlacePosition)
} deriving (Eq,Show,Data,Typeable,Generic)
place
:: Place
place =
Place'
{ _plaKind = "plus#place"
, _plaAddress = Nothing
, _plaDisplayName = Nothing
, _plaId = Nothing
, _plaPosition = Nothing
}
plaKind :: Lens' Place Text
plaKind = lens _plaKind (\ s a -> s{_plaKind = a})
plaAddress :: Lens' Place (Maybe PlaceAddress)
plaAddress
= lens _plaAddress (\ s a -> s{_plaAddress = a})
plaDisplayName :: Lens' Place (Maybe Text)
plaDisplayName
= lens _plaDisplayName
(\ s a -> s{_plaDisplayName = a})
plaId :: Lens' Place (Maybe Text)
plaId = lens _plaId (\ s a -> s{_plaId = a})
plaPosition :: Lens' Place (Maybe PlacePosition)
plaPosition
= lens _plaPosition (\ s a -> s{_plaPosition = a})
instance FromJSON Place where
parseJSON
= withObject "Place"
(\ o ->
Place' <$>
(o .:? "kind" .!= "plus#place") <*> (o .:? "address")
<*> (o .:? "displayName")
<*> (o .:? "id")
<*> (o .:? "position"))
instance ToJSON Place where
toJSON Place'{..}
= object
(catMaybes
[Just ("kind" .= _plaKind),
("address" .=) <$> _plaAddress,
("displayName" .=) <$> _plaDisplayName,
("id" .=) <$> _plaId,
("position" .=) <$> _plaPosition])
data ACL = ACL'
{ _aclcKind :: !Text
, _aclcItems :: !(Maybe [PlusDomainsACLentryResource])
, _aclcDomainRestricted :: !(Maybe Bool)
, _aclcDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
acl
:: ACL
acl =
ACL'
{ _aclcKind = "plus#acl"
, _aclcItems = Nothing
, _aclcDomainRestricted = Nothing
, _aclcDescription = Nothing
}
aclcKind :: Lens' ACL Text
aclcKind = lens _aclcKind (\ s a -> s{_aclcKind = a})
aclcItems :: Lens' ACL [PlusDomainsACLentryResource]
aclcItems
= lens _aclcItems (\ s a -> s{_aclcItems = a}) .
_Default
. _Coerce
aclcDomainRestricted :: Lens' ACL (Maybe Bool)
aclcDomainRestricted
= lens _aclcDomainRestricted
(\ s a -> s{_aclcDomainRestricted = a})
aclcDescription :: Lens' ACL (Maybe Text)
aclcDescription
= lens _aclcDescription
(\ s a -> s{_aclcDescription = a})
instance FromJSON ACL where
parseJSON
= withObject "ACL"
(\ o ->
ACL' <$>
(o .:? "kind" .!= "plus#acl") <*>
(o .:? "items" .!= mempty)
<*> (o .:? "domainRestricted")
<*> (o .:? "description"))
instance ToJSON ACL where
toJSON ACL'{..}
= object
(catMaybes
[Just ("kind" .= _aclcKind),
("items" .=) <$> _aclcItems,
("domainRestricted" .=) <$> _aclcDomainRestricted,
("description" .=) <$> _aclcDescription])
newtype MediaExif = MediaExif'
{ _meTime :: Maybe DateTime'
} deriving (Eq,Show,Data,Typeable,Generic)
mediaExif
:: MediaExif
mediaExif =
MediaExif'
{ _meTime = Nothing
}
meTime :: Lens' MediaExif (Maybe UTCTime)
meTime
= lens _meTime (\ s a -> s{_meTime = a}) .
mapping _DateTime
instance FromJSON MediaExif where
parseJSON
= withObject "MediaExif"
(\ o -> MediaExif' <$> (o .:? "time"))
instance ToJSON MediaExif where
toJSON MediaExif'{..}
= object (catMaybes [("time" .=) <$> _meTime])
data ActivityActor = ActivityActor'
{ _aaClientSpecificActorInfo :: !(Maybe ActivityActorClientSpecificActorInfo)
, _aaImage :: !(Maybe ActivityActorImage)
, _aaURL :: !(Maybe Text)
, _aaName :: !(Maybe ActivityActorName)
, _aaDisplayName :: !(Maybe Text)
, _aaId :: !(Maybe Text)
, _aaVerification :: !(Maybe ActivityActorVerification)
} deriving (Eq,Show,Data,Typeable,Generic)
activityActor
:: ActivityActor
activityActor =
ActivityActor'
{ _aaClientSpecificActorInfo = Nothing
, _aaImage = Nothing
, _aaURL = Nothing
, _aaName = Nothing
, _aaDisplayName = Nothing
, _aaId = Nothing
, _aaVerification = Nothing
}
aaClientSpecificActorInfo :: Lens' ActivityActor (Maybe ActivityActorClientSpecificActorInfo)
aaClientSpecificActorInfo
= lens _aaClientSpecificActorInfo
(\ s a -> s{_aaClientSpecificActorInfo = a})
aaImage :: Lens' ActivityActor (Maybe ActivityActorImage)
aaImage = lens _aaImage (\ s a -> s{_aaImage = a})
aaURL :: Lens' ActivityActor (Maybe Text)
aaURL = lens _aaURL (\ s a -> s{_aaURL = a})
aaName :: Lens' ActivityActor (Maybe ActivityActorName)
aaName = lens _aaName (\ s a -> s{_aaName = a})
aaDisplayName :: Lens' ActivityActor (Maybe Text)
aaDisplayName
= lens _aaDisplayName
(\ s a -> s{_aaDisplayName = a})
aaId :: Lens' ActivityActor (Maybe Text)
aaId = lens _aaId (\ s a -> s{_aaId = a})
aaVerification :: Lens' ActivityActor (Maybe ActivityActorVerification)
aaVerification
= lens _aaVerification
(\ s a -> s{_aaVerification = a})
instance FromJSON ActivityActor where
parseJSON
= withObject "ActivityActor"
(\ o ->
ActivityActor' <$>
(o .:? "clientSpecificActorInfo") <*> (o .:? "image")
<*> (o .:? "url")
<*> (o .:? "name")
<*> (o .:? "displayName")
<*> (o .:? "id")
<*> (o .:? "verification"))
instance ToJSON ActivityActor where
toJSON ActivityActor'{..}
= object
(catMaybes
[("clientSpecificActorInfo" .=) <$>
_aaClientSpecificActorInfo,
("image" .=) <$> _aaImage, ("url" .=) <$> _aaURL,
("name" .=) <$> _aaName,
("displayName" .=) <$> _aaDisplayName,
("id" .=) <$> _aaId,
("verification" .=) <$> _aaVerification])
data CommentObject = CommentObject'
{ _coObjectType :: !Text
, _coOriginalContent :: !(Maybe Text)
, _coContent :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
commentObject
:: CommentObject
commentObject =
CommentObject'
{ _coObjectType = "comment"
, _coOriginalContent = Nothing
, _coContent = Nothing
}
coObjectType :: Lens' CommentObject Text
coObjectType
= lens _coObjectType (\ s a -> s{_coObjectType = a})
coOriginalContent :: Lens' CommentObject (Maybe Text)
coOriginalContent
= lens _coOriginalContent
(\ s a -> s{_coOriginalContent = a})
coContent :: Lens' CommentObject (Maybe Text)
coContent
= lens _coContent (\ s a -> s{_coContent = a})
instance FromJSON CommentObject where
parseJSON
= withObject "CommentObject"
(\ o ->
CommentObject' <$>
(o .:? "objectType" .!= "comment") <*>
(o .:? "originalContent")
<*> (o .:? "content"))
instance ToJSON CommentObject where
toJSON CommentObject'{..}
= object
(catMaybes
[Just ("objectType" .= _coObjectType),
("originalContent" .=) <$> _coOriginalContent,
("content" .=) <$> _coContent])
data CommentFeed = CommentFeed'
{ _cffEtag :: !(Maybe Text)
, _cffNextPageToken :: !(Maybe Text)
, _cffNextLink :: !(Maybe Text)
, _cffKind :: !Text
, _cffItems :: !(Maybe [Comment])
, _cffId :: !(Maybe Text)
, _cffUpdated :: !(Maybe DateTime')
, _cffTitle :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
commentFeed
:: CommentFeed
commentFeed =
CommentFeed'
{ _cffEtag = Nothing
, _cffNextPageToken = Nothing
, _cffNextLink = Nothing
, _cffKind = "plus#commentFeed"
, _cffItems = Nothing
, _cffId = Nothing
, _cffUpdated = Nothing
, _cffTitle = Nothing
}
cffEtag :: Lens' CommentFeed (Maybe Text)
cffEtag = lens _cffEtag (\ s a -> s{_cffEtag = a})
cffNextPageToken :: Lens' CommentFeed (Maybe Text)
cffNextPageToken
= lens _cffNextPageToken
(\ s a -> s{_cffNextPageToken = a})
cffNextLink :: Lens' CommentFeed (Maybe Text)
cffNextLink
= lens _cffNextLink (\ s a -> s{_cffNextLink = a})
cffKind :: Lens' CommentFeed Text
cffKind = lens _cffKind (\ s a -> s{_cffKind = a})
cffItems :: Lens' CommentFeed [Comment]
cffItems
= lens _cffItems (\ s a -> s{_cffItems = a}) .
_Default
. _Coerce
cffId :: Lens' CommentFeed (Maybe Text)
cffId = lens _cffId (\ s a -> s{_cffId = a})
cffUpdated :: Lens' CommentFeed (Maybe UTCTime)
cffUpdated
= lens _cffUpdated (\ s a -> s{_cffUpdated = a}) .
mapping _DateTime
cffTitle :: Lens' CommentFeed (Maybe Text)
cffTitle = lens _cffTitle (\ s a -> s{_cffTitle = a})
instance FromJSON CommentFeed where
parseJSON
= withObject "CommentFeed"
(\ o ->
CommentFeed' <$>
(o .:? "etag") <*> (o .:? "nextPageToken") <*>
(o .:? "nextLink")
<*> (o .:? "kind" .!= "plus#commentFeed")
<*> (o .:? "items" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "updated")
<*> (o .:? "title"))
instance ToJSON CommentFeed where
toJSON CommentFeed'{..}
= object
(catMaybes
[("etag" .=) <$> _cffEtag,
("nextPageToken" .=) <$> _cffNextPageToken,
("nextLink" .=) <$> _cffNextLink,
Just ("kind" .= _cffKind),
("items" .=) <$> _cffItems, ("id" .=) <$> _cffId,
("updated" .=) <$> _cffUpdated,
("title" .=) <$> _cffTitle])
newtype CommentActorVerification = CommentActorVerification'
{ _cavAdHocVerified :: Maybe Text
} deriving (Eq,Show,Data,Typeable,Generic)
commentActorVerification
:: CommentActorVerification
commentActorVerification =
CommentActorVerification'
{ _cavAdHocVerified = Nothing
}
cavAdHocVerified :: Lens' CommentActorVerification (Maybe Text)
cavAdHocVerified
= lens _cavAdHocVerified
(\ s a -> s{_cavAdHocVerified = a})
instance FromJSON CommentActorVerification where
parseJSON
= withObject "CommentActorVerification"
(\ o ->
CommentActorVerification' <$>
(o .:? "adHocVerified"))
instance ToJSON CommentActorVerification where
toJSON CommentActorVerification'{..}
= object
(catMaybes
[("adHocVerified" .=) <$> _cavAdHocVerified])
data ActivityActorName = ActivityActorName'
{ _aanGivenName :: !(Maybe Text)
, _aanFamilyName :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
activityActorName
:: ActivityActorName
activityActorName =
ActivityActorName'
{ _aanGivenName = Nothing
, _aanFamilyName = Nothing
}
aanGivenName :: Lens' ActivityActorName (Maybe Text)
aanGivenName
= lens _aanGivenName (\ s a -> s{_aanGivenName = a})
aanFamilyName :: Lens' ActivityActorName (Maybe Text)
aanFamilyName
= lens _aanFamilyName
(\ s a -> s{_aanFamilyName = a})
instance FromJSON ActivityActorName where
parseJSON
= withObject "ActivityActorName"
(\ o ->
ActivityActorName' <$>
(o .:? "givenName") <*> (o .:? "familyName"))
instance ToJSON ActivityActorName where
toJSON ActivityActorName'{..}
= object
(catMaybes
[("givenName" .=) <$> _aanGivenName,
("familyName" .=) <$> _aanFamilyName])