packages feed

pinboard 0.9.0 → 0.9.1

raw patch · 5 files changed

+10/−5 lines, 5 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Pinboard.ApiTypes: [postToread] :: Post -> Bool
+ Pinboard.ApiTypes: [postToRead] :: Post -> Bool

Files

changelog.md view
@@ -1,6 +1,11 @@+__v0.9.1__++rename field: postToread -> postToRead+ __v0.9.0__  refactored Client.hs to simplify parameters+ promote types under .Client subtree to top-level  __v0.8.5__
pinboard.cabal view
@@ -1,5 +1,5 @@ name:                pinboard-version:             0.9.0+version:             0.9.1 synopsis:            Access to the Pinboard API license:             MIT license-file:        LICENSE
src/Pinboard/ApiRequest.hs view
@@ -186,7 +186,7 @@                                                             ( Just postTime     )                                                              ( Just replace      )                                                              ( Just postShared   ) -                                                            ( Just postToread   )+                                                            ( Just postToRead   )  -- TAGS ---------------------------------------------------------------------- 
src/Pinboard/ApiTypes.hs view
@@ -66,7 +66,7 @@     , postHash         :: Text     , postTime         :: UTCTime     , postShared       :: Bool-    , postToread       :: Bool+    , postToRead       :: Bool     , postTags         :: [Tag]     } deriving (Show, Eq, Data, Typeable, Ord) @@ -92,7 +92,7 @@     , "hash"        .= toJSON postHash     , "time"        .= toJSON postTime     , "shared"      .= boolToYesNo postShared-    , "toread"      .= boolToYesNo postToread+    , "toread"      .= boolToYesNo postToRead     , "tags"        .= unwords postTags ]  boolFromYesNo :: Text -> Bool
src/Pinboard/Client.hs view
@@ -155,7 +155,7 @@ buildReq url = do   req <- liftIO $ parseUrl $ "https://api.pinboard.in/v1/" <> url   return $ req -    { requestHeaders = [("User-Agent","pinboard.hs/0.9.0")]+    { requestHeaders = [("User-Agent","pinboard.hs/0.9.1")]     , checkStatus = \_ _ _ -> Nothing     }