{-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses #-} module Strive.Lenses.Instances where import Data.Aeson (Value) import Data.Text (Text) import Data.Time.Clock (UTCTime) import Network.HTTP.Client.Conduit (Manager) import Strive.Client import Strive.Lenses.Classes import Strive.Options import Strive.Types instance AccessTokenLens Client String where accessToken client = ( client_accessToken client , \ accessToken' -> client { client_accessToken = accessToken' } ) instance AccessTokenLens DeauthorizationResponse Text where accessToken deauthorizationResponse = ( deauthorizationResponse_accessToken deauthorizationResponse , \ accessToken' -> deauthorizationResponse { deauthorizationResponse_accessToken = accessToken' } ) instance AccessTokenLens TokenExchangeResponse Text where accessToken tokenExchangeResponse = ( tokenExchangeResponse_accessToken tokenExchangeResponse , \ accessToken' -> tokenExchangeResponse { tokenExchangeResponse_accessToken = accessToken' } ) instance AchievementCountLens ActivityDetailed Integer where achievementCount activityDetailed = ( activityDetailed_achievementCount activityDetailed , \ achievementCount' -> activityDetailed { activityDetailed_achievementCount = achievementCount' } ) instance AchievementCountLens ActivitySummary Integer where achievementCount activitySummary = ( activitySummary_achievementCount activitySummary , \ achievementCount' -> activitySummary { activitySummary_achievementCount = achievementCount' } ) instance ActivityIdLens ActivityLapSummary Integer where activityId activityLapSummary = ( activityLapSummary_activityId activityLapSummary , \ activityId' -> activityLapSummary { activityLapSummary_activityId = activityId' } ) instance ActivityIdLens CommentSummary Integer where activityId commentSummary = ( commentSummary_activityId commentSummary , \ activityId' -> commentSummary { commentSummary_activityId = activityId' } ) instance ActivityIdLens EffortDetailed Integer where activityId effortDetailed = ( effortDetailed_activityId effortDetailed , \ activityId' -> effortDetailed { effortDetailed_activityId = activityId' } ) instance ActivityIdLens PhotoSummary Integer where activityId photoSummary = ( photoSummary_activityId photoSummary , \ activityId' -> photoSummary { photoSummary_activityId = activityId' } ) instance ActivityIdLens SegmentLeaderboardEntry Integer where activityId segmentLeaderboardEntry = ( segmentLeaderboardEntry_activityId segmentLeaderboardEntry , \ activityId' -> segmentLeaderboardEntry { segmentLeaderboardEntry_activityId = activityId' } ) instance ActivityIdLens UploadStatus (Maybe Integer) where activityId uploadStatus = ( uploadStatus_activityId uploadStatus , \ activityId' -> uploadStatus { uploadStatus_activityId = activityId' } ) instance ActivityTypeLens ExploreSegmentsOptions String where activityType exploreSegmentsOptions = ( exploreSegmentsOptions_activityType exploreSegmentsOptions , \ activityType' -> exploreSegmentsOptions { exploreSegmentsOptions_activityType = activityType' } ) instance ActivityTypeLens SegmentDetailed Text where activityType segmentDetailed = ( segmentDetailed_activityType segmentDetailed , \ activityType' -> segmentDetailed { segmentDetailed_activityType = activityType' } ) instance ActivityTypeLens SegmentSummary Text where activityType segmentSummary = ( segmentSummary_activityType segmentSummary , \ activityType' -> segmentSummary { segmentSummary_activityType = activityType' } ) instance ActivityTypeLens UploadActivityOptions (Maybe String) where activityType uploadActivityOptions = ( uploadActivityOptions_activityType uploadActivityOptions , \ activityType' -> uploadActivityOptions { uploadActivityOptions_activityType = activityType' } ) instance AfterLens GetCurrentActivitiesOptions (Maybe UTCTime) where after getCurrentActivitiesOptions = ( getCurrentActivitiesOptions_after getCurrentActivitiesOptions , \ after' -> getCurrentActivitiesOptions { getCurrentActivitiesOptions_after = after' } ) instance AgeGroupLens GetSegmentLeaderboardOptions (Maybe String) where ageGroup getSegmentLeaderboardOptions = ( getSegmentLeaderboard_ageGroup getSegmentLeaderboardOptions , \ ageGroup' -> getSegmentLeaderboardOptions { getSegmentLeaderboard_ageGroup = ageGroup' } ) instance AllEffortsLens GetActivityOptions Bool where allEfforts getActivityOptions = ( getActivityOptions_allEfforts getActivityOptions , \ allEfforts' -> getActivityOptions { getActivityOptions_allEfforts = allEfforts' } ) instance ApprovalPromptLens BuildAuthorizeUrlOptions Bool where approvalPrompt buildAuthorizeUrlOptions = ( buildAuthorizeUrlOptions_approvalPrompt buildAuthorizeUrlOptions , \ approvalPrompt' -> buildAuthorizeUrlOptions { buildAuthorizeUrlOptions_approvalPrompt = approvalPrompt' } ) instance AthleteCountLens ActivityDetailed Integer where athleteCount activityDetailed = ( activityDetailed_athleteCount activityDetailed , \ athleteCount' -> activityDetailed { activityDetailed_athleteCount = athleteCount' } ) instance AthleteCountLens ActivitySummary Integer where athleteCount activitySummary = ( activitySummary_athleteCount activitySummary , \ athleteCount' -> activitySummary { activitySummary_athleteCount = athleteCount' } ) instance AthleteCountLens SegmentDetailed Integer where athleteCount segmentDetailed = ( segmentDetailed_athleteCount segmentDetailed , \ athleteCount' -> segmentDetailed { segmentDetailed_athleteCount = athleteCount' } ) instance AthleteGenderLens SegmentLeaderboardEntry (Maybe Char) where athleteGender segmentLeaderboardEntry = ( segmentLeaderboardEntry_athleteGender segmentLeaderboardEntry , \ athleteGender' -> segmentLeaderboardEntry { segmentLeaderboardEntry_athleteGender = athleteGender' } ) instance AthleteIdLens ActivityLapSummary Integer where athleteId activityLapSummary = ( activityLapSummary_athleteId activityLapSummary , \ athleteId' -> activityLapSummary { activityLapSummary_athleteId = athleteId' } ) instance AthleteIdLens EffortDetailed Integer where athleteId effortDetailed = ( effortDetailed_athleteId effortDetailed , \ athleteId' -> effortDetailed { effortDetailed_athleteId = athleteId' } ) instance AthleteIdLens GetSegmentEffortsOptions (Maybe Integer) where athleteId getSegmentEffortsOptions = ( getSegmentEffortsOptions_athleteId getSegmentEffortsOptions , \ athleteId' -> getSegmentEffortsOptions { getSegmentEffortsOptions_athleteId = athleteId' } ) instance AthleteIdLens SegmentLeaderboardEntry Integer where athleteId segmentLeaderboardEntry = ( segmentLeaderboardEntry_athleteId segmentLeaderboardEntry , \ athleteId' -> segmentLeaderboardEntry { segmentLeaderboardEntry_athleteId = athleteId' } ) instance AthleteLens ActivityDetailed AthleteMeta where athlete activityDetailed = ( activityDetailed_athlete activityDetailed , \ athlete' -> activityDetailed { activityDetailed_athlete = athlete' } ) instance AthleteLens ActivitySummary AthleteMeta where athlete activitySummary = ( activitySummary_athlete activitySummary , \ athlete' -> activitySummary { activitySummary_athlete = athlete' } ) instance AthleteLens CommentSummary AthleteSummary where athlete commentSummary = ( commentSummary_athlete commentSummary , \ athlete' -> commentSummary { commentSummary_athlete = athlete' } ) instance AthleteLens TokenExchangeResponse AthleteDetailed where athlete tokenExchangeResponse = ( tokenExchangeResponse_athlete tokenExchangeResponse , \ athlete' -> tokenExchangeResponse { tokenExchangeResponse_athlete = athlete' } ) instance AthleteNameLens SegmentLeaderboardEntry Text where athleteName segmentLeaderboardEntry = ( segmentLeaderboardEntry_athleteName segmentLeaderboardEntry , \ athleteName' -> segmentLeaderboardEntry { segmentLeaderboardEntry_athleteName = athleteName' } ) instance AthleteProfileLens SegmentLeaderboardEntry Text where athleteProfile segmentLeaderboardEntry = ( segmentLeaderboardEntry_athleteProfile segmentLeaderboardEntry , \ athleteProfile' -> segmentLeaderboardEntry { segmentLeaderboardEntry_athleteProfile = athleteProfile' } ) instance AverageCadenceLens EffortDetailed (Maybe Double) where averageCadence effortDetailed = ( effortDetailed_averageCadence effortDetailed , \ averageCadence' -> effortDetailed { effortDetailed_averageCadence = averageCadence' } ) instance AverageGradeLens SegmentDetailed Double where averageGrade segmentDetailed = ( segmentDetailed_averageGrade segmentDetailed , \ averageGrade' -> segmentDetailed { segmentDetailed_averageGrade = averageGrade' } ) instance AverageGradeLens SegmentSummary Double where averageGrade segmentSummary = ( segmentSummary_averageGrade segmentSummary , \ averageGrade' -> segmentSummary { segmentSummary_averageGrade = averageGrade' } ) instance AverageHeartrateLens EffortDetailed (Maybe Double) where averageHeartrate effortDetailed = ( effortDetailed_averageHeartrate effortDetailed , \ averageHeartrate' -> effortDetailed { effortDetailed_averageHeartrate = averageHeartrate' } ) instance AverageHrLens SegmentLeaderboardEntry Double where averageHr segmentLeaderboardEntry = ( segmentLeaderboardEntry_averageHr segmentLeaderboardEntry , \ averageHr' -> segmentLeaderboardEntry { segmentLeaderboardEntry_averageHr = averageHr' } ) instance AverageSpeedLens ActivityDetailed Double where averageSpeed activityDetailed = ( activityDetailed_averageSpeed activityDetailed , \ averageSpeed' -> activityDetailed { activityDetailed_averageSpeed = averageSpeed' } ) instance AverageSpeedLens ActivityLapSummary Double where averageSpeed activityLapSummary = ( activityLapSummary_averageSpeed activityLapSummary , \ averageSpeed' -> activityLapSummary { activityLapSummary_averageSpeed = averageSpeed' } ) instance AverageSpeedLens ActivitySummary Double where averageSpeed activitySummary = ( activitySummary_averageSpeed activitySummary , \ averageSpeed' -> activitySummary { activitySummary_averageSpeed = averageSpeed' } ) instance AverageWattsLens ActivityDetailed (Maybe Double) where averageWatts activityDetailed = ( activityDetailed_averageWatts activityDetailed , \ averageWatts' -> activityDetailed { activityDetailed_averageWatts = averageWatts' } ) instance AverageWattsLens ActivityLapSummary Double where averageWatts activityLapSummary = ( activityLapSummary_averageWatts activityLapSummary , \ averageWatts' -> activityLapSummary { activityLapSummary_averageWatts = averageWatts' } ) instance AverageWattsLens ActivitySummary (Maybe Double) where averageWatts activitySummary = ( activitySummary_averageWatts activitySummary , \ averageWatts' -> activitySummary { activitySummary_averageWatts = averageWatts' } ) instance AverageWattsLens EffortDetailed (Maybe Double) where averageWatts effortDetailed = ( effortDetailed_averageWatts effortDetailed , \ averageWatts' -> effortDetailed { effortDetailed_averageWatts = averageWatts' } ) instance AverageWattsLens SegmentLeaderboardEntry Double where averageWatts segmentLeaderboardEntry = ( segmentLeaderboardEntry_averageWatts segmentLeaderboardEntry , \ averageWatts' -> segmentLeaderboardEntry { segmentLeaderboardEntry_averageWatts = averageWatts' } ) instance AvgGradeLens SegmentExplorerEntry Double where avgGrade segmentExplorerEntry = ( segmentExplorerEntry_avgGrade segmentExplorerEntry , \ avgGrade' -> segmentExplorerEntry { segmentExplorerEntry_avgGrade = avgGrade' } ) instance BeforeLens GetCurrentActivitiesOptions (Maybe UTCTime) where before getCurrentActivitiesOptions = ( getCurrentActivitiesOptions_before getCurrentActivitiesOptions , \ before' -> getCurrentActivitiesOptions { getCurrentActivitiesOptions_before = before' } ) instance BikesLens AthleteDetailed [GearSummary] where bikes athleteDetailed = ( athleteDetailed_bikes athleteDetailed , \ bikes' -> athleteDetailed { athleteDetailed_bikes = bikes' } ) instance BrandNameLens GearDetailed Text where brandName gearDetailed = ( gearDetailed_brandName gearDetailed , \ brandName' -> gearDetailed { gearDetailed_brandName = brandName' } ) instance CaloriesLens ActivityDetailed Double where calories activityDetailed = ( activityDetailed_calories activityDetailed , \ calories' -> activityDetailed { activityDetailed_calories = calories' } ) instance CaptionLens PhotoSummary Text where caption photoSummary = ( photoSummary_caption photoSummary , \ caption' -> photoSummary { photoSummary_caption = caption' } ) instance CityLens AthleteDetailed Text where city athleteDetailed = ( athleteDetailed_city athleteDetailed , \ city' -> athleteDetailed { athleteDetailed_city = city' } ) instance CityLens AthleteSummary (Maybe Text) where city athleteSummary = ( athleteSummary_city athleteSummary , \ city' -> athleteSummary { athleteSummary_city = city' } ) instance CityLens ClubDetailed Text where city clubDetailed = ( clubDetailed_city clubDetailed , \ city' -> clubDetailed { clubDetailed_city = city' } ) instance CityLens SegmentDetailed Text where city segmentDetailed = ( segmentDetailed_city segmentDetailed , \ city' -> segmentDetailed { segmentDetailed_city = city' } ) instance CityLens SegmentSummary Text where city segmentSummary = ( segmentSummary_city segmentSummary , \ city' -> segmentSummary { segmentSummary_city = city' } ) instance CityLens UpdateCurrentAthleteOptions (Maybe String) where city updateCurrentAthleteOptions = ( updateCurrentAthleteOptions_city updateCurrentAthleteOptions , \ city' -> updateCurrentAthleteOptions { updateCurrentAthleteOptions_city = city' } ) instance ClimbCategoryDescLens SegmentExplorerEntry String where climbCategoryDesc segmentExplorerEntry = ( segmentExplorerEntry_climbCategoryDesc segmentExplorerEntry , \ climbCategoryDesc' -> segmentExplorerEntry { segmentExplorerEntry_climbCategoryDesc = climbCategoryDesc' } ) instance ClimbCategoryLens SegmentDetailed Integer where climbCategory segmentDetailed = ( segmentDetailed_climbCategory segmentDetailed , \ climbCategory' -> segmentDetailed { segmentDetailed_climbCategory = climbCategory' } ) instance ClimbCategoryLens SegmentExplorerEntry Integer where climbCategory segmentExplorerEntry = ( segmentExplorerEntry_climbCategory segmentExplorerEntry , \ climbCategory' -> segmentExplorerEntry { segmentExplorerEntry_climbCategory = climbCategory' } ) instance ClimbCategoryLens SegmentSummary Integer where climbCategory segmentSummary = ( segmentSummary_climbCategory segmentSummary , \ climbCategory' -> segmentSummary { segmentSummary_climbCategory = climbCategory' } ) instance ClubIdLens GetSegmentLeaderboardOptions (Maybe Integer) where clubId getSegmentLeaderboardOptions = ( getSegmentLeaderboard_clubId getSegmentLeaderboardOptions , \ clubId' -> getSegmentLeaderboardOptions { getSegmentLeaderboard_clubId = clubId' } ) instance ClubTypeLens ClubDetailed Text where clubType clubDetailed = ( clubDetailed_clubType clubDetailed , \ clubType' -> clubDetailed { clubDetailed_clubType = clubType' } ) instance ClubsLens AthleteDetailed [ClubSummary] where clubs athleteDetailed = ( athleteDetailed_clubs athleteDetailed , \ clubs' -> athleteDetailed { athleteDetailed_clubs = clubs' } ) instance CommentCountLens ActivityDetailed Integer where commentCount activityDetailed = ( activityDetailed_commentCount activityDetailed , \ commentCount' -> activityDetailed { activityDetailed_commentCount = commentCount' } ) instance CommentCountLens ActivitySummary Integer where commentCount activitySummary = ( activitySummary_commentCount activitySummary , \ commentCount' -> activitySummary { activitySummary_commentCount = commentCount' } ) instance CommuteLens ActivityDetailed Bool where commute activityDetailed = ( activityDetailed_commute activityDetailed , \ commute' -> activityDetailed { activityDetailed_commute = commute' } ) instance CommuteLens ActivitySummary Bool where commute activitySummary = ( activitySummary_commute activitySummary , \ commute' -> activitySummary { activitySummary_commute = commute' } ) instance CommuteLens UpdateActivityOptions (Maybe Bool) where commute updateActivityOptions = ( updateActivityOptions_commute updateActivityOptions , \ commute' -> updateActivityOptions { updateActivityOptions_commute = commute' } ) instance CountryLens AthleteDetailed Text where country athleteDetailed = ( athleteDetailed_country athleteDetailed , \ country' -> athleteDetailed { athleteDetailed_country = country' } ) instance CountryLens AthleteSummary (Maybe Text) where country athleteSummary = ( athleteSummary_country athleteSummary , \ country' -> athleteSummary { athleteSummary_country = country' } ) instance CountryLens ClubDetailed Text where country clubDetailed = ( clubDetailed_country clubDetailed , \ country' -> clubDetailed { clubDetailed_country = country' } ) instance CountryLens SegmentDetailed Text where country segmentDetailed = ( segmentDetailed_country segmentDetailed , \ country' -> segmentDetailed { segmentDetailed_country = country' } ) instance CountryLens SegmentSummary Text where country segmentSummary = ( segmentSummary_country segmentSummary , \ country' -> segmentSummary { segmentSummary_country = country' } ) instance CountryLens UpdateCurrentAthleteOptions (Maybe String) where country updateCurrentAthleteOptions = ( updateCurrentAthleteOptions_country updateCurrentAthleteOptions , \ country' -> updateCurrentAthleteOptions { updateCurrentAthleteOptions_country = country' } ) instance CreatedAtLens AthleteDetailed UTCTime where createdAt athleteDetailed = ( athleteDetailed_createdAt athleteDetailed , \ createdAt' -> athleteDetailed { athleteDetailed_createdAt = createdAt' } ) instance CreatedAtLens AthleteSummary UTCTime where createdAt athleteSummary = ( athleteSummary_createdAt athleteSummary , \ createdAt' -> athleteSummary { athleteSummary_createdAt = createdAt' } ) instance CreatedAtLens CommentSummary UTCTime where createdAt commentSummary = ( commentSummary_createdAt commentSummary , \ createdAt' -> commentSummary { commentSummary_createdAt = createdAt' } ) instance CreatedAtLens PhotoSummary UTCTime where createdAt photoSummary = ( photoSummary_createdAt photoSummary , \ createdAt' -> photoSummary { photoSummary_createdAt = createdAt' } ) instance CreatedAtLens SegmentDetailed UTCTime where createdAt segmentDetailed = ( segmentDetailed_createdAt segmentDetailed , \ createdAt' -> segmentDetailed { segmentDetailed_createdAt = createdAt' } ) instance DataLens StreamDetailed [Value] where data_ streamDetailed = ( streamDetailed_data streamDetailed , \ data_' -> streamDetailed { streamDetailed_data = data_' } ) instance DatePreferenceLens AthleteDetailed Text where datePreference athleteDetailed = ( athleteDetailed_datePreference athleteDetailed , \ datePreference' -> athleteDetailed { athleteDetailed_datePreference = datePreference' } ) instance DateRangeLens GetSegmentLeaderboardOptions (Maybe String) where dateRange getSegmentLeaderboardOptions = ( getSegmentLeaderboard_dateRange getSegmentLeaderboardOptions , \ dateRange' -> getSegmentLeaderboardOptions { getSegmentLeaderboard_dateRange = dateRange' } ) instance DescriptionLens ActivityDetailed (Maybe Text) where description activityDetailed = ( activityDetailed_description activityDetailed , \ description' -> activityDetailed { activityDetailed_description = description' } ) instance DescriptionLens ClubDetailed Text where description clubDetailed = ( clubDetailed_description clubDetailed , \ description' -> clubDetailed { clubDetailed_description = description' } ) instance DescriptionLens CreateActivityOptions (Maybe String) where description createActivityOptions = ( createActivityOptions_description createActivityOptions , \ description' -> createActivityOptions { createActivityOptions_description = description' } ) instance DescriptionLens GearDetailed Text where description gearDetailed = ( gearDetailed_description gearDetailed , \ description' -> gearDetailed { gearDetailed_description = description' } ) instance DescriptionLens UpdateActivityOptions (Maybe String) where description updateActivityOptions = ( updateActivityOptions_description updateActivityOptions , \ description' -> updateActivityOptions { updateActivityOptions_description = description' } ) instance DescriptionLens UploadActivityOptions (Maybe String) where description uploadActivityOptions = ( uploadActivityOptions_description uploadActivityOptions , \ description' -> uploadActivityOptions { uploadActivityOptions_description = description' } ) instance DistanceLens ActivityDetailed Double where distance activityDetailed = ( activityDetailed_distance activityDetailed , \ distance' -> activityDetailed { activityDetailed_distance = distance' } ) instance DistanceLens ActivityLapSummary Double where distance activityLapSummary = ( activityLapSummary_distance activityLapSummary , \ distance' -> activityLapSummary { activityLapSummary_distance = distance' } ) instance DistanceLens ActivitySummary Double where distance activitySummary = ( activitySummary_distance activitySummary , \ distance' -> activitySummary { activitySummary_distance = distance' } ) instance DistanceLens CreateActivityOptions (Maybe Double) where distance createActivityOptions = ( createActivityOptions_distance createActivityOptions , \ distance' -> createActivityOptions { createActivityOptions_distance = distance' } ) instance DistanceLens EffortDetailed Double where distance effortDetailed = ( effortDetailed_distance effortDetailed , \ distance' -> effortDetailed { effortDetailed_distance = distance' } ) instance DistanceLens GearDetailed Double where distance gearDetailed = ( gearDetailed_distance gearDetailed , \ distance' -> gearDetailed { gearDetailed_distance = distance' } ) instance DistanceLens GearSummary Double where distance gearSummary = ( gearSummary_distance gearSummary , \ distance' -> gearSummary { gearSummary_distance = distance' } ) instance DistanceLens SegmentDetailed Double where distance segmentDetailed = ( segmentDetailed_distance segmentDetailed , \ distance' -> segmentDetailed { segmentDetailed_distance = distance' } ) instance DistanceLens SegmentExplorerEntry Double where distance segmentExplorerEntry = ( segmentExplorerEntry_distance segmentExplorerEntry , \ distance' -> segmentExplorerEntry { segmentExplorerEntry_distance = distance' } ) instance DistanceLens SegmentLeaderboardEntry Double where distance segmentLeaderboardEntry = ( segmentLeaderboardEntry_distance segmentLeaderboardEntry , \ distance' -> segmentLeaderboardEntry { segmentLeaderboardEntry_distance = distance' } ) instance DistanceLens SegmentSummary Double where distance segmentSummary = ( segmentSummary_distance segmentSummary , \ distance' -> segmentSummary { segmentSummary_distance = distance' } ) instance DistributionBucketsLens ActivityZoneDetailed [ActivityZoneDistributionBucket] where distributionBuckets activityZoneDetailed = ( activityZoneDetailed_distributionBuckets activityZoneDetailed , \ distributionBuckets' -> activityZoneDetailed { activityZoneDetailed_distributionBuckets = distributionBuckets' } ) instance EffortCountLens SegmentDetailed Integer where effortCount segmentDetailed = ( segmentDetailed_effortCount segmentDetailed , \ effortCount' -> segmentDetailed { segmentDetailed_effortCount = effortCount' } ) instance EffortCountLens SegmentLeaderboardResponse Integer where effortCount segmentLeaderboardResponse = ( segmentLeaderboard_effortCount segmentLeaderboardResponse , \ effortCount' -> segmentLeaderboardResponse { segmentLeaderboard_effortCount = effortCount' } ) instance EffortIdLens SegmentLeaderboardEntry Integer where effortId segmentLeaderboardEntry = ( segmentLeaderboardEntry_effortId segmentLeaderboardEntry , \ effortId' -> segmentLeaderboardEntry { segmentLeaderboardEntry_effortId = effortId' } ) instance ElapsedTimeLens ActivityDetailed Integer where elapsedTime activityDetailed = ( activityDetailed_elapsedTime activityDetailed , \ elapsedTime' -> activityDetailed { activityDetailed_elapsedTime = elapsedTime' } ) instance ElapsedTimeLens ActivityLapSummary Integer where elapsedTime activityLapSummary = ( activityLapSummary_elapsedTime activityLapSummary , \ elapsedTime' -> activityLapSummary { activityLapSummary_elapsedTime = elapsedTime' } ) instance ElapsedTimeLens ActivitySummary Integer where elapsedTime activitySummary = ( activitySummary_elapsedTime activitySummary , \ elapsedTime' -> activitySummary { activitySummary_elapsedTime = elapsedTime' } ) instance ElapsedTimeLens EffortDetailed Integer where elapsedTime effortDetailed = ( effortDetailed_elapsedTime effortDetailed , \ elapsedTime' -> effortDetailed { effortDetailed_elapsedTime = elapsedTime' } ) instance ElapsedTimeLens SegmentLeaderboardEntry Integer where elapsedTime segmentLeaderboardEntry = ( segmentLeaderboardEntry_elapsedTime segmentLeaderboardEntry , \ elapsedTime' -> segmentLeaderboardEntry { segmentLeaderboardEntry_elapsedTime = elapsedTime' } ) instance ElevDifferenceLens SegmentExplorerEntry Double where elevDifference segmentExplorerEntry = ( segmentExplorerEntry_elevDifference segmentExplorerEntry , \ elevDifference' -> segmentExplorerEntry { segmentExplorerEntry_elevDifference = elevDifference' } ) instance ElevationHighLens SegmentDetailed Double where elevationHigh segmentDetailed = ( segmentDetailed_elevationHigh segmentDetailed , \ elevationHigh' -> segmentDetailed { segmentDetailed_elevationHigh = elevationHigh' } ) instance ElevationHighLens SegmentSummary Double where elevationHigh segmentSummary = ( segmentSummary_elevationHigh segmentSummary , \ elevationHigh' -> segmentSummary { segmentSummary_elevationHigh = elevationHigh' } ) instance ElevationLowLens SegmentDetailed Double where elevationLow segmentDetailed = ( segmentDetailed_elevationLow segmentDetailed , \ elevationLow' -> segmentDetailed { segmentDetailed_elevationLow = elevationLow' } ) instance ElevationLowLens SegmentSummary Double where elevationLow segmentSummary = ( segmentSummary_elevationLow segmentSummary , \ elevationLow' -> segmentSummary { segmentSummary_elevationLow = elevationLow' } ) instance EmailLens AthleteDetailed Text where email athleteDetailed = ( athleteDetailed_email athleteDetailed , \ email' -> athleteDetailed { athleteDetailed_email = email' } ) instance EndIndexLens ActivityLapSummary Integer where endIndex activityLapSummary = ( activityLapSummary_endIndex activityLapSummary , \ endIndex' -> activityLapSummary { activityLapSummary_endIndex = endIndex' } ) instance EndIndexLens EffortDetailed Integer where endIndex effortDetailed = ( effortDetailed_endIndex effortDetailed , \ endIndex' -> effortDetailed { effortDetailed_endIndex = endIndex' } ) instance EndLatitudeLens SegmentDetailed Double where endLatitude segmentDetailed = ( segmentDetailed_endLatitude segmentDetailed , \ endLatitude' -> segmentDetailed { segmentDetailed_endLatitude = endLatitude' } ) instance EndLatitudeLens SegmentSummary Double where endLatitude segmentSummary = ( segmentSummary_endLatitude segmentSummary , \ endLatitude' -> segmentSummary { segmentSummary_endLatitude = endLatitude' } ) instance EndLatlngLens ActivityDetailed (Maybe (Double, Double)) where endLatlng activityDetailed = ( activityDetailed_endLatlng activityDetailed , \ endLatlng' -> activityDetailed { activityDetailed_endLatlng = endLatlng' } ) instance EndLatlngLens ActivitySummary (Maybe (Double, Double)) where endLatlng activitySummary = ( activitySummary_endLatlng activitySummary , \ endLatlng' -> activitySummary { activitySummary_endLatlng = endLatlng' } ) instance EndLatlngLens SegmentDetailed ((Double, Double)) where endLatlng segmentDetailed = ( segmentDetailed_endLatlng segmentDetailed , \ endLatlng' -> segmentDetailed { segmentDetailed_endLatlng = endLatlng' } ) instance EndLatlngLens SegmentExplorerEntry ((Double, Double)) where endLatlng segmentExplorerEntry = ( segmentExplorerEntry_endLatlng segmentExplorerEntry , \ endLatlng' -> segmentExplorerEntry { segmentExplorerEntry_endLatlng = endLatlng' } ) instance EndLatlngLens SegmentSummary ((Double, Double)) where endLatlng segmentSummary = ( segmentSummary_endLatlng segmentSummary , \ endLatlng' -> segmentSummary { segmentSummary_endLatlng = endLatlng' } ) instance EndLongitudeLens SegmentDetailed Double where endLongitude segmentDetailed = ( segmentDetailed_endLongitude segmentDetailed , \ endLongitude' -> segmentDetailed { segmentDetailed_endLongitude = endLongitude' } ) instance EndLongitudeLens SegmentSummary Double where endLongitude segmentSummary = ( segmentSummary_endLongitude segmentSummary , \ endLongitude' -> segmentSummary { segmentSummary_endLongitude = endLongitude' } ) instance EntriesLens SegmentExplorerResponse [SegmentExplorerEntry] where entries segmentExplorerResponse = ( segmentExplorerResponse_entries segmentExplorerResponse , \ entries' -> segmentExplorerResponse { segmentExplorerResponse_entries = entries' } ) instance EntriesLens SegmentLeaderboardResponse [SegmentLeaderboardEntry] where entries segmentLeaderboardResponse = ( segmentLeaderboard_entries segmentLeaderboardResponse , \ entries' -> segmentLeaderboardResponse { segmentLeaderboard_entries = entries' } ) instance EntryCountLens SegmentLeaderboardResponse Integer where entryCount segmentLeaderboardResponse = ( segmentLeaderboard_entryCount segmentLeaderboardResponse , \ entryCount' -> segmentLeaderboardResponse { segmentLeaderboard_entryCount = entryCount' } ) instance ErrorLens UploadStatus (Maybe Text) where error_ uploadStatus = ( uploadStatus_error uploadStatus , \ error_' -> uploadStatus { uploadStatus_error = error_' } ) instance ExternalIdLens ActivityDetailed (Maybe Text) where externalId activityDetailed = ( activityDetailed_externalId activityDetailed , \ externalId' -> activityDetailed { activityDetailed_externalId = externalId' } ) instance ExternalIdLens ActivitySummary (Maybe Text) where externalId activitySummary = ( activitySummary_externalId activitySummary , \ externalId' -> activitySummary { activitySummary_externalId = externalId' } ) instance ExternalIdLens UploadActivityOptions (Maybe String) where externalId uploadActivityOptions = ( uploadActivityOptions_externalId uploadActivityOptions , \ externalId' -> uploadActivityOptions { uploadActivityOptions_externalId = externalId' } ) instance ExternalIdLens UploadStatus (Maybe Text) where externalId uploadStatus = ( uploadStatus_externalId uploadStatus , \ externalId' -> uploadStatus { uploadStatus_externalId = externalId' } ) instance FirstnameLens AthleteDetailed Text where firstname athleteDetailed = ( athleteDetailed_firstname athleteDetailed , \ firstname' -> athleteDetailed { athleteDetailed_firstname = firstname' } ) instance FirstnameLens AthleteSummary Text where firstname athleteSummary = ( athleteSummary_firstname athleteSummary , \ firstname' -> athleteSummary { athleteSummary_firstname = firstname' } ) instance FlaggedLens ActivityDetailed Bool where flagged activityDetailed = ( activityDetailed_flagged activityDetailed , \ flagged' -> activityDetailed { activityDetailed_flagged = flagged' } ) instance FlaggedLens ActivitySummary Bool where flagged activitySummary = ( activitySummary_flagged activitySummary , \ flagged' -> activitySummary { activitySummary_flagged = flagged' } ) instance FollowerCountLens AthleteDetailed Integer where followerCount athleteDetailed = ( athleteDetailed_followerCount athleteDetailed , \ followerCount' -> athleteDetailed { athleteDetailed_followerCount = followerCount' } ) instance FollowerLens AthleteDetailed (Maybe Text) where follower athleteDetailed = ( athleteDetailed_follower athleteDetailed , \ follower' -> athleteDetailed { athleteDetailed_follower = follower' } ) instance FollowerLens AthleteSummary (Maybe Text) where follower athleteSummary = ( athleteSummary_follower athleteSummary , \ follower' -> athleteSummary { athleteSummary_follower = follower' } ) instance FollowingLens GetSegmentLeaderboardOptions (Maybe Bool) where following getSegmentLeaderboardOptions = ( getSegmentLeaderboard_following getSegmentLeaderboardOptions , \ following' -> getSegmentLeaderboardOptions { getSegmentLeaderboard_following = following' } ) instance FrameTypeLens GearDetailed (Maybe Integer) where frameType gearDetailed = ( gearDetailed_frameType gearDetailed , \ frameType' -> gearDetailed { gearDetailed_frameType = frameType' } ) instance FriendCountLens AthleteDetailed Integer where friendCount athleteDetailed = ( athleteDetailed_friendCount athleteDetailed , \ friendCount' -> athleteDetailed { athleteDetailed_friendCount = friendCount' } ) instance FriendLens AthleteDetailed (Maybe Text) where friend athleteDetailed = ( athleteDetailed_friend athleteDetailed , \ friend' -> athleteDetailed { athleteDetailed_friend = friend' } ) instance FriendLens AthleteSummary (Maybe Text) where friend athleteSummary = ( athleteSummary_friend athleteSummary , \ friend' -> athleteSummary { athleteSummary_friend = friend' } ) instance FtpLens AthleteDetailed (Maybe Integer) where ftp athleteDetailed = ( athleteDetailed_ftp athleteDetailed , \ ftp' -> athleteDetailed { athleteDetailed_ftp = ftp' } ) instance GearIdLens ActivityDetailed (Maybe Text) where gearId activityDetailed = ( activityDetailed_gearId activityDetailed , \ gearId' -> activityDetailed { activityDetailed_gearId = gearId' } ) instance GearIdLens ActivitySummary (Maybe Text) where gearId activitySummary = ( activitySummary_gearId activitySummary , \ gearId' -> activitySummary { activitySummary_gearId = gearId' } ) instance GearIdLens UpdateActivityOptions (Maybe String) where gearId updateActivityOptions = ( updateActivityOptions_gearId updateActivityOptions , \ gearId' -> updateActivityOptions { updateActivityOptions_gearId = gearId' } ) instance GearLens ActivityDetailed GearSummary where gear activityDetailed = ( activityDetailed_gear activityDetailed , \ gear' -> activityDetailed { activityDetailed_gear = gear' } ) instance GenderLens GetSegmentLeaderboardOptions (Maybe Char) where gender getSegmentLeaderboardOptions = ( getSegmentLeaderboard_gender getSegmentLeaderboardOptions , \ gender' -> getSegmentLeaderboardOptions { getSegmentLeaderboard_gender = gender' } ) instance HasKudoedLens ActivityDetailed Bool where hasKudoed activityDetailed = ( activityDetailed_hasKudoed activityDetailed , \ hasKudoed' -> activityDetailed { activityDetailed_hasKudoed = hasKudoed' } ) instance HasKudoedLens ActivitySummary Bool where hasKudoed activitySummary = ( activitySummary_hasKudoed activitySummary , \ hasKudoed' -> activitySummary { activitySummary_hasKudoed = hasKudoed' } ) instance HazardousLens SegmentDetailed Bool where hazardous segmentDetailed = ( segmentDetailed_hazardous segmentDetailed , \ hazardous' -> segmentDetailed { segmentDetailed_hazardous = hazardous' } ) instance HiddenLens EffortDetailed (Maybe Bool) where hidden effortDetailed = ( effortDetailed_hidden effortDetailed , \ hidden' -> effortDetailed { effortDetailed_hidden = hidden' } ) instance HttpManagerLens Client Manager where httpManager client = ( client_httpManager client , \ httpManager' -> client { client_httpManager = httpManager' } ) instance IdLens ActivityDetailed Integer where id_ activityDetailed = ( activityDetailed_id activityDetailed , \ id_' -> activityDetailed { activityDetailed_id = id_' } ) instance IdLens ActivityLapSummary Integer where id_ activityLapSummary = ( activityLapSummary_id activityLapSummary , \ id_' -> activityLapSummary { activityLapSummary_id = id_' } ) instance IdLens ActivitySummary Integer where id_ activitySummary = ( activitySummary_id activitySummary , \ id_' -> activitySummary { activitySummary_id = id_' } ) instance IdLens AthleteDetailed Integer where id_ athleteDetailed = ( athleteDetailed_id athleteDetailed , \ id_' -> athleteDetailed { athleteDetailed_id = id_' } ) instance IdLens AthleteMeta Integer where id_ athleteMeta = ( athleteMeta_id athleteMeta , \ id_' -> athleteMeta { athleteMeta_id = id_' } ) instance IdLens AthleteSummary Integer where id_ athleteSummary = ( athleteSummary_id athleteSummary , \ id_' -> athleteSummary { athleteSummary_id = id_' } ) instance IdLens ClubDetailed Integer where id_ clubDetailed = ( clubDetailed_id clubDetailed , \ id_' -> clubDetailed { clubDetailed_id = id_' } ) instance IdLens ClubSummary Integer where id_ clubSummary = ( clubSummary_id clubSummary , \ id_' -> clubSummary { clubSummary_id = id_' } ) instance IdLens CommentSummary Integer where id_ commentSummary = ( commentSummary_id commentSummary , \ id_' -> commentSummary { commentSummary_id = id_' } ) instance IdLens EffortDetailed Integer where id_ effortDetailed = ( effortDetailed_id effortDetailed , \ id_' -> effortDetailed { effortDetailed_id = id_' } ) instance IdLens GearDetailed Text where id_ gearDetailed = ( gearDetailed_id gearDetailed , \ id_' -> gearDetailed { gearDetailed_id = id_' } ) instance IdLens GearSummary Text where id_ gearSummary = ( gearSummary_id gearSummary , \ id_' -> gearSummary { gearSummary_id = id_' } ) instance IdLens PhotoSummary Integer where id_ photoSummary = ( photoSummary_id photoSummary , \ id_' -> photoSummary { photoSummary_id = id_' } ) instance IdLens PolylineDetailed Text where id_ polylineDetailed = ( polylineDetailed_id polylineDetailed , \ id_' -> polylineDetailed { polylineDetailed_id = id_' } ) instance IdLens PolylineSummary Text where id_ polylineSummary = ( polylineSummary_id polylineSummary , \ id_' -> polylineSummary { polylineSummary_id = id_' } ) instance IdLens SegmentDetailed Integer where id_ segmentDetailed = ( segmentDetailed_id segmentDetailed , \ id_' -> segmentDetailed { segmentDetailed_id = id_' } ) instance IdLens SegmentExplorerEntry Integer where id_ segmentExplorerEntry = ( segmentExplorerEntry_id segmentExplorerEntry , \ id_' -> segmentExplorerEntry { segmentExplorerEntry_id = id_' } ) instance IdLens SegmentSummary Integer where id_ segmentSummary = ( segmentSummary_id segmentSummary , \ id_' -> segmentSummary { segmentSummary_id = id_' } ) instance IdLens UploadStatus Integer where id_ uploadStatus = ( uploadStatus_id uploadStatus , \ id_' -> uploadStatus { uploadStatus_id = id_' } ) instance InstagramPrimaryPhotoLens ActivityDetailed (Maybe Text) where instagramPrimaryPhoto activityDetailed = ( activityDetailed_instagramPrimaryPhoto activityDetailed , \ instagramPrimaryPhoto' -> activityDetailed { activityDetailed_instagramPrimaryPhoto = instagramPrimaryPhoto' } ) instance KilojoulesLens ActivityDetailed (Maybe Double) where kilojoules activityDetailed = ( activityDetailed_kilojoules activityDetailed , \ kilojoules' -> activityDetailed { activityDetailed_kilojoules = kilojoules' } ) instance KilojoulesLens ActivitySummary (Maybe Double) where kilojoules activitySummary = ( activitySummary_kilojoules activitySummary , \ kilojoules' -> activitySummary { activitySummary_kilojoules = kilojoules' } ) instance KomRankLens EffortDetailed (Maybe Integer) where komRank effortDetailed = ( effortDetailed_komRank effortDetailed , \ komRank' -> effortDetailed { effortDetailed_komRank = komRank' } ) instance KudosCountLens ActivitySummary Integer where kudosCount activitySummary = ( activitySummary_kudosCount activitySummary , \ kudosCount' -> activitySummary { activitySummary_kudosCount = kudosCount' } ) instance LapIndexLens ActivityLapSummary Integer where lapIndex activityLapSummary = ( activityLapSummary_lapIndex activityLapSummary , \ lapIndex' -> activityLapSummary { activityLapSummary_lapIndex = lapIndex' } ) instance LastnameLens AthleteDetailed Text where lastname athleteDetailed = ( athleteDetailed_lastname athleteDetailed , \ lastname' -> athleteDetailed { athleteDetailed_lastname = lastname' } ) instance LastnameLens AthleteSummary Text where lastname athleteSummary = ( athleteSummary_lastname athleteSummary , \ lastname' -> athleteSummary { athleteSummary_lastname = lastname' } ) instance LocationCityLens ActivityDetailed (Maybe Text) where locationCity activityDetailed = ( activityDetailed_locationCity activityDetailed , \ locationCity' -> activityDetailed { activityDetailed_locationCity = locationCity' } ) instance LocationCityLens ActivitySummary (Maybe Text) where locationCity activitySummary = ( activitySummary_locationCity activitySummary , \ locationCity' -> activitySummary { activitySummary_locationCity = locationCity' } ) instance LocationCountryLens ActivityDetailed Text where locationCountry activityDetailed = ( activityDetailed_locationCountry activityDetailed , \ locationCountry' -> activityDetailed { activityDetailed_locationCountry = locationCountry' } ) instance LocationCountryLens ActivitySummary Text where locationCountry activitySummary = ( activitySummary_locationCountry activitySummary , \ locationCountry' -> activitySummary { activitySummary_locationCountry = locationCountry' } ) instance LocationLens PhotoSummary (Maybe (Double, Double)) where location photoSummary = ( photoSummary_location photoSummary , \ location' -> photoSummary { photoSummary_location = location' } ) instance LocationStateLens ActivityDetailed (Maybe Text) where locationState activityDetailed = ( activityDetailed_locationState activityDetailed , \ locationState' -> activityDetailed { activityDetailed_locationState = locationState' } ) instance LocationStateLens ActivitySummary (Maybe Text) where locationState activitySummary = ( activitySummary_locationState activitySummary , \ locationState' -> activitySummary { activitySummary_locationState = locationState' } ) instance ManualLens ActivityDetailed Bool where manual activityDetailed = ( activityDetailed_manual activityDetailed , \ manual' -> activityDetailed { activityDetailed_manual = manual' } ) instance ManualLens ActivitySummary Bool where manual activitySummary = ( activitySummary_manual activitySummary , \ manual' -> activitySummary { activitySummary_manual = manual' } ) instance MapLens ActivityDetailed PolylineDetailed where map activityDetailed = ( activityDetailed_map activityDetailed , \ map' -> activityDetailed { activityDetailed_map = map' } ) instance MapLens ActivitySummary PolylineSummary where map activitySummary = ( activitySummary_map activitySummary , \ map' -> activitySummary { activitySummary_map = map' } ) instance MapLens SegmentDetailed PolylineDetailed where map segmentDetailed = ( segmentDetailed_map segmentDetailed , \ map' -> segmentDetailed { segmentDetailed_map = map' } ) instance MarkdownLens GetActivityCommentsOptions Bool where markdown getActivityCommentsOptions = ( getActivityCommentsOptions_markdown getActivityCommentsOptions , \ markdown' -> getActivityCommentsOptions { getActivityCommentsOptions_markdown = markdown' } ) instance MaxCatLens ExploreSegmentsOptions Integer where maxCat exploreSegmentsOptions = ( exploreSegmentsOptions_maxCat exploreSegmentsOptions , \ maxCat' -> exploreSegmentsOptions { exploreSegmentsOptions_maxCat = maxCat' } ) instance MaxHeartrateLens EffortDetailed (Maybe Integer) where maxHeartrate effortDetailed = ( effortDetailed_maxHeartrate effortDetailed , \ maxHeartrate' -> effortDetailed { effortDetailed_maxHeartrate = maxHeartrate' } ) instance MaxLens ActivityZoneDistributionBucket Integer where max_ activityZoneDistributionBucket = ( activityZoneDistributionBucket_max activityZoneDistributionBucket , \ max_' -> activityZoneDistributionBucket { activityZoneDistributionBucket_max = max_' } ) instance MaxSpeedLens ActivityDetailed Double where maxSpeed activityDetailed = ( activityDetailed_maxSpeed activityDetailed , \ maxSpeed' -> activityDetailed { activityDetailed_maxSpeed = maxSpeed' } ) instance MaxSpeedLens ActivityLapSummary Double where maxSpeed activityLapSummary = ( activityLapSummary_maxSpeed activityLapSummary , \ maxSpeed' -> activityLapSummary { activityLapSummary_maxSpeed = maxSpeed' } ) instance MaxSpeedLens ActivitySummary Double where maxSpeed activitySummary = ( activitySummary_maxSpeed activitySummary , \ maxSpeed' -> activitySummary { activitySummary_maxSpeed = maxSpeed' } ) instance MaximumGradeLens SegmentDetailed Double where maximumGrade segmentDetailed = ( segmentDetailed_maximumGrade segmentDetailed , \ maximumGrade' -> segmentDetailed { segmentDetailed_maximumGrade = maximumGrade' } ) instance MaximumGradeLens SegmentSummary Double where maximumGrade segmentSummary = ( segmentSummary_maximumGrade segmentSummary , \ maximumGrade' -> segmentSummary { segmentSummary_maximumGrade = maximumGrade' } ) instance MeasurementPreferenceLens AthleteDetailed Text where measurementPreference athleteDetailed = ( athleteDetailed_measurementPreference athleteDetailed , \ measurementPreference' -> athleteDetailed { athleteDetailed_measurementPreference = measurementPreference' } ) instance MemberCountLens ClubDetailed Integer where memberCount clubDetailed = ( clubDetailed_memberCount clubDetailed , \ memberCount' -> clubDetailed { clubDetailed_memberCount = memberCount' } ) instance MinCatLens ExploreSegmentsOptions Integer where minCat exploreSegmentsOptions = ( exploreSegmentsOptions_minCat exploreSegmentsOptions , \ minCat' -> exploreSegmentsOptions { exploreSegmentsOptions_minCat = minCat' } ) instance MinLens ActivityZoneDistributionBucket Integer where min_ activityZoneDistributionBucket = ( activityZoneDistributionBucket_min activityZoneDistributionBucket , \ min_' -> activityZoneDistributionBucket { activityZoneDistributionBucket_min = min_' } ) instance ModelNameLens GearDetailed Text where modelName gearDetailed = ( gearDetailed_modelName gearDetailed , \ modelName' -> gearDetailed { gearDetailed_modelName = modelName' } ) instance MovingTimeLens ActivityDetailed Integer where movingTime activityDetailed = ( activityDetailed_movingTime activityDetailed , \ movingTime' -> activityDetailed { activityDetailed_movingTime = movingTime' } ) instance MovingTimeLens ActivityLapSummary Double where movingTime activityLapSummary = ( activityLapSummary_movingTime activityLapSummary , \ movingTime' -> activityLapSummary { activityLapSummary_movingTime = movingTime' } ) instance MovingTimeLens ActivitySummary Integer where movingTime activitySummary = ( activitySummary_movingTime activitySummary , \ movingTime' -> activitySummary { activitySummary_movingTime = movingTime' } ) instance MovingTimeLens EffortDetailed Integer where movingTime effortDetailed = ( effortDetailed_movingTime effortDetailed , \ movingTime' -> effortDetailed { effortDetailed_movingTime = movingTime' } ) instance MovingTimeLens SegmentLeaderboardEntry Integer where movingTime segmentLeaderboardEntry = ( segmentLeaderboardEntry_movingTime segmentLeaderboardEntry , \ movingTime' -> segmentLeaderboardEntry { segmentLeaderboardEntry_movingTime = movingTime' } ) instance MutualFriendCountLens AthleteDetailed Integer where mutualFriendCount athleteDetailed = ( athleteDetailed_mutualFriendCount athleteDetailed , \ mutualFriendCount' -> athleteDetailed { athleteDetailed_mutualFriendCount = mutualFriendCount' } ) instance NameLens ActivityDetailed Text where name activityDetailed = ( activityDetailed_name activityDetailed , \ name' -> activityDetailed { activityDetailed_name = name' } ) instance NameLens ActivityLapSummary Text where name activityLapSummary = ( activityLapSummary_name activityLapSummary , \ name' -> activityLapSummary { activityLapSummary_name = name' } ) instance NameLens ActivitySummary Text where name activitySummary = ( activitySummary_name activitySummary , \ name' -> activitySummary { activitySummary_name = name' } ) instance NameLens ClubDetailed Text where name clubDetailed = ( clubDetailed_name clubDetailed , \ name' -> clubDetailed { clubDetailed_name = name' } ) instance NameLens ClubSummary Text where name clubSummary = ( clubSummary_name clubSummary , \ name' -> clubSummary { clubSummary_name = name' } ) instance NameLens EffortDetailed Text where name effortDetailed = ( effortDetailed_name effortDetailed , \ name' -> effortDetailed { effortDetailed_name = name' } ) instance NameLens GearDetailed Text where name gearDetailed = ( gearDetailed_name gearDetailed , \ name' -> gearDetailed { gearDetailed_name = name' } ) instance NameLens GearSummary Text where name gearSummary = ( gearSummary_name gearSummary , \ name' -> gearSummary { gearSummary_name = name' } ) instance NameLens SegmentDetailed Text where name segmentDetailed = ( segmentDetailed_name segmentDetailed , \ name' -> segmentDetailed { segmentDetailed_name = name' } ) instance NameLens SegmentExplorerEntry Text where name segmentExplorerEntry = ( segmentExplorerEntry_name segmentExplorerEntry , \ name' -> segmentExplorerEntry { segmentExplorerEntry_name = name' } ) instance NameLens SegmentSummary Text where name segmentSummary = ( segmentSummary_name segmentSummary , \ name' -> segmentSummary { segmentSummary_name = name' } ) instance NameLens UpdateActivityOptions (Maybe String) where name updateActivityOptions = ( updateActivityOptions_name updateActivityOptions , \ name' -> updateActivityOptions { updateActivityOptions_name = name' } ) instance NameLens UploadActivityOptions (Maybe String) where name uploadActivityOptions = ( uploadActivityOptions_name uploadActivityOptions , \ name' -> uploadActivityOptions { uploadActivityOptions_name = name' } ) instance OriginalSizeLens StreamDetailed Integer where originalSize streamDetailed = ( streamDetailed_originalSize streamDetailed , \ originalSize' -> streamDetailed { streamDetailed_originalSize = originalSize' } ) instance PageLens GetActivityCommentsOptions Integer where page getActivityCommentsOptions = ( getActivityCommentsOptions_page getActivityCommentsOptions , \ page' -> getActivityCommentsOptions { getActivityCommentsOptions_page = page' } ) instance PageLens GetCurrentActivitiesOptions Integer where page getCurrentActivitiesOptions = ( getCurrentActivitiesOptions_page getCurrentActivitiesOptions , \ page' -> getCurrentActivitiesOptions { getCurrentActivitiesOptions_page = page' } ) instance PageLens GetSegmentEffortsOptions Integer where page getSegmentEffortsOptions = ( getSegmentEffortsOptions_page getSegmentEffortsOptions , \ page' -> getSegmentEffortsOptions { getSegmentEffortsOptions_page = page' } ) instance PageLens GetSegmentLeaderboardOptions Integer where page getSegmentLeaderboardOptions = ( getSegmentLeaderboard_page getSegmentLeaderboardOptions , \ page' -> getSegmentLeaderboardOptions { getSegmentLeaderboard_page = page' } ) instance PageLens PaginationOptions Integer where page paginationOptions = ( paginationOptions_page paginationOptions , \ page' -> paginationOptions { paginationOptions_page = page' } ) instance PerPageLens GetActivityCommentsOptions Integer where perPage getActivityCommentsOptions = ( getActivityCommentsOptions_perPage getActivityCommentsOptions , \ perPage' -> getActivityCommentsOptions { getActivityCommentsOptions_perPage = perPage' } ) instance PerPageLens GetCurrentActivitiesOptions Integer where perPage getCurrentActivitiesOptions = ( getCurrentActivitiesOptions_perPage getCurrentActivitiesOptions , \ perPage' -> getCurrentActivitiesOptions { getCurrentActivitiesOptions_perPage = perPage' } ) instance PerPageLens GetSegmentEffortsOptions Integer where perPage getSegmentEffortsOptions = ( getSegmentEffortsOptions_perPage getSegmentEffortsOptions , \ perPage' -> getSegmentEffortsOptions { getSegmentEffortsOptions_perPage = perPage' } ) instance PerPageLens GetSegmentLeaderboardOptions Integer where perPage getSegmentLeaderboardOptions = ( getSegmentLeaderboard_perPage getSegmentLeaderboardOptions , \ perPage' -> getSegmentLeaderboardOptions { getSegmentLeaderboard_perPage = perPage' } ) instance PerPageLens PaginationOptions Integer where perPage paginationOptions = ( paginationOptions_perPage paginationOptions , \ perPage' -> paginationOptions { paginationOptions_perPage = perPage' } ) instance PhotoCountLens ActivityDetailed Integer where photoCount activityDetailed = ( activityDetailed_photoCount activityDetailed , \ photoCount' -> activityDetailed { activityDetailed_photoCount = photoCount' } ) instance PhotoCountLens ActivitySummary Integer where photoCount activitySummary = ( activitySummary_photoCount activitySummary , \ photoCount' -> activitySummary { activitySummary_photoCount = photoCount' } ) instance PointsLens SegmentExplorerEntry Text where points segmentExplorerEntry = ( segmentExplorerEntry_points segmentExplorerEntry , \ points' -> segmentExplorerEntry { segmentExplorerEntry_points = points' } ) instance PolylineLens PolylineDetailed ([(Double, Double)]) where polyline polylineDetailed = ( polylineDetailed_polyline polylineDetailed , \ polyline' -> polylineDetailed { polylineDetailed_polyline = polyline' } ) instance PrRankLens EffortDetailed (Maybe Integer) where prRank effortDetailed = ( effortDetailed_prRank effortDetailed , \ prRank' -> effortDetailed { effortDetailed_prRank = prRank' } ) instance PremiumLens AthleteDetailed Bool where premium athleteDetailed = ( athleteDetailed_premium athleteDetailed , \ premium' -> athleteDetailed { athleteDetailed_premium = premium' } ) instance PremiumLens AthleteSummary Bool where premium athleteSummary = ( athleteSummary_premium athleteSummary , \ premium' -> athleteSummary { athleteSummary_premium = premium' } ) instance PrimaryLens GearDetailed Bool where primary gearDetailed = ( gearDetailed_primary gearDetailed , \ primary' -> gearDetailed { gearDetailed_primary = primary' } ) instance PrimaryLens GearSummary Bool where primary gearSummary = ( gearSummary_primary gearSummary , \ primary' -> gearSummary { gearSummary_primary = primary' } ) instance PrivateLens ActivityDetailed Bool where private activityDetailed = ( activityDetailed_private activityDetailed , \ private' -> activityDetailed { activityDetailed_private = private' } ) instance PrivateLens ActivitySummary Bool where private activitySummary = ( activitySummary_private activitySummary , \ private' -> activitySummary { activitySummary_private = private' } ) instance PrivateLens ClubDetailed Bool where private clubDetailed = ( clubDetailed_private clubDetailed , \ private' -> clubDetailed { clubDetailed_private = private' } ) instance PrivateLens SegmentDetailed Bool where private segmentDetailed = ( segmentDetailed_private segmentDetailed , \ private' -> segmentDetailed { segmentDetailed_private = private' } ) instance PrivateLens SegmentSummary Bool where private segmentSummary = ( segmentSummary_private segmentSummary , \ private' -> segmentSummary { segmentSummary_private = private' } ) instance PrivateLens UpdateActivityOptions (Maybe Bool) where private updateActivityOptions = ( updateActivityOptions_private updateActivityOptions , \ private' -> updateActivityOptions { updateActivityOptions_private = private' } ) instance PrivateLens UploadActivityOptions Bool where private uploadActivityOptions = ( uploadActivityOptions_private uploadActivityOptions , \ private' -> uploadActivityOptions { uploadActivityOptions_private = private' } ) instance PrivateScopeLens BuildAuthorizeUrlOptions Bool where privateScope buildAuthorizeUrlOptions = ( buildAuthorizeUrlOptions_privateScope buildAuthorizeUrlOptions , \ privateScope' -> buildAuthorizeUrlOptions { buildAuthorizeUrlOptions_privateScope = privateScope' } ) instance ProfileLens AthleteDetailed Text where profile athleteDetailed = ( athleteDetailed_profile athleteDetailed , \ profile' -> athleteDetailed { athleteDetailed_profile = profile' } ) instance ProfileLens AthleteSummary Text where profile athleteSummary = ( athleteSummary_profile athleteSummary , \ profile' -> athleteSummary { athleteSummary_profile = profile' } ) instance ProfileLens ClubDetailed Text where profile clubDetailed = ( clubDetailed_profile clubDetailed , \ profile' -> clubDetailed { clubDetailed_profile = profile' } ) instance ProfileLens ClubSummary Text where profile clubSummary = ( clubSummary_profile clubSummary , \ profile' -> clubSummary { clubSummary_profile = profile' } ) instance ProfileMediumLens AthleteDetailed Text where profileMedium athleteDetailed = ( athleteDetailed_profileMedium athleteDetailed , \ profileMedium' -> athleteDetailed { athleteDetailed_profileMedium = profileMedium' } ) instance ProfileMediumLens AthleteSummary Text where profileMedium athleteSummary = ( athleteSummary_profileMedium athleteSummary , \ profileMedium' -> athleteSummary { athleteSummary_profileMedium = profileMedium' } ) instance ProfileMediumLens ClubDetailed Text where profileMedium clubDetailed = ( clubDetailed_profileMedium clubDetailed , \ profileMedium' -> clubDetailed { clubDetailed_profileMedium = profileMedium' } ) instance ProfileMediumLens ClubSummary Text where profileMedium clubSummary = ( clubSummary_profileMedium clubSummary , \ profileMedium' -> clubSummary { clubSummary_profileMedium = profileMedium' } ) instance RangeLens GetSegmentEffortsOptions (Maybe (UTCTime, UTCTime)) where range getSegmentEffortsOptions = ( getSegmentEffortsOptions_range getSegmentEffortsOptions , \ range' -> getSegmentEffortsOptions { getSegmentEffortsOptions_range = range' } ) instance RankLens SegmentLeaderboardEntry Integer where rank segmentLeaderboardEntry = ( segmentLeaderboardEntry_rank segmentLeaderboardEntry , \ rank' -> segmentLeaderboardEntry { segmentLeaderboardEntry_rank = rank' } ) instance RefLens PhotoSummary Text where ref photoSummary = ( photoSummary_ref photoSummary , \ ref' -> photoSummary { photoSummary_ref = ref' } ) instance ResolutionLens GetStreamsOptions (Maybe String) where resolution getStreamsOptions = ( getStreamsOptions_resolution getStreamsOptions , \ resolution' -> getStreamsOptions { getStreamsOptions_resolution = resolution' } ) instance ResolutionLens StreamDetailed Text where resolution streamDetailed = ( streamDetailed_resolution streamDetailed , \ resolution' -> streamDetailed { streamDetailed_resolution = resolution' } ) instance ResourceStateLens ActivityDetailed Integer where resourceState activityDetailed = ( activityDetailed_resourceState activityDetailed , \ resourceState' -> activityDetailed { activityDetailed_resourceState = resourceState' } ) instance ResourceStateLens ActivityLapSummary Integer where resourceState activityLapSummary = ( activityLapSummary_resourceState activityLapSummary , \ resourceState' -> activityLapSummary { activityLapSummary_resourceState = resourceState' } ) instance ResourceStateLens ActivitySummary Integer where resourceState activitySummary = ( activitySummary_resourceState activitySummary , \ resourceState' -> activitySummary { activitySummary_resourceState = resourceState' } ) instance ResourceStateLens ActivityZoneDetailed Integer where resourceState activityZoneDetailed = ( activityZoneDetailed_resourceState activityZoneDetailed , \ resourceState' -> activityZoneDetailed { activityZoneDetailed_resourceState = resourceState' } ) instance ResourceStateLens AthleteDetailed Integer where resourceState athleteDetailed = ( athleteDetailed_resourceState athleteDetailed , \ resourceState' -> athleteDetailed { athleteDetailed_resourceState = resourceState' } ) instance ResourceStateLens AthleteMeta Integer where resourceState athleteMeta = ( athleteMeta_resourceState athleteMeta , \ resourceState' -> athleteMeta { athleteMeta_resourceState = resourceState' } ) instance ResourceStateLens AthleteSummary Integer where resourceState athleteSummary = ( athleteSummary_resourceState athleteSummary , \ resourceState' -> athleteSummary { athleteSummary_resourceState = resourceState' } ) instance ResourceStateLens ClubDetailed Integer where resourceState clubDetailed = ( clubDetailed_resourceState clubDetailed , \ resourceState' -> clubDetailed { clubDetailed_resourceState = resourceState' } ) instance ResourceStateLens ClubSummary Integer where resourceState clubSummary = ( clubSummary_resourceState clubSummary , \ resourceState' -> clubSummary { clubSummary_resourceState = resourceState' } ) instance ResourceStateLens CommentSummary Integer where resourceState commentSummary = ( commentSummary_resourceState commentSummary , \ resourceState' -> commentSummary { commentSummary_resourceState = resourceState' } ) instance ResourceStateLens EffortDetailed Integer where resourceState effortDetailed = ( effortDetailed_resourceState effortDetailed , \ resourceState' -> effortDetailed { effortDetailed_resourceState = resourceState' } ) instance ResourceStateLens GearDetailed Integer where resourceState gearDetailed = ( gearDetailed_resourceState gearDetailed , \ resourceState' -> gearDetailed { gearDetailed_resourceState = resourceState' } ) instance ResourceStateLens GearSummary Integer where resourceState gearSummary = ( gearSummary_resourceState gearSummary , \ resourceState' -> gearSummary { gearSummary_resourceState = resourceState' } ) instance ResourceStateLens PhotoSummary Integer where resourceState photoSummary = ( photoSummary_resourceState photoSummary , \ resourceState' -> photoSummary { photoSummary_resourceState = resourceState' } ) instance ResourceStateLens PolylineDetailed Integer where resourceState polylineDetailed = ( polylineDetailed_resourceState polylineDetailed , \ resourceState' -> polylineDetailed { polylineDetailed_resourceState = resourceState' } ) instance ResourceStateLens PolylineSummary Integer where resourceState polylineSummary = ( polylineSummary_resourceState polylineSummary , \ resourceState' -> polylineSummary { polylineSummary_resourceState = resourceState' } ) instance ResourceStateLens SegmentDetailed Integer where resourceState segmentDetailed = ( segmentDetailed_resourceState segmentDetailed , \ resourceState' -> segmentDetailed { segmentDetailed_resourceState = resourceState' } ) instance ResourceStateLens SegmentExplorerEntry Integer where resourceState segmentExplorerEntry = ( segmentExplorerEntry_resourceState segmentExplorerEntry , \ resourceState' -> segmentExplorerEntry { segmentExplorerEntry_resourceState = resourceState' } ) instance ResourceStateLens SegmentSummary Integer where resourceState segmentSummary = ( segmentSummary_resourceState segmentSummary , \ resourceState' -> segmentSummary { segmentSummary_resourceState = resourceState' } ) instance SegmentEffortsLens ActivityDetailed [EffortDetailed] where segmentEfforts activityDetailed = ( activityDetailed_segmentEfforts activityDetailed , \ segmentEfforts' -> activityDetailed { activityDetailed_segmentEfforts = segmentEfforts' } ) instance SegmentLens EffortDetailed SegmentSummary where segment effortDetailed = ( effortDetailed_segment effortDetailed , \ segment' -> effortDetailed { effortDetailed_segment = segment' } ) instance SensorBasedLens ActivityZoneDetailed Bool where sensorBased activityZoneDetailed = ( activityZoneDetailed_sensorBased activityZoneDetailed , \ sensorBased' -> activityZoneDetailed { activityZoneDetailed_sensorBased = sensorBased' } ) instance SeriesTypeLens GetStreamsOptions String where seriesType getStreamsOptions = ( getStreamsOptions_seriesType getStreamsOptions , \ seriesType' -> getStreamsOptions { getStreamsOptions_seriesType = seriesType' } ) instance SeriesTypeLens StreamDetailed Text where seriesType streamDetailed = ( streamDetailed_seriesType streamDetailed , \ seriesType' -> streamDetailed { streamDetailed_seriesType = seriesType' } ) instance SexLens AthleteDetailed (Maybe Char) where sex athleteDetailed = ( athleteDetailed_sex athleteDetailed , \ sex' -> athleteDetailed { athleteDetailed_sex = sex' } ) instance SexLens AthleteSummary (Maybe Char) where sex athleteSummary = ( athleteSummary_sex athleteSummary , \ sex' -> athleteSummary { athleteSummary_sex = sex' } ) instance SexLens UpdateCurrentAthleteOptions (Maybe Char) where sex updateCurrentAthleteOptions = ( updateCurrentAthleteOptions_sex updateCurrentAthleteOptions , \ sex' -> updateCurrentAthleteOptions { updateCurrentAthleteOptions_sex = sex' } ) instance ShoesLens AthleteDetailed [GearSummary] where shoes athleteDetailed = ( athleteDetailed_shoes athleteDetailed , \ shoes' -> athleteDetailed { athleteDetailed_shoes = shoes' } ) instance SportTypeLens ClubDetailed Text where sportType clubDetailed = ( clubDetailed_sportType clubDetailed , \ sportType' -> clubDetailed { clubDetailed_sportType = sportType' } ) instance StarCountLens SegmentDetailed Integer where starCount segmentDetailed = ( segmentDetailed_starCount segmentDetailed , \ starCount' -> segmentDetailed { segmentDetailed_starCount = starCount' } ) instance StarredLens SegmentDetailed Bool where starred segmentDetailed = ( segmentDetailed_starred segmentDetailed , \ starred' -> segmentDetailed { segmentDetailed_starred = starred' } ) instance StarredLens SegmentExplorerEntry Bool where starred segmentExplorerEntry = ( segmentExplorerEntry_starred segmentExplorerEntry , \ starred' -> segmentExplorerEntry { segmentExplorerEntry_starred = starred' } ) instance StarredLens SegmentSummary Bool where starred segmentSummary = ( segmentSummary_starred segmentSummary , \ starred' -> segmentSummary { segmentSummary_starred = starred' } ) instance StartDateLens ActivityDetailed UTCTime where startDate activityDetailed = ( activityDetailed_startDate activityDetailed , \ startDate' -> activityDetailed { activityDetailed_startDate = startDate' } ) instance StartDateLens ActivityLapSummary UTCTime where startDate activityLapSummary = ( activityLapSummary_startDate activityLapSummary , \ startDate' -> activityLapSummary { activityLapSummary_startDate = startDate' } ) instance StartDateLens ActivitySummary UTCTime where startDate activitySummary = ( activitySummary_startDate activitySummary , \ startDate' -> activitySummary { activitySummary_startDate = startDate' } ) instance StartDateLens EffortDetailed UTCTime where startDate effortDetailed = ( effortDetailed_startDate effortDetailed , \ startDate' -> effortDetailed { effortDetailed_startDate = startDate' } ) instance StartDateLens SegmentLeaderboardEntry UTCTime where startDate segmentLeaderboardEntry = ( segmentLeaderboardEntry_startDate segmentLeaderboardEntry , \ startDate' -> segmentLeaderboardEntry { segmentLeaderboardEntry_startDate = startDate' } ) instance StartDateLocalLens ActivityDetailed UTCTime where startDateLocal activityDetailed = ( activityDetailed_startDateLocal activityDetailed , \ startDateLocal' -> activityDetailed { activityDetailed_startDateLocal = startDateLocal' } ) instance StartDateLocalLens ActivityLapSummary UTCTime where startDateLocal activityLapSummary = ( activityLapSummary_startDateLocal activityLapSummary , \ startDateLocal' -> activityLapSummary { activityLapSummary_startDateLocal = startDateLocal' } ) instance StartDateLocalLens ActivitySummary UTCTime where startDateLocal activitySummary = ( activitySummary_startDateLocal activitySummary , \ startDateLocal' -> activitySummary { activitySummary_startDateLocal = startDateLocal' } ) instance StartDateLocalLens EffortDetailed UTCTime where startDateLocal effortDetailed = ( effortDetailed_startDateLocal effortDetailed , \ startDateLocal' -> effortDetailed { effortDetailed_startDateLocal = startDateLocal' } ) instance StartDateLocalLens SegmentLeaderboardEntry UTCTime where startDateLocal segmentLeaderboardEntry = ( segmentLeaderboardEntry_startDateLocal segmentLeaderboardEntry , \ startDateLocal' -> segmentLeaderboardEntry { segmentLeaderboardEntry_startDateLocal = startDateLocal' } ) instance StartIndexLens ActivityLapSummary Integer where startIndex activityLapSummary = ( activityLapSummary_startIndex activityLapSummary , \ startIndex' -> activityLapSummary { activityLapSummary_startIndex = startIndex' } ) instance StartIndexLens EffortDetailed Integer where startIndex effortDetailed = ( effortDetailed_startIndex effortDetailed , \ startIndex' -> effortDetailed { effortDetailed_startIndex = startIndex' } ) instance StartLatitudeLens ActivityDetailed Double where startLatitude activityDetailed = ( activityDetailed_startLatitude activityDetailed , \ startLatitude' -> activityDetailed { activityDetailed_startLatitude = startLatitude' } ) instance StartLatitudeLens ActivitySummary Double where startLatitude activitySummary = ( activitySummary_startLatitude activitySummary , \ startLatitude' -> activitySummary { activitySummary_startLatitude = startLatitude' } ) instance StartLatitudeLens SegmentDetailed Double where startLatitude segmentDetailed = ( segmentDetailed_startLatitude segmentDetailed , \ startLatitude' -> segmentDetailed { segmentDetailed_startLatitude = startLatitude' } ) instance StartLatitudeLens SegmentSummary Double where startLatitude segmentSummary = ( segmentSummary_startLatitude segmentSummary , \ startLatitude' -> segmentSummary { segmentSummary_startLatitude = startLatitude' } ) instance StartLatlngLens ActivityDetailed (Maybe (Double, Double)) where startLatlng activityDetailed = ( activityDetailed_startLatlng activityDetailed , \ startLatlng' -> activityDetailed { activityDetailed_startLatlng = startLatlng' } ) instance StartLatlngLens ActivitySummary (Maybe (Double, Double)) where startLatlng activitySummary = ( activitySummary_startLatlng activitySummary , \ startLatlng' -> activitySummary { activitySummary_startLatlng = startLatlng' } ) instance StartLatlngLens SegmentDetailed ((Double, Double)) where startLatlng segmentDetailed = ( segmentDetailed_startLatlng segmentDetailed , \ startLatlng' -> segmentDetailed { segmentDetailed_startLatlng = startLatlng' } ) instance StartLatlngLens SegmentExplorerEntry ((Double, Double)) where startLatlng segmentExplorerEntry = ( segmentExplorerEntry_startLatlng segmentExplorerEntry , \ startLatlng' -> segmentExplorerEntry { segmentExplorerEntry_startLatlng = startLatlng' } ) instance StartLatlngLens SegmentSummary ((Double, Double)) where startLatlng segmentSummary = ( segmentSummary_startLatlng segmentSummary , \ startLatlng' -> segmentSummary { segmentSummary_startLatlng = startLatlng' } ) instance StartLongitudeLens ActivityDetailed Double where startLongitude activityDetailed = ( activityDetailed_startLongitude activityDetailed , \ startLongitude' -> activityDetailed { activityDetailed_startLongitude = startLongitude' } ) instance StartLongitudeLens ActivitySummary Double where startLongitude activitySummary = ( activitySummary_startLongitude activitySummary , \ startLongitude' -> activitySummary { activitySummary_startLongitude = startLongitude' } ) instance StartLongitudeLens SegmentDetailed Double where startLongitude segmentDetailed = ( segmentDetailed_startLongitude segmentDetailed , \ startLongitude' -> segmentDetailed { segmentDetailed_startLongitude = startLongitude' } ) instance StartLongitudeLens SegmentSummary Double where startLongitude segmentSummary = ( segmentSummary_startLongitude segmentSummary , \ startLongitude' -> segmentSummary { segmentSummary_startLongitude = startLongitude' } ) instance StateLens AthleteDetailed Text where state athleteDetailed = ( athleteDetailed_state athleteDetailed , \ state' -> athleteDetailed { athleteDetailed_state = state' } ) instance StateLens AthleteSummary Text where state athleteSummary = ( athleteSummary_state athleteSummary , \ state' -> athleteSummary { athleteSummary_state = state' } ) instance StateLens BuildAuthorizeUrlOptions String where state buildAuthorizeUrlOptions = ( buildAuthorizeUrlOptions_state buildAuthorizeUrlOptions , \ state' -> buildAuthorizeUrlOptions { buildAuthorizeUrlOptions_state = state' } ) instance StateLens ClubDetailed Text where state clubDetailed = ( clubDetailed_state clubDetailed , \ state' -> clubDetailed { clubDetailed_state = state' } ) instance StateLens SegmentDetailed Text where state segmentDetailed = ( segmentDetailed_state segmentDetailed , \ state' -> segmentDetailed { segmentDetailed_state = state' } ) instance StateLens SegmentSummary Text where state segmentSummary = ( segmentSummary_state segmentSummary , \ state' -> segmentSummary { segmentSummary_state = state' } ) instance StateLens UpdateCurrentAthleteOptions (Maybe String) where state updateCurrentAthleteOptions = ( updateCurrentAthleteOptions_state updateCurrentAthleteOptions , \ state' -> updateCurrentAthleteOptions { updateCurrentAthleteOptions_state = state' } ) instance StatusLens UploadStatus Text where status uploadStatus = ( uploadStatus_status uploadStatus , \ status' -> uploadStatus { uploadStatus_status = status' } ) instance SummaryPolylineLens PolylineDetailed (Maybe [(Double, Double)]) where summaryPolyline polylineDetailed = ( polylineDetailed_summaryPolyline polylineDetailed , \ summaryPolyline' -> polylineDetailed { polylineDetailed_summaryPolyline = summaryPolyline' } ) instance SummaryPolylineLens PolylineSummary (Maybe [(Double, Double)]) where summaryPolyline polylineSummary = ( polylineSummary_summaryPolyline polylineSummary , \ summaryPolyline' -> polylineSummary { polylineSummary_summaryPolyline = summaryPolyline' } ) instance TextLens CommentSummary Text where text commentSummary = ( commentSummary_text commentSummary , \ text' -> commentSummary { commentSummary_text = text' } ) instance TimeLens ActivityZoneDistributionBucket Integer where time activityZoneDistributionBucket = ( activityZoneDistributionBucket_time activityZoneDistributionBucket , \ time' -> activityZoneDistributionBucket { activityZoneDistributionBucket_time = time' } ) instance TimezoneLens ActivityDetailed Text where timezone activityDetailed = ( activityDetailed_timezone activityDetailed , \ timezone' -> activityDetailed { activityDetailed_timezone = timezone' } ) instance TimezoneLens ActivitySummary Text where timezone activitySummary = ( activitySummary_timezone activitySummary , \ timezone' -> activitySummary { activitySummary_timezone = timezone' } ) instance TotalElevationGainLens ActivityDetailed Double where totalElevationGain activityDetailed = ( activityDetailed_totalElevationGain activityDetailed , \ totalElevationGain' -> activityDetailed { activityDetailed_totalElevationGain = totalElevationGain' } ) instance TotalElevationGainLens ActivityLapSummary Double where totalElevationGain activityLapSummary = ( activityLapSummary_totalElevationGain activityLapSummary , \ totalElevationGain' -> activityLapSummary { activityLapSummary_totalElevationGain = totalElevationGain' } ) instance TotalElevationGainLens ActivitySummary Double where totalElevationGain activitySummary = ( activitySummary_totalElevationGain activitySummary , \ totalElevationGain' -> activitySummary { activitySummary_totalElevationGain = totalElevationGain' } ) instance TotalElevationGainLens SegmentDetailed Double where totalElevationGain segmentDetailed = ( segmentDetailed_totalElevationGain segmentDetailed , \ totalElevationGain' -> segmentDetailed { segmentDetailed_totalElevationGain = totalElevationGain' } ) instance TrainerLens ActivityDetailed Bool where trainer activityDetailed = ( activityDetailed_trainer activityDetailed , \ trainer' -> activityDetailed { activityDetailed_trainer = trainer' } ) instance TrainerLens ActivitySummary Bool where trainer activitySummary = ( activitySummary_trainer activitySummary , \ trainer' -> activitySummary { activitySummary_trainer = trainer' } ) instance TrainerLens UpdateActivityOptions (Maybe Bool) where trainer updateActivityOptions = ( updateActivityOptions_trainer updateActivityOptions , \ trainer' -> updateActivityOptions { updateActivityOptions_trainer = trainer' } ) instance TrainerLens UploadActivityOptions Bool where trainer uploadActivityOptions = ( uploadActivityOptions_trainer uploadActivityOptions , \ trainer' -> uploadActivityOptions { uploadActivityOptions_trainer = trainer' } ) instance TruncatedLens ActivityDetailed Integer where truncated activityDetailed = ( activityDetailed_truncated activityDetailed , \ truncated' -> activityDetailed { activityDetailed_truncated = truncated' } ) instance TypeLens ActivityDetailed Text where type_ activityDetailed = ( activityDetailed_type activityDetailed , \ type_' -> activityDetailed { activityDetailed_type = type_' } ) instance TypeLens ActivitySummary Text where type_ activitySummary = ( activitySummary_type activitySummary , \ type_' -> activitySummary { activitySummary_type = type_' } ) instance TypeLens ActivityZoneDetailed Text where type_ activityZoneDetailed = ( activityZoneDetailed_type activityZoneDetailed , \ type_' -> activityZoneDetailed { activityZoneDetailed_type = type_' } ) instance TypeLens PhotoSummary Text where type_ photoSummary = ( photoSummary_type photoSummary , \ type_' -> photoSummary { photoSummary_type = type_' } ) instance TypeLens StreamDetailed Text where type_ streamDetailed = ( streamDetailed_type streamDetailed , \ type_' -> streamDetailed { streamDetailed_type = type_' } ) instance TypeLens UpdateActivityOptions (Maybe String) where type_ updateActivityOptions = ( updateActivityOptions_type updateActivityOptions , \ type_' -> updateActivityOptions { updateActivityOptions_type = type_' } ) instance UidLens PhotoSummary Text where uid photoSummary = ( photoSummary_uid photoSummary , \ uid' -> photoSummary { photoSummary_uid = uid' } ) instance UpdatedAtLens AthleteDetailed UTCTime where updatedAt athleteDetailed = ( athleteDetailed_updatedAt athleteDetailed , \ updatedAt' -> athleteDetailed { athleteDetailed_updatedAt = updatedAt' } ) instance UpdatedAtLens AthleteSummary UTCTime where updatedAt athleteSummary = ( athleteSummary_updatedAt athleteSummary , \ updatedAt' -> athleteSummary { athleteSummary_updatedAt = updatedAt' } ) instance UpdatedAtLens SegmentDetailed UTCTime where updatedAt segmentDetailed = ( segmentDetailed_updatedAt segmentDetailed , \ updatedAt' -> segmentDetailed { segmentDetailed_updatedAt = updatedAt' } ) instance UploadIdLens ActivityDetailed (Maybe Integer) where uploadId activityDetailed = ( activityDetailed_uploadId activityDetailed , \ uploadId' -> activityDetailed { activityDetailed_uploadId = uploadId' } ) instance UploadIdLens ActivitySummary (Maybe Integer) where uploadId activitySummary = ( activitySummary_uploadId activitySummary , \ uploadId' -> activitySummary { activitySummary_uploadId = uploadId' } ) instance UploadedAtLens PhotoSummary UTCTime where uploadedAt photoSummary = ( photoSummary_uploadedAt photoSummary , \ uploadedAt' -> photoSummary { photoSummary_uploadedAt = uploadedAt' } ) instance WeightClassLens GetSegmentLeaderboardOptions (Maybe String) where weightClass getSegmentLeaderboardOptions = ( getSegmentLeaderboard_weightClass getSegmentLeaderboardOptions , \ weightClass' -> getSegmentLeaderboardOptions { getSegmentLeaderboard_weightClass = weightClass' } ) instance WeightLens UpdateCurrentAthleteOptions (Maybe Double) where weight updateCurrentAthleteOptions = ( updateCurrentAthleteOptions_weight updateCurrentAthleteOptions , \ weight' -> updateCurrentAthleteOptions { updateCurrentAthleteOptions_weight = weight' } ) instance WriteScopeLens BuildAuthorizeUrlOptions Bool where writeScope buildAuthorizeUrlOptions = ( buildAuthorizeUrlOptions_writeScope buildAuthorizeUrlOptions , \ writeScope' -> buildAuthorizeUrlOptions { buildAuthorizeUrlOptions_writeScope = writeScope' } )