twitter-conduit 0.2.1 → 0.2.2

raw patch · 8 files changed

+40/−12 lines, 8 filesdep ~http-clientdep ~http-conduitPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: http-client, http-conduit

API changes (from Hackage documentation)

Files

• .travis.yml +5/−0
• .travis/stack-lts-8.yaml +8/−0
• ChangeLog.md +7/−0
• Web/Twitter/Conduit/Api.hs +1/−0
• Web/Twitter/Conduit/Base.hs +11/−9
• Web/Twitter/Conduit/Parameters.hs +4/−0
• Web/Twitter/Conduit/Status.hs +1/−0
• twitter-conduit.cabal +3/−3

@@ -23,6 +23,11 @@         apt:           sources: [ hvr-ghc ]           packages: [ ghc-7.10.3 ]+    - env: GHCVER=8.0.2 STACK_LTS=lts-8 STACK_TEMPLATE=stack-lts-8.yaml+      addons:+        apt:+          sources: [ hvr-ghc ]+          packages: [ ghc-8.0.2 ]  before_install:   # Download and unpack the stack executable

@@ -0,0 +1,8 @@+flags: {}+packages:+- '.'+- 'sample'+extra-deps:+- twitter-types-0.7.2.2+- twitter-types-lens-0.7.2+resolver: __RESOLVER__

@@ -1,3 +1,10 @@+## 0.2.2++* Upgrade http-conduit and http-client dependencies to:+  http-conduit >= 2.1.8 && http-client >= 0.4.30 [#51](https://github.com/himura/twitter-conduit/pull/51)+* Added `include_email` parameter to `AccountVerifyCredentials` [#49](https://github.com/himura/twitter-conduit/pull/49)+* Added `extAltText` parameter to `showId` [#50](https://github.com/himura/twitter-conduit/pull/50)+ ## 0.2.1  * Added `fullText` parameter to direct message calls [#47](https://github.com/himura/twitter-conduit/pull/47)

@@ -514,6 +514,7 @@ deriveHasParamInstances ''AccountVerifyCredentials     [ "include_entities"     , "skip_status"+    , "include_email"     ]  data AccountUpdateProfile

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE RecordWildCards #-}@@ -62,13 +63,19 @@              -> HT.SimpleQuery -- ^ Query              -> IO HTTP.Request makeRequest' m url query = do+#if MIN_VERSION_http_client(0,4,30)+    req <- HTTP.parseRequest url+#else     req <- HTTP.parseUrl url+#endif     let addParams =             if m == "POST"             then HTTP.urlEncodedBody query             else \r -> r { HTTP.queryString = HT.renderSimpleQuery False query }     return $ addParams $ req { HTTP.method = m+#if !MIN_VERSION_http_client(0,4,30)                              , HTTP.checkStatus = \_ _ _ -> Nothing+#endif                              }  getResponse :: MonadResource m@@ -263,7 +270,6 @@ -- -- This function cooperate with instances of 'HasCursorParam'. sourceWithCursor' :: ( MonadBase IO m-                     , FromJSON responseType                      , CursorKey ck                      , HasCursorParam (APIRequest apiName (WithCursor ck responseType))                      )@@ -273,9 +279,8 @@                   -> C.Source m Value sourceWithCursor' info mgr req = loop (-1)   where-    relax :: FromJSON value-          => APIRequest apiName (WithCursor ck responseType)-          -> APIRequest apiName (WithCursor ck value)+    relax :: APIRequest apiName (WithCursor ck responseType)+          -> APIRequest apiName (WithCursor ck Value)     relax = unsafeCoerce     loop 0 = CL.sourceNull     loop cur = do@@ -286,7 +291,6 @@ -- | A wrapper function to perform multiple API request with @SearchResult@. sourceWithSearchResult :: ( MonadBase IO m                           , FromJSON responseType-                          , HasMaxIdParam (APIRequest apiName (SearchResult [responseType]))                           )                        => TWInfo -- ^ Twitter Setting                        -> HTTP.Manager@@ -309,7 +313,6 @@  -- | A wrapper function to perform multiple API request with @SearchResult@. sourceWithSearchResult' :: ( MonadBase IO m-                           , HasMaxIdParam (APIRequest apiName (SearchResult [responseType]))                            )                         => TWInfo -- ^ Twitter Setting                         -> HTTP.Manager@@ -322,9 +325,8 @@     return $ res & searchResultStatuses .~ body   where     origQueryMap = req ^. params . to M.fromList-    relax :: FromJSON value-          => APIRequest apiName (SearchResult responseType)-          -> APIRequest apiName (SearchResult value)+    relax :: APIRequest apiName (SearchResult [responseType])+          -> APIRequest apiName (SearchResult [Value])     relax = unsafeCoerce     loop Nothing = CL.sourceNull     loop (Just nextResultsStr) = do

@@ -17,6 +17,8 @@        , HasExcludeRepliesParam (..)        , HasContributorDetailsParam (..)        , HasIncludeEntitiesParam (..)+       , HasIncludeEmailParam (..)+       , HasIncludeExtAltTextParam (..)        , HasIncludeUserEntitiesParam (..)        , HasIncludeRtsParam (..)        , HasIncludeMyRetweetParam (..)@@ -74,9 +76,11 @@ defineHasParamClassBool "exclude_replies" defineHasParamClassBool "contributor_details" defineHasParamClassBool "include_entities"+defineHasParamClassBool "include_email" defineHasParamClassBool "include_user_entities" defineHasParamClassBool "include_rts" defineHasParamClassBool "include_my_retweet"+defineHasParamClassBool "include_ext_alt_text" defineHasParamClassInteger "in_reply_to_status_id" defineHasParamClassBool "display_coordinates" defineHasParamClassBool "possibly_sensitive"

@@ -191,6 +191,7 @@     [ "trim_user"     , "include_my_retweet"     , "include_entities"+    , "include_ext_alt_text"     ]  data StatusesDestroyId

@@ -1,5 +1,5 @@ name:              twitter-conduit-version:           0.2.1+version:           0.2.2 license:           BSD3 license-file:      LICENSE author:            HATTORI Hiroki, Hideyuki Tanaka, Takahiro HIMURA@@ -64,8 +64,8 @@     , conduit >= 1.1     , conduit-extra >= 1.1     , http-types-    , http-conduit >= 2.0 && < 2.2-    , http-client >= 0.3+    , http-conduit >= 2.0 && < 2.3+    , http-client >= 0.3.0     , aeson >= 0.7.0.5     , attoparsec >= 0.10     , data-default >= 0.3