3      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ None+24M` geography ID Instagram returns data:null for nothing, but Aeson considers that () maps to an empty array... so we model the fact that we expect null via NoResult  a relationship between two usersnot present in docincoming relationship status outgoing relationship status a Tag Tag Name an update from a subscription *a subscription to a real time notification'notification aspect(#the URL to receive notifications to)?a collection of items (count + data) data can only be a subset-Commenton on a medium3 comment id4#different images for the same media9data for a single image>geographical location infoE location IDFposition of a userJposition in pictureNinstagram media object^seems to be open format Whttps://groups.google.com/forum/?fromgroups#!topic/instagram-api-developers/KvGH1cnjljQ_Media ID`=pagination info for responses that can return a lot of data +error envelope for Instagram error responseg"envelope for Instagram OK responseiAthis should only say 200, no error, but put here for completenessj@data, garanteed to be present (otherwise we get an ErrEnvelope) l/an exception that a call to instagram may throwapplication exceptionJSON parsingError$an error returned to us by Instagramm the scopes of the authenticationr/the User counts info returned by some endpointsw?the User partial profile returned by the authentication User ID!the access token is simply a Text-the oauth token returned after authenticationthe access tokenthe user structure returnedthe app credentials client id client secret get client id in ByteString form$get client secret in ByteString form2the media Aspect, the only one supported for now !from json as per Instagram format!to json as per Instagram format !from json as per Instagram format#to json as per Instagram format  !from json as per Instagram format  to json as per Instagram format  !from json as per Instagram format  to json as per Instagram format  !from json as per Instagram format#to json as per Instagram format !from json as per Instagram format#to json as per Instagram format !from json as per Instagram format#to json as per Instagram format !from json as per Instagram format#to json as per Instagram format !from json as per Instagram format#to json as per Instagram format !from json asCommentstagram format#to json asCommentstagram format !from json as per Instagram format%to json as per Instagram format !from json as per Instagram format%to json as per Instagram format !from json as per Instagram format%to json as per Instagram format !from json as per Instagram format %to json as per Instagram format !!from json as per Instagram format"%to json as per Instagram format #!from json as per Instagram format$#to json as per Instagram format %!from json as per Instagram format&#to json as per Instagram format '!from json as per Instagram format(#to json as per Instagram format )!from json as per Instagram format*#to json as per Instagram format +,make our exception type a normal exception ,!from json as per Instagram format-#to json as per Instagram format .to json as per Instagram format/!from json as per Instagram format0!from json as per Instagram format1#to json as per Instagram format 2 simple string3simple string 4)from json as per Instagram format 5to json as per Instagram format6  !"#$%&'7()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdef89ghijkl:;<=mnopqrstuvwxyz{|}~      !"#$%&'()*+,-./012345  !"#$%&'7()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdef89ghijklmnopqrstuvwxyz{|}~V6     !"#$%&'7()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdef89ghijkl:;<=mqponrstuvwxyz{|}~      !"#$%&'()*+,-./012345None*+2346=BHKM>Xsimple class used to hide the serialization of parameters ansd simplify the calling code?&the data kept through the computations@app credentialsAHTTP connection managerB host namefthe instagram monad transformer this encapsulates the data necessary to pass the app credentials, etcRun a computation in the * monad transformer with your credentials.CGet the user's credentials.DGet the instagram hostE!build a post request to InstagramF build a get request to InstagramG$build a delete request to InstagramH3build a URL for a get operation with a single queryI4perform a HTTP request and deal with the JSON resultJ_get a JSON response from a request to Instagram instagram returns either a result, or an errorKUget an envelope from a request to Instagram the error is wrapped inside the envelopeLget an envelope from InstagramM<get an envelope from Instagram, with optional authenticationN0send a delete and get an envelope from InstagramONsend a delete and get an envelope from Instagram, with optional authenticationP6post a request and get back an envelope from InstagramQTpost a request and get back an envelope from Instagram, with optional authenticationRMutility function to get an envelop, independently of how the request is builtSGet the T.Run a  ResourceT inside a .U#Transform the computation inside a .VTrue if the the Status is ok (i.e. 2XX).W!add the access token to the queryX]add an optional access token to the query if we don't have a token, we'll pass the client_idY(add application client info to the query.>Z?[@AB\]Your app's credentials.Connection manager (see ^).the action to run the resultCDE the url paththe query parametersthe properly configured requestF the url paththe query parametersthe properly configured requestG the url paththe query parametersthe properly configured requestH the url paththe query parametersthe URLIextract the error from the JSONJKL(the URL components, will be concatenatedthe access tokenthe query parametersthe resulting envelopeM(the URL components, will be concatenatedthe access tokenthe query parametersthe resulting envelopeN(the URL components, will be concatenatedthe access tokenthe query parametersthe resulting envelopeO(the URL components, will be concatenatedthe access tokenthe query parametersthe resulting envelopeP(the URL components, will be concatenatedthe access tokenthe query parametersthe resulting envelopeQ(the URL components, will be concatenatedthe access tokenthe query parametersthe resulting envelopeRthe request building method(the URL components, will be concatenatedthe access tokenthe query parametersthe resulting envelopeSUVWXY_`abcdefghijkl>ZCDEFGHJKLMNOPQSUWXY'>Z?[@AB\]CDEFGHIJKLMNOPQRSUVWXY_`abcdefghijNone+3deletion parameters"delete all geography subscriptions!delete all location subscriptionsdelete all tag subscriptionsdelete all user subscriptions%delete one subscription, given its IDdelete all subscriptionsdetails of subscription request@when a picture is tagged with a location inside the given region1when a picture is tagged with a specific location+when a picture is tagged with the given tagwhen a user uploads a picture(parameters for the subscription creationthe actual subscription request,the url Instagram will post notifications tothe subscription aspectthe verification tokencreate a subscription*list all subscriptions for the application&delete subscriptions based on criteriaBverify the signature with the content, using the secret as the keym to HTTP queryn to HTTP queryo to HTTP querythe subscription parametersthe created subscriptionthe ID of the subscriptionthe parameters for the deletionthe ID of the subscription the signature the contentmno  mnoNone+3relationship action(Get the list of users this user follows./Get the list of users this user is followed by.CList the users who have requested this user's permission to follow.5Get information about a relationship to another user.EModify the relationship between the current user and the target user. p pNone+3$parameters for recent tag pagination#Get information about a tag object.$Get a list of recently tagged media.Search for tags by name. qrqrNone+3 parameters for self liked callparameters for self liked call#Parameters for call to recent media Parameters for call to self feed#Get basic information about a user."See the authenticated user's feed..Get the most recent media published by a user.9See the authenticated user's list of media they've liked.Search for a user by name. stuvwxystuvwxyNone+3#Parameters for call to media search%Get information about a media object.7Get a list of what media is most popular at the moment.!Search for media in a given area. z{ z{ None+3#Parameters for call to media search6Parameters for call to recent media in location search!Get information about a location.9Get a list of recent media objects from a given location./Search for a location by geographic coordinate.|}~ |}~ None+3.Get a list of users who have liked this media.=Set a like on this media by the currently authenticated user.@Remove a like on this media by the currently authenticated user. None+37Parameters for call to recent media in geography searchDGet very recent media from a geography subscription that you created None+3'Get a full list of comments on a media.Create a comment on a media.`Remove a comment either on the authenticated user's media or authored by the authenticated user. None+3Kthe URI to redirect the user after she accepts/refuses to authorize the app.get the authorize url to redirect your user to`second step of authorization: get the access token once the user has been redirected with a codeKthe URI to redirect the user after she accepts/refuses to authorize the app-the requested scopes (can be empty for Basic)the URL to redirect the user tothe redirect urithe code sent back to your appthe auth tokenNone+  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~lwxyz{|}~rstuvmqponghijk`abcdefNOPQRSTUVWXYZ[\]^JKLMFGHI>?@ABCD9:;<=45678-./012)*+,'( !"#$%&   _3E !!"#$%&''()*+,-./012334566789:;<<=>?@@ABCDDEFGHIJKKLMNNOPQQRSTUVWXYZ[\]^_`abbcdefghhijklmnopqrrstuvvwxyz{|}~              !"#$%&1'()*+,-./0123456789:;<=>?@ABCDEFGHI,JKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmno p q r s t uvig-0.3 InstagramInstagram.TypesInstagram.MonadInstagram.RealTimeInstagram.RelationshipsInstagram.TagsInstagram.UsersInstagram.MediaInstagram.LocationsInstagram.LikesInstagram.GeographiesInstagram.CommentsInstagram.Auth GeographyIDNoResult Relationship rOutgoing rIncomingrTargetUserPrivateIncomingStatusInNone BlockedByYou RequestedBy FollowedByOutgoingStatusOutNone RequestedFollowsTagtName tMediaCountTagNameUpdateuSubscriptionIDuObject uObjectIDuChangedAspectuTime SubscriptionsIDsTypesObject sObjectIDsAspect sCallbackUrl sLatitude sLongitudesRadiusAspect CallbackUrl CollectioncCountcDataCommentcIDcCreatedcTextcFrom CommentIDImagesiLowRes iThumbnail iStandardRes ImageDataidURLidWidthidHeightLocationlID lLatitude lLongitudelStreetAddresslName LocationID UserPosition upPositionupUserPositionpXpYMediamIDmCaptionmLinkmUsermCreatedmImagesmType mUsersInPhotomFiltermTags mLocation mCommentsmLikes mUserHasLiked mAttributionMediaID PaginationpNextUrl pNextMaxID pNextMinID pNextMaxTagID pMinTagIDEnvelopeeMetaeData ePagination IGExceptionScopeLikes RelationshipsCommentsBasic UserCountsucMedia ucFollows ucFollowedByUseruID uUsername uFullNameuProfilePictureuWebsiteuBiouCountsUserID AccessToken OAuthToken oaAccessTokenoaUser Credentials cClientID cClientSecretmedia InstagramT runInstagramTrunResourceInIsDeletionParamsDeleteGeographiesDeleteLocations DeleteTags DeleteUsers DeleteOnedoID DeleteAllSubscriptionRequestGeographyRequest grLatitude grLongitudegrRadiusLocationRequestlrID TagRequesttrTag UserRequestSubscriptionParams spRequest spCallbackspAspect spVerifyTokencreateSubscriptionlistSubscriptionsdeleteSubscriptionsverifySignatureRelationShipActionDenyApproveUnblockBlockUnfollowFollow getFollows getFollowedBygetRequestedBygetRelationshipsetRelationShipRecentTagParamsrtpMaxIDrtpMinIDgetTaggetRecentTagged searchTagsUserSearchParamsuspQueryuspCountSelfLikedParamsslpCount slpMaxLikeID RecentParamsrpCountrpMaxTimestamprpMinTimestamprpMaxIDrpMinIdSelfFeedParamssfpCountsfpMaxIDsfpMinIdgetUser getSelfFeed getRecent getSelfLiked searchUsersMediaSearchParams mspLatitude mspLongitude mspDistancemspMaxTimestampmspMinTimestampgetMediagetPopularMedia searchMediaLocationSearchParams lspLatitude lspLongitude lspDistancelspFoursquareIDv2lspFoursquareIDLocationMediaParamslmspMaxTimestamplmspMinTimestamp lmspMaxID lmspMinId getLocationgetLocationRecentMediasearchLocationsgetLikeslikeunlikeGeographyMediaParamsgmpCountgmpMinIdgetGeographyRecentMedia getComments postComment deleteComment RedirectUrigetUserAccessTokenURL1getUserAccessTokenURL2 ErrEnvelopeIGAppException JSONExceptionIGError clientIDBSclientSecretBS$fFromJSONNoResult$fToJSONNoResult$fFromJSONRelationship$fToJSONRelationship$fFromJSONIncomingStatus$fToJSONIncomingStatus$fFromJSONOutgoingStatus$fToJSONOutgoingStatus $fFromJSONTag $fToJSONTag$fFromJSONUpdate$fToJSONUpdate$fFromJSONSubscription$fToJSONSubscription$fFromJSONAspect$fToJSONAspect$fFromJSONCollection$fToJSONCollection$fFromJSONComment$fToJSONComment$fFromJSONImages$fToJSONImages$fFromJSONImageData$fToJSONImageData$fFromJSONLocation$fToJSONLocation$fFromJSONUserPosition$fToJSONUserPosition$fFromJSONPosition$fToJSONPosition$fFromJSONMedia $fToJSONMedia$fFromJSONPagination$fToJSONPagination$fFromJSONErrEnvelope$fToJSONErrEnvelope$fFromJSONEnvelope$fToJSONEnvelope$fExceptionIGException$fFromJSONIGError$fToJSONIGError$fToJSONUserCounts$fFromJSONUserCounts$fFromJSONUser $fToJSONUser$fFromJSONAccessToken$fToJSONAccessToken$fFromJSONOAuthToken$fToJSONOAuthTokeneeMetaigeCodeigeType igeMessage ToHtQueryIsDataisCreds isManagerisHostgetCredsgetHostgetPostRequest getGetRequestgetDeleteRequest getQueryURLigReqgetJSONResponsegetJSONEnvelopegetGetEnvelopegetGetEnvelopeMgetDeleteEnvelopegetDeleteEnvelopeMgetPostEnvelopegetPostEnvelopeM getEnvelopeM getManagerhttp-client-0.4.16Network.HTTP.Client.TypesManager mapInstagramTisOkayaddToken addTokenMaddClientInfos?+IsunIshttp-conduit-2.1.5.1Network.HTTP.Conduit withManager $fToHtQuery[]$fToHtQueryMaybe$fToHtQueryText$fToHtQueryMaybe0$fToHtQueryMaybe1$fToHtQueryMaybe2$fToHtQueryInteger$fToHtQueryMaybe3$fToHtQueryDouble$fMonadBaseControlbInstagramT$fMonadTransControlInstagramT$fMonadBasebInstagramTmonad-control-1.0.0.4Control.Monad.Trans.ControlMonadBaseControlresourcet-1.1.5%Control.Monad.Trans.Resource.Internal MonadResource$fQueryLikeDeletionParams$fQueryLikeSubscriptionRequest$fQueryLikeSubscriptionParams$fQueryLikeRelationShipAction$fQueryLikeRecentTagParams$fDefaultRecentTagParams$fQueryLikeUserSearchParams$fQueryLikeSelfLikedParams$fDefaultSelfLikedParams$fQueryLikeRecentParams$fDefaultRecentParams$fQueryLikeSelfFeedParams$fDefaultSelfFeedParams$fQueryLikeMediaSearchParams$fDefaultMediaSearchParams$fQueryLikeLocationSearchParams$fDefaultLocationSearchParams$fQueryLikeLocationMediaParams$fDefaultLocationMediaParams$fQueryLikeGeographyMediaParams$fDefaultGeographyMediaParams