pinboard 0.9.12.2 → 0.9.12.3

raw patch · 3 files changed

+10/−2 lines, 3 files

Files

• pinboard.cabal +1/−1
• src/Pinboard/ApiTypes.hs +5/−0
• src/Pinboard/Client.hs +4/−1

@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack  name:           pinboard-version:        0.9.12.2+version:        0.9.12.3 synopsis:       Access to the Pinboard API description:    .                 The Pinboard API is a way to interact programatically with

@@ -4,6 +4,7 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE ScopedTypeVariables #-}+{-# LANGUAGE CPP #-}  -- | -- Module      : Pinboard.ApiTypes@@ -23,7 +24,9 @@ import GHC.Generics (Generic)  import qualified Data.HashMap.Strict as HM+#if !MIN_VERSION_aeson(1,1,0) import qualified Data.Vector as V+#endif import Data.Time.Format (formatTime, defaultTimeLocale) import Control.Applicative import Prelude hiding (words, unwords)@@ -231,8 +234,10 @@     | otherwise = fail "bad parse"   parseJSON _ = fail "bad parse" +#if !MIN_VERSION_aeson(1,1,0) instance ToJSON [Suggested] where   toJSON xs = Array $ toJSON <$> V.fromList xs+#endif  instance ToJSON Suggested where   toJSON (Popular tags) = object ["popular" .= toJSON tags]

@@ -75,6 +75,9 @@ import Pinboard.Util as X import Pinboard.Logging as X +import Paths_pinboard (version)+import Data.Version (showVersion)+ import qualified Data.ByteString.Lazy as LBS import qualified Data.Text as T import qualified Data.Text.Encoding as T@@ -215,7 +218,7 @@   return $     setRequestIgnoreStatus $     req-    { requestHeaders = [("User-Agent", "pinboard.hs/0.9.12.2")]+    { requestHeaders = [("User-Agent", "pinboard.hs/" <> pack (showVersion version))]     }  --------------------------------------------------------------------------------