pinboard 0.9.12 → 0.9.12.1
raw patch · 3 files changed
+11/−7 lines, 3 files
Files
- changelog.md +4/−0
- pinboard.cabal +1/−1
- src/Pinboard/Client.hs +6/−6
changelog.md view
@@ -1,3 +1,7 @@+__v0.9.12.1++bug fixes + __v0.9.12__ add runPinboardE
pinboard.cabal view
@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack name: pinboard-version: 0.9.12+version: 0.9.12.1 synopsis: Access to the Pinboard API description: . The Pinboard API is a way to interact programatically with
src/Pinboard/Client.hs view
@@ -189,23 +189,23 @@ currentTime <- getCurrentTime lastTime <- readIORef lastRequestTime let elapsedtime = diffUTCTime currentTime lastTime- delaytime = max 0 (requestDelaySecs - elapsedtime)+ delaytime = max 0 (maxRequestRateSecs - elapsedtime) when (delaytime > 0) $ do runConfigLoggingT cfg $ let logTxt = "DELAY " <> ", lastTime: " <> toText lastTime <>- ", requestDelaySecs: " <>- toText requestDelaySecs <>+ ", maxRequestRateSecs: " <>+ toText maxRequestRateSecs <> ", elapsedTime: " <> toText elapsedtime <> ", delayTime: " <> toText delaytime in logNST LevelInfo "requestThreadDelay" logTxt- threadDelay (maxRequestRateMills * 1000)+ threadDelay (floor (delaytime * 1000000)) currentTime' <- getCurrentTime writeIORef lastRequestTime currentTime' where- requestDelaySecs = fromInteger (toInteger maxRequestRateMills) / 1000+ maxRequestRateSecs = fromInteger (toInteger maxRequestRateMills) / 1000 -------------------------------------------------------------------------------- buildReq :: String -> IO Request@@ -214,7 +214,7 @@ return $ setRequestIgnoreStatus $ req- { requestHeaders = [("User-Agent", "pinboard.hs/0.9.12")]+ { requestHeaders = [("User-Agent", "pinboard.hs/0.9.12.1")] } --------------------------------------------------------------------------------