Add warning if peer sharing is enabled and protocol files are present

Author: crocodile-dentist

cardano-node/src/Cardano/Node/Run.hs

@@ -488,6 +488,13 @@ handleSimpleNode blockType runP p2pMode tracers nc onKernel = do
                                 publicRoots
                                 ntUseLedgerPeers
                                 ntPeerSnapshotPath
+        case ncPeerSharing nc of
+          PeerSharingEnabled
+            | hasProtocolFile (ncProtocolFiles nc) ->
+                traceWith (startupTracer tracers) . NetworkConfigUpdateWarning . Text.pack $
+                     "Mainnet block producers may not meet the Praos performance guarantees "
+                  <> "and host IP address will be leaked since peer sharing is enabled."
+          _otherwise -> pure ()
         localRootsVar   <- newTVarIO localRoots
         publicRootsVar  <- newTVarIO publicRoots
         useLedgerVar    <- newTVarIO ntUseLedgerPeers