packages feed

twitter-conduit 0.0.5.2 → 0.0.5.3

raw patch · 3 files changed

+30/−11 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

+ Web.Twitter.Conduit.Api: data FavoritesList
+ Web.Twitter.Conduit.Api: favoritesList :: Maybe UserParam -> APIRequest FavoritesList Status
+ Web.Twitter.Conduit.Api: instance HasCountParam (APIRequest FavoritesList a0)
+ Web.Twitter.Conduit.Api: instance HasIncludeEntitiesParam (APIRequest FavoritesList a0)
+ Web.Twitter.Conduit.Api: instance HasMaxIdParam (APIRequest FavoritesList a0)
+ Web.Twitter.Conduit.Api: instance HasSinceIdParam (APIRequest FavoritesList a0)
- Web.Twitter.Conduit.Parameters: class Parameters a_aefp => HasContributorDetailsParam a_aefp where contributorDetails = wrappedParam "contributor_details" booleanQuery
+ Web.Twitter.Conduit.Parameters: class Parameters a_aeiK => HasContributorDetailsParam a_aeiK where contributorDetails = wrappedParam "contributor_details" booleanQuery
- Web.Twitter.Conduit.Parameters: class Parameters a_ae9w => HasCountParam a_ae9w where count = wrappedParam "count" readShow
+ Web.Twitter.Conduit.Parameters: class Parameters a_aecR => HasCountParam a_aecR where count = wrappedParam "count" readShow
- Web.Twitter.Conduit.Parameters: class Parameters a_aecW => HasCursorParam a_aecW where cursor = wrappedParam "cursor" readShow
+ Web.Twitter.Conduit.Parameters: class Parameters a_aegh => HasCursorParam a_aegh where cursor = wrappedParam "cursor" readShow
- Web.Twitter.Conduit.Parameters: class Parameters a_aeki => HasDisplayCoordinatesParam a_aeki where displayCoordinates = wrappedParam "display_coordinates" booleanQuery
+ Web.Twitter.Conduit.Parameters: class Parameters a_aenD => HasDisplayCoordinatesParam a_aenD where displayCoordinates = wrappedParam "display_coordinates" booleanQuery
- Web.Twitter.Conduit.Parameters: class Parameters a_aeeB => HasExcludeRepliesParam a_aeeB where excludeReplies = wrappedParam "exclude_replies" booleanQuery
+ Web.Twitter.Conduit.Parameters: class Parameters a_aehW => HasExcludeRepliesParam a_aehW where excludeReplies = wrappedParam "exclude_replies" booleanQuery
- Web.Twitter.Conduit.Parameters: class Parameters a_aepb => HasFollowParam a_aepb where follow = wrappedParam "follow" booleanQuery
+ Web.Twitter.Conduit.Parameters: class Parameters a_aesw => HasFollowParam a_aesw where follow = wrappedParam "follow" booleanQuery
- Web.Twitter.Conduit.Parameters: class Parameters a_aejr => HasInReplyToStatusIdParam a_aejr where inReplyToStatusId = wrappedParam "in_reply_to_status_id" readShow
+ Web.Twitter.Conduit.Parameters: class Parameters a_aemM => HasInReplyToStatusIdParam a_aemM where inReplyToStatusId = wrappedParam "in_reply_to_status_id" readShow
- Web.Twitter.Conduit.Parameters: class Parameters a_aegd => HasIncludeEntitiesParam a_aegd where includeEntities = wrappedParam "include_entities" booleanQuery
+ Web.Twitter.Conduit.Parameters: class Parameters a_aejy => HasIncludeEntitiesParam a_aejy where includeEntities = wrappedParam "include_entities" booleanQuery
- Web.Twitter.Conduit.Parameters: class Parameters a_aeiD => HasIncludeMyRetweetParam a_aeiD where includeMyRetweet = wrappedParam "include_my_retweet" booleanQuery
+ Web.Twitter.Conduit.Parameters: class Parameters a_aelY => HasIncludeMyRetweetParam a_aelY where includeMyRetweet = wrappedParam "include_my_retweet" booleanQuery
- Web.Twitter.Conduit.Parameters: class Parameters a_aehP => HasIncludeRtsParam a_aehP where includeRts = wrappedParam "include_rts" booleanQuery
+ Web.Twitter.Conduit.Parameters: class Parameters a_aela => HasIncludeRtsParam a_aela where includeRts = wrappedParam "include_rts" booleanQuery
- Web.Twitter.Conduit.Parameters: class Parameters a_aeh1 => HasIncludeUserEntitiesParam a_aeh1 where includeUserEntities = wrappedParam "include_user_entities" booleanQuery
+ Web.Twitter.Conduit.Parameters: class Parameters a_aekm => HasIncludeUserEntitiesParam a_aekm where includeUserEntities = wrappedParam "include_user_entities" booleanQuery
- Web.Twitter.Conduit.Parameters: class Parameters a_aelU => HasLangParam a_aelU where lang = wrappedParam "lang" utf8
+ Web.Twitter.Conduit.Parameters: class Parameters a_aepf => HasLangParam a_aepf where lang = wrappedParam "lang" utf8
- Web.Twitter.Conduit.Parameters: class Parameters a_aemI => HasLocaleParam a_aemI where locale = wrappedParam "locale" utf8
+ Web.Twitter.Conduit.Parameters: class Parameters a_aeq3 => HasLocaleParam a_aeq3 where locale = wrappedParam "locale" utf8
- Web.Twitter.Conduit.Parameters: class Parameters a_aepZ => HasMapParam a_aepZ where map = wrappedParam "map" booleanQuery
+ Web.Twitter.Conduit.Parameters: class Parameters a_aetk => HasMapParam a_aetk where map = wrappedParam "map" booleanQuery
- Web.Twitter.Conduit.Parameters: class Parameters a_aebe => HasMaxIdParam a_aebe where maxId = wrappedParam "max_id" readShow
+ Web.Twitter.Conduit.Parameters: class Parameters a_aeez => HasMaxIdParam a_aeez where maxId = wrappedParam "max_id" readShow
- Web.Twitter.Conduit.Parameters: class Parameters a_aeqR => HasMediaIdsParam a_aeqR where mediaIds = wrappedParam "media_ids" integerArrayQuery
+ Web.Twitter.Conduit.Parameters: class Parameters a_aeuc => HasMediaIdsParam a_aeuc where mediaIds = wrappedParam "media_ids" integerArrayQuery
- Web.Twitter.Conduit.Parameters: class Parameters a_aec5 => HasPageParam a_aec5 where page = wrappedParam "page" readShow
+ Web.Twitter.Conduit.Parameters: class Parameters a_aefq => HasPageParam a_aefq where page = wrappedParam "page" readShow
- Web.Twitter.Conduit.Parameters: class Parameters a_ael6 => HasPossiblySensitiveParam a_ael6 where possiblySensitive = wrappedParam "possibly_sensitive" booleanQuery
+ Web.Twitter.Conduit.Parameters: class Parameters a_aeor => HasPossiblySensitiveParam a_aeor where possiblySensitive = wrappedParam "possibly_sensitive" booleanQuery
- Web.Twitter.Conduit.Parameters: class Parameters a_aean => HasSinceIdParam a_aean where sinceId = wrappedParam "since_id" readShow
+ Web.Twitter.Conduit.Parameters: class Parameters a_aedI => HasSinceIdParam a_aedI where sinceId = wrappedParam "since_id" readShow
- Web.Twitter.Conduit.Parameters: class Parameters a_aeon => HasSkipStatusParam a_aeon where skipStatus = wrappedParam "skip_status" booleanQuery
+ Web.Twitter.Conduit.Parameters: class Parameters a_aerI => HasSkipStatusParam a_aerI where skipStatus = wrappedParam "skip_status" booleanQuery
- Web.Twitter.Conduit.Parameters: class Parameters a_aedN => HasTrimUserParam a_aedN where trimUser = wrappedParam "trim_user" booleanQuery
+ Web.Twitter.Conduit.Parameters: class Parameters a_aeh8 => HasTrimUserParam a_aeh8 where trimUser = wrappedParam "trim_user" booleanQuery
- Web.Twitter.Conduit.Parameters: class Parameters a_aenw => HasUntilParam a_aenw where until = wrappedParam "until" readShow
+ Web.Twitter.Conduit.Parameters: class Parameters a_aeqR => HasUntilParam a_aeqR where until = wrappedParam "until" readShow
- Web.Twitter.Conduit.Parameters: contributorDetails :: HasContributorDetailsParam a_aefp => Lens' a_aefp (Maybe Bool)
+ Web.Twitter.Conduit.Parameters: contributorDetails :: HasContributorDetailsParam a_aeiK => Lens' a_aeiK (Maybe Bool)
- Web.Twitter.Conduit.Parameters: count :: HasCountParam a_ae9w => Lens' a_ae9w (Maybe Integer)
+ Web.Twitter.Conduit.Parameters: count :: HasCountParam a_aecR => Lens' a_aecR (Maybe Integer)
- Web.Twitter.Conduit.Parameters: cursor :: HasCursorParam a_aecW => Lens' a_aecW (Maybe Integer)
+ Web.Twitter.Conduit.Parameters: cursor :: HasCursorParam a_aegh => Lens' a_aegh (Maybe Integer)
- Web.Twitter.Conduit.Parameters: displayCoordinates :: HasDisplayCoordinatesParam a_aeki => Lens' a_aeki (Maybe Bool)
+ Web.Twitter.Conduit.Parameters: displayCoordinates :: HasDisplayCoordinatesParam a_aenD => Lens' a_aenD (Maybe Bool)
- Web.Twitter.Conduit.Parameters: excludeReplies :: HasExcludeRepliesParam a_aeeB => Lens' a_aeeB (Maybe Bool)
+ Web.Twitter.Conduit.Parameters: excludeReplies :: HasExcludeRepliesParam a_aehW => Lens' a_aehW (Maybe Bool)
- Web.Twitter.Conduit.Parameters: follow :: HasFollowParam a_aepb => Lens' a_aepb (Maybe Bool)
+ Web.Twitter.Conduit.Parameters: follow :: HasFollowParam a_aesw => Lens' a_aesw (Maybe Bool)
- Web.Twitter.Conduit.Parameters: inReplyToStatusId :: HasInReplyToStatusIdParam a_aejr => Lens' a_aejr (Maybe StatusId)
+ Web.Twitter.Conduit.Parameters: inReplyToStatusId :: HasInReplyToStatusIdParam a_aemM => Lens' a_aemM (Maybe StatusId)
- Web.Twitter.Conduit.Parameters: includeEntities :: HasIncludeEntitiesParam a_aegd => Lens' a_aegd (Maybe Bool)
+ Web.Twitter.Conduit.Parameters: includeEntities :: HasIncludeEntitiesParam a_aejy => Lens' a_aejy (Maybe Bool)
- Web.Twitter.Conduit.Parameters: includeMyRetweet :: HasIncludeMyRetweetParam a_aeiD => Lens' a_aeiD (Maybe Bool)
+ Web.Twitter.Conduit.Parameters: includeMyRetweet :: HasIncludeMyRetweetParam a_aelY => Lens' a_aelY (Maybe Bool)
- Web.Twitter.Conduit.Parameters: includeRts :: HasIncludeRtsParam a_aehP => Lens' a_aehP (Maybe Bool)
+ Web.Twitter.Conduit.Parameters: includeRts :: HasIncludeRtsParam a_aela => Lens' a_aela (Maybe Bool)
- Web.Twitter.Conduit.Parameters: includeUserEntities :: HasIncludeUserEntitiesParam a_aeh1 => Lens' a_aeh1 (Maybe Bool)
+ Web.Twitter.Conduit.Parameters: includeUserEntities :: HasIncludeUserEntitiesParam a_aekm => Lens' a_aekm (Maybe Bool)
- Web.Twitter.Conduit.Parameters: lang :: HasLangParam a_aelU => Lens' a_aelU (Maybe Text)
+ Web.Twitter.Conduit.Parameters: lang :: HasLangParam a_aepf => Lens' a_aepf (Maybe Text)
- Web.Twitter.Conduit.Parameters: locale :: HasLocaleParam a_aemI => Lens' a_aemI (Maybe Text)
+ Web.Twitter.Conduit.Parameters: locale :: HasLocaleParam a_aeq3 => Lens' a_aeq3 (Maybe Text)
- Web.Twitter.Conduit.Parameters: map :: HasMapParam a_aepZ => Lens' a_aepZ (Maybe Bool)
+ Web.Twitter.Conduit.Parameters: map :: HasMapParam a_aetk => Lens' a_aetk (Maybe Bool)
- Web.Twitter.Conduit.Parameters: maxId :: HasMaxIdParam a_aebe => Lens' a_aebe (Maybe Integer)
+ Web.Twitter.Conduit.Parameters: maxId :: HasMaxIdParam a_aeez => Lens' a_aeez (Maybe Integer)
- Web.Twitter.Conduit.Parameters: mediaIds :: HasMediaIdsParam a_aeqR => Lens' a_aeqR (Maybe [Integer])
+ Web.Twitter.Conduit.Parameters: mediaIds :: HasMediaIdsParam a_aeuc => Lens' a_aeuc (Maybe [Integer])
- Web.Twitter.Conduit.Parameters: page :: HasPageParam a_aec5 => Lens' a_aec5 (Maybe Integer)
+ Web.Twitter.Conduit.Parameters: page :: HasPageParam a_aefq => Lens' a_aefq (Maybe Integer)
- Web.Twitter.Conduit.Parameters: possiblySensitive :: HasPossiblySensitiveParam a_ael6 => Lens' a_ael6 (Maybe Bool)
+ Web.Twitter.Conduit.Parameters: possiblySensitive :: HasPossiblySensitiveParam a_aeor => Lens' a_aeor (Maybe Bool)
- Web.Twitter.Conduit.Parameters: sinceId :: HasSinceIdParam a_aean => Lens' a_aean (Maybe Integer)
+ Web.Twitter.Conduit.Parameters: sinceId :: HasSinceIdParam a_aedI => Lens' a_aedI (Maybe Integer)
- Web.Twitter.Conduit.Parameters: skipStatus :: HasSkipStatusParam a_aeon => Lens' a_aeon (Maybe Bool)
+ Web.Twitter.Conduit.Parameters: skipStatus :: HasSkipStatusParam a_aerI => Lens' a_aerI (Maybe Bool)
- Web.Twitter.Conduit.Parameters: trimUser :: HasTrimUserParam a_aedN => Lens' a_aedN (Maybe Bool)
+ Web.Twitter.Conduit.Parameters: trimUser :: HasTrimUserParam a_aeh8 => Lens' a_aeh8 (Maybe Bool)
- Web.Twitter.Conduit.Parameters: until :: HasUntilParam a_aenw => Lens' a_aenw (Maybe Day)
+ Web.Twitter.Conduit.Parameters: until :: HasUntilParam a_aeqR => Lens' a_aeqR (Maybe Day)
- Web.Twitter.Conduit.Types.Lens: contents :: Lens (WithCursor cursorKey_ab6p wrapped_ab6q) (WithCursor cursorKey_adM8 wrapped_adM9) [wrapped_ab6q] [wrapped_adM9]
+ Web.Twitter.Conduit.Types.Lens: contents :: Lens (WithCursor cursorKey_ab6y wrapped_ab6z) (WithCursor cursorKey_adPt wrapped_adPu) [wrapped_ab6z] [wrapped_adPu]
- Web.Twitter.Conduit.Types.Lens: nextCursor :: Lens (WithCursor cursorKey_ab6p wrapped_ab6q) (WithCursor cursorKey_adMf wrapped_ab6q) Integer Integer
+ Web.Twitter.Conduit.Types.Lens: nextCursor :: Lens (WithCursor cursorKey_ab6y wrapped_ab6z) (WithCursor cursorKey_adPA wrapped_ab6z) Integer Integer
- Web.Twitter.Conduit.Types.Lens: previousCursor :: Lens (WithCursor cursorKey_ab6p wrapped_ab6q) (WithCursor cursorKey_adMl wrapped_ab6q) Integer Integer
+ Web.Twitter.Conduit.Types.Lens: previousCursor :: Lens (WithCursor cursorKey_ab6y wrapped_ab6z) (WithCursor cursorKey_adPG wrapped_ab6z) Integer Integer
- Web.Twitter.Conduit.Types.Lens: responseBody :: Lens (Response responseType_ab4k) (Response responseType_adOk) responseType_ab4k responseType_adOk
+ Web.Twitter.Conduit.Types.Lens: responseBody :: Lens (Response responseType_ab4t) (Response responseType_adRF) responseType_ab4t responseType_adRF
- Web.Twitter.Conduit.Types.Lens: responseHeaders :: Lens' (Response responseType_ab4k) ResponseHeaders
+ Web.Twitter.Conduit.Types.Lens: responseHeaders :: Lens' (Response responseType_ab4t) ResponseHeaders
- Web.Twitter.Conduit.Types.Lens: responseStatus :: Lens' (Response responseType_ab4k) Status
+ Web.Twitter.Conduit.Types.Lens: responseStatus :: Lens' (Response responseType_ab4t) Status

