updated shared-kernel flake

Author: piyushKumar-1

app/gateway/src/App/Types.hs

@@ -85,7 +85,8 @@ data AppEnv = AppEnv
     internalEndPointHashMap :: HM.HashMap BaseUrl BaseUrl,
     requestId :: Maybe Text,
     shouldLogRequestId :: Bool,
-    kafkaProducerForART :: Maybe KafkaProducerTools
+    kafkaProducerForART :: Maybe KafkaProducerTools,
+    url :: Maybe Text
   }
   deriving (Generic)
 
@@ -123,6 +124,7 @@ buildAppEnv AppCfg {..} = do
   return $
     AppEnv
       { gwId = selfId,
+        url = Nothing,
         ..
       }
 

app/mock-registry/src/App/Types.hs

@@ -60,7 +60,8 @@ data AppEnv = AppEnv
     requestId :: Maybe Text,
     shouldLogRequestId :: Bool,
     kafkaProducerForART :: Maybe KafkaProducerTools,
-    internalAuthApiKey :: Text
+    internalAuthApiKey :: Text,
+    url :: Maybe Text
   }
   deriving (Generic)
 
@@ -75,7 +76,7 @@ buildAppEnv AppCfg {..} = do
   let kafkaProducerForART = Nothing
   loggerEnv <- prepareLoggerEnv loggerConfig hostname
   esqDBEnv <- prepareEsqDBEnv esqDBCfg loggerEnv
-  return AppEnv {..}
+  return AppEnv {url = Nothing, ..}
 
 releaseAppEnv :: AppEnv -> IO ()
 releaseAppEnv AppEnv {..} =