backend/test: adds logs

nammayatri · Sep 17, 2024 · fadbc3e · fadbc3e
1 parent 21e5311
commit fadbc3e
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 1 deletion.
diff --git a/app/gateway/src/Product/ProviderRegistry.hs b/app/gateway/src/Product/ProviderRegistry.hs
@@ -17,11 +17,13 @@ module Product.ProviderRegistry
   )
 where
 
+import qualified Data.Text as T
 import qualified "mock-registry" Domain.Lookup as Registry
 import EulerHS.Prelude
 import qualified EulerHS.Types as T
 import Kernel.Types.Error
 import Kernel.Utils.Common
+import Kernel.Utils.GenericPretty (prettyShowViaJSON)
 import Tools.Metrics
 import qualified Types.Beckn.Context as B
 
@@ -51,5 +53,6 @@ registryFetch ::
   Registry.LookupRequest ->
   m Registry.LookupResponse
 registryFetch registryUrl request = do
+  logDebug $ "Registry Lookup Request: " <> T.pack (prettyShowViaJSON request)
   callAPI registryUrl (T.client Registry.lookupAPI request) "lookup" Registry.lookupAPI
     >>= fromEitherM (ExternalAPICallError (Just "REGISTRY_CALL_ERROR") registryUrl)
diff --git a/app/gateway/src/Product/Search.hs b/app/gateway/src/Product/Search.hs
@@ -50,6 +50,7 @@ search mbSignPayloadHeader mbBodyHashHeader rawReq = withFlowHandlerBecknAPI' do
           domain = req.context.domain
           subscriberType = Subscriber.BAP
       logDebug $ "SubscriberType: " <> show subscriberType <> "; domain: " <> show domain
+      logDebug $ "JAYPAL: " <> show req
       -- FIXME merchantId not required for gateway
       authCheck headerNameStr (getRawHeader <$> mbSignPayloadHeader) (getRawHeader <$> mbBodyHashHeader) "merchantId" subscriberType domain
     providers <- BP.lookup context

diff --git a/app/mock-registry/src/Flow/Lookup.hs b/app/mock-registry/src/Flow/Lookup.hs
@@ -15,17 +15,23 @@
 module Flow.Lookup where
 
 import App.Types (FlowHandler)
+import qualified Data.Text as T
 import Domain.Lookup (LookupRequest, LookupResponse)
 import Domain.Subscriber
 import Kernel.Prelude
 import Kernel.Storage.Esqueleto
 import Kernel.Types.Beckn.Ack
+import Kernel.Utils.Common (logDebug)
 import Kernel.Utils.Error (withFlowHandlerAPI')
+import Kernel.Utils.GenericPretty (prettyShowViaJSON)
 import Storage.Queries.Subscriber as Sub
 
 lookup :: LookupRequest -> FlowHandler LookupResponse
 lookup req = withFlowHandlerAPI' $ do
-  findAllBy req.unique_key_id req.subscriber_id req.domain req._type req.city
+  logDebug $ "Lookup request: " <> T.pack (prettyShowViaJSON req)
+  res <- findAllBy req.unique_key_id req.subscriber_id req.domain req._type req.city
+  logDebug $ "Lookup response: " <> T.pack (prettyShowViaJSON res)
+  return res
 
 create :: Subscriber -> FlowHandler AckResponse
 create sub = withFlowHandlerAPI' $ do