network-mux: stylistic changes

network-mux/src/Network/Mux.hs

@@ -338,8 +338,8 @@ type MiniProtocolKey = (MiniProtocolNum, MiniProtocolDir)
 newtype MonitorCtx m mode = MonitorCtx {
     -- | Mini-Protocols started on demand and waiting to be scheduled.
     --
-    mcOnDemandProtocols :: (Map MiniProtocolKey
-                                (MiniProtocolState mode m, MiniProtocolAction m))
+    mcOnDemandProtocols :: Map MiniProtocolKey
+                               (MiniProtocolState mode m, MiniProtocolAction m)
 
   }
 
@@ -369,10 +369,10 @@ monitor tracer timeout jobpool egressQueue cmdQueue muxStatus =
     go !monitorCtx@MonitorCtx { mcOnDemandProtocols } = do
       result <- atomically $ runFirstToFinish $
             -- wait for a mini-protocol thread to terminate
-           (FirstToFinish $ EventJobResult <$> JobPool.waitForJob jobpool)
+           FirstToFinish (EventJobResult <$> JobPool.waitForJob jobpool)
 
             -- wait for a new control command
-        <> (FirstToFinish $ EventControlCmd <$> readTQueue cmdQueue)
+        <> FirstToFinish (EventControlCmd <$> readTQueue cmdQueue)
 
             -- or wait for data to arrive on the channels that do not yet have
             -- responder threads running