twitter-conduit 0.2.2.2 → 0.2.3
raw patch · 10 files changed
+17/−56 lines, 10 files
Files
- .travis/stack-lts-2.yaml +0/−9
- .travis/stack-lts-3.yaml +0/−11
- .travis/stack-lts-5.yaml +0/−7
- .travis/stack-lts-6.yaml +0/−7
- .travis/stack-lts-8.yaml +0/−8
- .travis/stack-nightly.yaml +0/−6
- README.md +1/−1
- Warning.hs +5/−0
- Web/Twitter/Conduit/Stream.hs +9/−5
- twitter-conduit.cabal +2/−2
− .travis/stack-lts-2.yaml
@@ -1,9 +0,0 @@-flags: {}-packages:-- '.'-- 'sample'-extra-deps:-- cabal-doctest-1.0.2-- twitter-types-0.7.2.1-- twitter-types-lens-0.7.2-resolver: __RESOLVER__
− .travis/stack-lts-3.yaml
@@ -1,11 +0,0 @@-flags:- twitter-types:- time15: true-packages:-- '.'-- 'sample'-extra-deps:-- cabal-doctest-1.0.2-- twitter-types-0.7.2.1-- twitter-types-lens-0.7.2-resolver: __RESOLVER__
− .travis/stack-lts-5.yaml
@@ -1,7 +0,0 @@-flags: {}-packages:-- '.'-- 'sample'-extra-deps:-- cabal-doctest-1.0.2-resolver: __RESOLVER__
− .travis/stack-lts-6.yaml
@@ -1,7 +0,0 @@-flags: {}-packages:-- '.'-- 'sample'-extra-deps:-- cabal-doctest-1.0.2-resolver: __RESOLVER__
− .travis/stack-lts-8.yaml
@@ -1,8 +0,0 @@-flags: {}-packages:-- '.'-- 'sample'-extra-deps:-- twitter-types-0.7.2.2-- twitter-types-lens-0.7.2-resolver: __RESOLVER__
− .travis/stack-nightly.yaml
@@ -1,6 +0,0 @@-flags: {}-packages:-- '.'-- 'sample'-extra-deps: []-resolver: __RESOLVER__
README.md view
@@ -64,7 +64,7 @@ and open http://localhost:3000/signIn in your browser. -In both cases, you can obtain OAUTH_ACCESSS_TOKEN and OAUTH_ACCESS_SECRET variables,+In both cases, you can obtain `OAUTH_ACCESS_TOKEN` and `OAUTH_ACCESS_SECRET` variables, then you should set those values to environment variables as shown below: ~~~~
+ Warning.hs view
@@ -0,0 +1,5 @@+module Warning+ {-# WARNING ["You are configuring this package without cabal-doctest installed.",+ "The doctests test-suite will not work as a result.",+ "To fix this, install cabal-doctest before configuring."] #-}+ () where
Web/Twitter/Conduit/Stream.hs view
@@ -32,14 +32,16 @@ import Web.Twitter.Conduit.Request import Web.Twitter.Conduit.Response +import Control.Monad.IO.Class+import Control.Monad.Trans.Resource (MonadResource)+import Data.Aeson+import qualified Data.ByteString.Char8 as S8+import Data.Char import qualified Data.Conduit as C-import qualified Data.Conduit.List as CL import qualified Data.Conduit.Internal as CI+import qualified Data.Conduit.List as CL import qualified Data.List as L import qualified Data.Text as T-import Control.Monad.IO.Class-import Data.Aeson-import Control.Monad.Trans.Resource (MonadResource) import qualified Network.HTTP.Conduit as HTTP #if MIN_VERSION_conduit(1,0,16)@@ -68,7 +70,9 @@ -> m (C.ResumableSource m value) stream' info mgr req = do rsrc <- getResponse info mgr =<< liftIO (makeRequest req)- responseBody rsrc $=+ CL.sequence sinkFromJSON+ responseBody rsrc $=+ CL.sequence sinkFromJSONIgnoreSpaces+ where+ sinkFromJSONIgnoreSpaces = CL.filter (not . S8.all isSpace) C.=$ sinkFromJSON data Userstream userstream :: APIRequest Userstream StreamingAPI
twitter-conduit.cabal view
@@ -1,5 +1,5 @@ name: twitter-conduit-version: 0.2.2.2+version: 0.2.3 license: BSD3 license-file: LICENSE author: HATTORI Hiroki, Hideyuki Tanaka, Takahiro HIMURA@@ -27,9 +27,9 @@ .gitignore .travis.yml .travis/*.sh- .travis/*.yaml README.md ChangeLog.md+ Warning.hs sample/LICENSE sample/twitter-conduit-sample.cabal sample/*.hs