clit 0.2.2.5 → 0.2.2.6

raw patch · 3 files changed

+8/−23 lines, 3 filesdep −clitdep ~aesondep ~authenticate-oauthdep ~basePVP ok

version bump matches the API change (PVP)

Dependencies removed: clit

Dependency ranges changed: aeson, authenticate-oauth, base, http-client, http-client-tls, lens, optparse-applicative

API changes (from Hackage documentation)

Files

• app/Main.hs +0/−6
• clit.cabal +7/−16
• src/Web/Tweet.hs +1/−1

@@ -1,6 +0,0 @@-module Main where--import Web.Tweet.Exec--main :: IO ()-main = exec

@@ -1,5 +1,5 @@ name: clit-version: 0.2.2.5+version: 0.2.2.6 cabal-version: >=1.10 build-type: Simple license: BSD3@@ -24,15 +24,15 @@         Web.Tweet.Exec     build-depends:         base >=4.7 && <5,-        aeson >=0.11.3.0 && <0.12,-        http-client-tls >=0.2.4.1 && <0.3,-        http-client >=0.4.31.2 && <0.5,+        aeson >=1.0.2.1 && <1.1,+        http-client-tls >=0.3.3.1 && <0.4,+        http-client >=0.5.5 && <0.6,         http-types >=0.9.1 && <0.10,-        authenticate-oauth >=1.5.1.2 && <1.6,+        authenticate-oauth ==1.6.*,         bytestring >=0.10.8.1 && <0.11,         split >=0.2.3.1 && <0.3,-        optparse-applicative >=0.12.1.0 && <0.13,-        lens ==4.14.*,+        optparse-applicative >=0.13.1.0 && <0.14,+        lens >=4.15.1 && <4.16,         data-default >=0.7.1.1 && <0.8,         text >=1.2.2.1 && <1.3     default-language: Haskell2010@@ -41,13 +41,4 @@         Web.Tweet.Types         Web.Tweet.Utils         Web.Tweet.Sign--executable tweet-    main-is: Main.hs-    build-depends:-        base >=4.9.0.0 && <4.10,-        clit >=0.2.2.5 && <0.3-    default-language: Haskell2010-    hs-source-dirs: app-    ghc-options: -threaded -rtsopts -with-rtsopts=-N 

@@ -67,7 +67,7 @@ -- | Helper function to make `thread` easier to write.  thread' :: [String] -> [String] -> Maybe Int -> Int -> FilePath -> IO () thread' content hs idNum num filepath = do-    let f = \str i -> (flip tweetData filepath) (Tweet { _status = str, _trimUser = True, _handles = hs, _replyID = if i == 0 then Nothing else Just i })+    let f = \str i -> tweetData (Tweet { _status = str, _trimUser = True, _handles = hs, _replyID = if i == 0 then Nothing else Just i }) filepath     let initial = f (head content)     void $ foldr ((>=>) . f) initial (reverse . drop 1 $ content) $ fromMaybe 0 idNum