fix exports

changelog.md

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

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

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
+    logErrorAndThrow e =
-      logNST LevelError logSrc (toText e)
+      runConfigLoggingT config $
-      return (throwError e)
+      do logNST LevelError logSrc (toText e)
+         return (throwError e)
 
 runPinboardSingleJson
   :: (MonadErrorPinboard e, FromJSON a)