Redact api_key from trace debug logs

crawlerPubMed.cabal

@@ -56,6 +56,7 @@ library
     , http-client
     , http-client-tls
     , http-media
+    , http-types
     , lens
     , mtl
     , optparse-applicative

src/PUBMED/ServantClientLogging.hs

@@ -9,16 +9,24 @@ Portability : POSIX
 -}
 module PUBMED.ServantClientLogging where
 
-import qualified Data.Binary.Builder as DBB
 import Debug.Trace (trace)
+import Network.HTTP.Types
 import Servant.Client (ClientEnv(..))
 import Servant.Client.Core.Request (RequestF(..))
+import qualified Data.Binary.Builder as DBB
 
 
 addLoggingToClientEnv :: ClientEnv -> ClientEnv
 addLoggingToClientEnv env@(ClientEnv { makeClientRequest = mcr }) = env { makeClientRequest }
   where
     makeClientRequest baseUrl req =
-      trace ("req: " <> showRequestPath req <> " " <> show (requestQueryString req)) $ mcr baseUrl req
+      trace ("req: " <> showRequestPath req <> " " <> show (fmap sanitiseQueryItem $ requestQueryString req)) $ mcr baseUrl req
     showRequestPath req =
       show $ DBB.toLazyByteString $ requestPath req
+
+    sanitiseQueryItem :: QueryItem -> QueryItem
+    sanitiseQueryItem (k, mb_v)
+      | k == "api_key"
+      = (k, Just "*****")
+      | otherwise
+      = (k, mb_v)