tweet-hs 1.0.1.27 → 1.0.1.33

raw patch · 7 files changed

+15/−12 lines, 7 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• README.md +1/−1
• cabal.project.local +1/−1
• src/Web/Tweet/API.hs +7/−4
• src/Web/Tweet/Exec.hs +1/−1
• src/Web/Tweet/Utils.hs +1/−1
• src/Web/Tweet/Utils/API.hs +1/−1
• tweet-hs.cabal +3/−3

@@ -9,7 +9,7 @@ its [rust counterpart](https://github.com/vmchale/clit-rs) and it's a bit slower.  -Reasons to use tweeth-s:+Reasons to use tweeth-hs:   - Faster than other tools ([t](https://github.com/sferik/t),   [oysttyer](https://github.com/oysttyer/oysttyer))   - Support for colored output. 

@@ -1,4 +1,4 @@-with-compiler: ghc-8.2.1+with-compiler: ghc-8.2.2 optimization: 2 documentation: True haddock-hoogle: True

@@ -7,6 +7,7 @@ import           Control.Lens import           Control.Monad import qualified Data.ByteString.Lazy.Char8 as BSL+import           Data.Maybe                 (isJust) import           Data.Void import           Text.Megaparsec.Error import           Web.Tweet.Types@@ -21,13 +22,15 @@ getAll :: String -> Maybe Int -> FilePath -> IO Timeline getAll sn maxId filepath = do     tweets <- either (error "Parse tweets failed") id <$> getProfileMax sn 200 filepath maxId-    let lastId = _tweetId . last $ tweets-    if Just lastId == maxId then+    let lastId = _tweetId <$> tweets^?_last+    if lastId == maxId then         pure []     else         do-            putStrLn $ "fetching tweets since " ++ show lastId ++ "..."-            next <- getAll sn (Just lastId) filepath+            if isJust lastId+                then putStrLn $ "fetching tweets since " ++ show (lastId^?!_Just) ++ "..."+                else pure ()+            next <- getAll sn lastId filepath             pure (tweets ++ next)  -- | tweet, given a `Tweet` and a `Config` containing necessary data to sign the request.

@@ -5,7 +5,7 @@  import qualified Data.ByteString.Lazy.Char8 as BSL import           Data.Maybe-import           Data.Monoid                hiding (getAll)+import           Data.Monoid import           Data.Version import           Options.Applicative import           Paths_tweet_hs

@@ -15,7 +15,7 @@   ) where  import           Control.Composition-import           Control.Lens                hiding (noneOf)+import           Control.Lens import qualified Data.ByteString             as BS2 import qualified Data.ByteString.Char8       as BS import           Data.List

@@ -71,7 +71,7 @@                          , if isJust (_replyID tweet) then "&in_reply_to_status_id=" else ""                          , reply ]     where trim  = False-          reply = fromMaybe "" (show <$> _replyID tweet)+          reply = maybe "" show (_replyID tweet)  -- | Percent-encode a string strEncode :: String -> String

@@ -1,5 +1,5 @@ name:                tweet-hs-version:             1.0.1.27+version:             1.0.1.33 synopsis:            Command-line tool for twitter description:         a Command Line Interface Tweeter homepage:            https://github.com/vmchale/command-line-tweeter#readme@@ -89,7 +89,7 @@     ghc-options:       -rtsopts -with-rtsopts=-N   if flag(development)     ghc-options:       -Werror-  ghc-options:         -threaded -O3 -Wall -Wincomplete-uni-patterns -Wincomplete-record-updates+  ghc-options:         -O3 -Wall -Wincomplete-uni-patterns -Wincomplete-record-updates   build-depends:       base                      , tweet-hs    default-language:    Haskell2010@@ -107,7 +107,7 @@     ghc-options:       -fllvm -optlo-O3 -O3   if flag(development)     ghc-options:       -Werror-  ghc-options:         -threaded -rtsopts -with-rtsopts=-N -Wall -Wincomplete-uni-patterns -Wincomplete-record-updates+  ghc-options:         -Wall -Wincomplete-uni-patterns -Wincomplete-record-updates   default-language:    Haskell2010  test-suite tweeths-test