Files

Web/Twitter/Conduit/Api.hs view
@@ -85,7 +85,8 @@        -- , usersSuggestionsSlugMembers         -- * Favorites-       -- , favoritesList+       , FavoritesList+       , favoritesList        , FavoritesDestroy        , favoritesDestroy        , FavoritesCreate@@ -504,6 +505,33 @@ usersShow q = APIRequestGet (endpoint ++ "users/show.json") (mkUserParam q) deriveHasParamInstances ''UsersShow     [ "include_entities"+    ]++data FavoritesList+-- | Returns the 20 most recent Tweets favorited by the specified user.+--+-- You can perform request by using 'call':+--+-- @+-- res <- 'call' '$' 'favoritesList' (ScreenNameParam \"thimura\")+-- @+--+-- >>> favoritesList Nothing+-- APIRequestGet "https://api.twitter.com/1.1/favorites/list.json" []+-- >>> favoritesList (Just (ScreenNameParam "thimura"))+-- APIRequestGet "https://api.twitter.com/1.1/favorites/list.json" [("screen_name","thimura")]+-- >>> favoritesList (Just (UserIdParam 69179963))+-- APIRequestGet "https://api.twitter.com/1.1/favorites/list.json" [("user_id","69179963")]+favoritesList :: Maybe UserParam -> APIRequest FavoritesList Status+favoritesList mbuser = APIRequestGet (endpoint ++ "favorites/list.json") (mkParam mbuser)+  where+    mkParam Nothing = []+    mkParam (Just usr) = mkUserParam usr+deriveHasParamInstances ''FavoritesList+    [ "count"+    , "since_id"+    , "max_id"+    , "include_entities"     ]  data FavoritesCreate
tests/StatusSpec.hs view
@@ -63,15 +63,6 @@             res <- run $ call homeTimeline             length res `shouldSatisfy` (> 0) -    describe "retweetsOfMe" $ do-        let response = unsafePerformIO . run . call $ retweetsOfMe-        it "returns the most recent tweets authored by the authenticating user" $ do-             let screenNames = response ^.. traversed . statusUser . userScreenName-             screenNames `shouldSatisfy` allOf folded (== (self ^. userScreenName))-             length screenNames `shouldSatisfy` (== length response)-        it "returns the most recent tweets that have been retweeted by other" $ do-            response `shouldSatisfy` allOf (traversed . statusRetweetCount . _Just) (> 0)-     describe "showId" $ do         it "works for the known tweets" $ do             res <- run . call $ showId 477833886768959488
twitter-conduit.cabal view
@@ -1,5 +1,5 @@ name:              twitter-conduit-version:           0.0.5.2+version:           0.0.5.3 license:           BSD3 license-file:      LICENSE author:            HATTORI Hiroki, Hideyuki Tanaka, Takahiro HIMURA