fx

IntersectMBO · Dec 9, 2024 · f922210 · f922210
1 parent f9142f2
commit f922210
Showing 1 changed file with 16 additions and 1 deletion.
diff --git a/ouroboros-network/src/Ouroboros/Cardano/Diffusion/Handlers.hs b/ouroboros-network/src/Ouroboros/Cardano/Diffusion/Handlers.hs
@@ -23,6 +23,7 @@ import Ouroboros.Network.PeerSelection.LedgerPeers.Type
 import System.Posix.Signals qualified as Signals
 #endif
 
+#ifdef POSIX
 sigUSR1Handler
   :: Ord ntnAddr
   => TracersExtra ntnAddr ntnVersion ntnVersionData ntcAddr ntcVersion
@@ -39,7 +40,6 @@ sigUSR1Handler
      extraFlags extraPeers ntnAddr peerconn)
   -> PeerMetrics IO ntnAddr
   -> IO ()
-#ifdef POSIX
 sigUSR1Handler tracersExtra argsExtra apps connectionManager
                         dbgStateVar metrics = do
   _ <- Signals.installHandler
@@ -68,5 +68,20 @@ sigUSR1Handler tracersExtra argsExtra apps connectionManager
          Nothing
   return ()
 #else
+sigUSR1Handler
+  :: TracersExtra ntnAddr ntnVersion ntnVersionData ntcAddr ntcVersion
+     ntcVersionData resolverError CardanoPeerSelectionState
+     CardanoDebugPeerSelectionState extraFlags extraPeers extraCounters
+     IO
+  -> ArgumentsExtra extraArgs CardanoPeerSelectionState extraActions
+     (CardanoLedgerPeersConsensusInterface IO) extraPeers extraFlags
+     extraChurnArgs extraCounters exception peeraddr IO
+  -> Applications ntnAddr ntnVersion ntnVersionData ntcAddr ntcVersion
+     ntcVersionData (CardanoLedgerPeersConsensusInterface IO) IO a
+  -> ConnectionManager muxMode socket ntnAddr handle handleError IO
+  -> StrictTVar IO (PeerSelectionState CardanoPeerSelectionState
+     extraFlags extraPeers ntnAddr peerconn)
+  -> PeerMetrics IO ntnAddr
+  -> IO ()
 sigUSR1Handler _ _ _ _ _ _ = pure ()
 #endif