pinboard 0.9.6 → 0.9.7
raw patch · 4 files changed
+23/−30 lines, 4 filesdep −old-localedep ~aesondep ~bytestringdep ~containersPVP ok
version bump matches the API change (PVP)
Dependencies removed: old-locale
Dependency ranges changed: aeson, bytestring, containers, either, http-client, http-client-tls, http-types, network, text, time, vector
API changes (from Hackage documentation)
Files
- changelog.md +6/−0
- pinboard.cabal +14/−14
- src/Pinboard/ApiTypes.hs +0/−12
- src/Pinboard/Client.hs +3/−4
changelog.md view
@@ -1,3 +1,9 @@+__v0.9.7__++add http-client-0.5.0 support++add PVP bounds+ __v0.9.6__ add http-client bound
pinboard.cabal view
@@ -1,5 +1,5 @@ name: pinboard-version: 0.9.6+version: 0.9.7 synopsis: Access to the Pinboard API license: MIT license-file: LICENSE@@ -23,23 +23,23 @@ library hs-source-dirs: src build-depends: base >=4.6 && < 5.0- , aeson- , bytestring- , containers- , either- , http-types- , http-client < 0.5.0- , http-client-tls+ , aeson >= 0.11.1 && <0.12+ , bytestring >= 0.10.0 && <0.11 + , containers >= 0.5.0.0 && <0.6 + , either >= 4.4.1 && < 4.5+ , http-types >= 0.8 && <0.10+ , http-client >= 0.5 && <0.6 + , http-client-tls >= 0.3.0 && < 0.4+ , text >= 0.11 && < 1.3+ , time >= 1.5 && < 1.7+ , transformers >= 0.4.0.0+ , vector >= 0.10.9 && < 0.12+ , network >= 2.6.2 && < 2.7 , mtl >= 2.2.1- , old-locale , profunctors >= 5- , network , random >= 1.1- , text- , time- , transformers >= 0.4.0.0 , unordered-containers- , vector+ default-language: Haskell2010 other-modules:
src/Pinboard/ApiTypes.hs view
@@ -4,7 +4,6 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE ScopedTypeVariables #-}-{-# LANGUAGE CPP #-} -- | -- Module : Pinboard.ApiTypes@@ -25,14 +24,7 @@ import qualified Data.HashMap.Strict as HM import qualified Data.Vector as V--#if MIN_VERSION_time(1,5,0) import Data.Time.Format (parseTimeOrError, formatTime, defaultTimeLocale)-#else-import Data.Time.Format (readTime, formatTime)-import System.Locale (defaultTimeLocale)-#endif- import Control.Applicative import Prelude hiding (words, unwords) @@ -213,11 +205,7 @@ readNoteTime :: String -> UTCTime readNoteTime = parse' defaultTimeLocale "%F %T" where-#if MIN_VERSION_time(1,5,0) parse' = parseTimeOrError True-#else- parse' = readTime-#endif showNoteTime :: UTCTime -> String showNoteTime = formatTime defaultTimeLocale "%F %T"
src/Pinboard/Client.hs view
@@ -150,10 +150,9 @@ buildReq :: MonadIO m => String -> m Request buildReq url = do- req <- liftIO $ parseUrl $ "https://api.pinboard.in/v1/" <> url- return $ req - { requestHeaders = [("User-Agent","pinboard.hs/0.9.6")]- , checkStatus = \_ _ _ -> Nothing+ req <- liftIO $ parseRequest $ "https://api.pinboard.in/v1/" <> url+ return $ setRequestIgnoreStatus $ req { + requestHeaders = [("User-Agent","pinboard.hs/0.9.7")] } --------------------------------------------------------------------------------