fix exports
This commit is contained in:
parent
7da76ed767
commit
e34aa1251e
3 changed files with 7 additions and 8 deletions
|
@ -1,5 +1,7 @@
|
|||
__v0.9.11__
|
||||
|
||||
add logging
|
||||
|
||||
add option to delay between requests (requestDelayMills)
|
||||
|
||||
__v0.9.10__
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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…
Reference in a new issue