From e34aa1251e88c321d6b02530d5d1045c5a20e014 Mon Sep 17 00:00:00 2001
From: Jon Schoning <jonschoning@gmail.com>
Date: Tue, 8 Nov 2016 15:46:53 -0600
Subject: [PATCH] fix exports

---
 changelog.md           | 2 ++
 src/Pinboard.hs        | 4 ----
 src/Pinboard/Client.hs | 9 +++++----
 3 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/changelog.md b/changelog.md
index 6c43624..7338ba0 100644
--- a/changelog.md
+++ b/changelog.md
@@ -1,5 +1,7 @@
 __v0.9.11__
 
+add logging
+
 add option to delay between requests (requestDelayMills)
 
 __v0.9.10__
diff --git a/src/Pinboard.hs b/src/Pinboard.hs
index 5384998..3eacd85 100644
--- a/src/Pinboard.hs
+++ b/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
diff --git a/src/Pinboard/Client.hs b/src/Pinboard/Client.hs
index be68f8d..3ed6b2b 100644
--- a/src/Pinboard/Client.hs
+++ b/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)