Browse Source

fix exports

master
Jon Schoning 5 years ago
parent
commit
e34aa1251e
  1. 2
      changelog.md
  2. 4
      src/Pinboard.hs
  3. 9
      src/Pinboard/Client.hs

2
changelog.md

@ -1,5 +1,7 @@
__v0.9.11__
add logging
add option to delay between requests (requestDelayMills)
__v0.9.10__

4
src/Pinboard.hs

@ -33,9 +33,6 @@ module Pinboard (
-- * Pinboard.ApiTypesLens
-- | Lens accessors for Pinboard.ApiTypes
, module Pinboard.ApiTypesLens
-- * Pinboard.Logging
-- | Logging Utils
, module Pinboard.Logging
) where
import Pinboard.Client
@ -43,4 +40,3 @@ import Pinboard.Api
import Pinboard.ApiRequest
import Pinboard.ApiTypes
import Pinboard.ApiTypesLens
import Pinboard.Logging

9
src/Pinboard/Client.hs

@ -139,12 +139,13 @@ runPinboardSingleRawBS config req = do
res <- runPinboardSingleRaw config req
case checkStatusCodeResponse res of
Left e -> logErrorAndThrow e
Right _ -> (return.return) (responseBody res)
Right _ -> (return . return) (responseBody res)
where
logSrc = "runPinboardSingleRawBS"
logErrorAndThrow e = runConfigLoggingT config $ do
logNST LevelError logSrc (toText e)
return (throwError e)
logErrorAndThrow e =
runConfigLoggingT config $
do logNST LevelError logSrc (toText e)
return (throwError e)
runPinboardSingleJson
:: (MonadErrorPinboard e, FromJSON a)

Loading…
Cancel
Save