FIXUP: test haddock

network-mux/test/Test/Mux.hs

@@ -1601,6 +1601,7 @@ prop_mux_restart_m (DummyRestartingInitiatorResponderApps rapps) = do
 
 
 
+-- | Verifying starting and stopping of miniprotocols. Both normal exits and by exception.
 prop_mux_start_m :: forall m.
                        ( Alternative (STM m)
                        , MonadAsync m
@@ -1613,14 +1614,23 @@ prop_mux_start_m :: forall m.
                        , MonadTimer m
                        )
                     => Mx.Bearer m
+                    -- ^ Mux bearer
                     -> (DummyApp -> m ())
+                    -- ^ trigger action that starts the app
                     -> (    DiffTime
+                         -- ^ How long did the test run.
                          -> ((STM m (Either SomeException ())), DummyApp)
+                         -- ^ Result for running the app, along with the app
                          -> m (Property, Either SomeException ())
                        )
+                    -- ^ Verify that the app succeded/failed as expected when
+                    -- the test stopped
                     -> DummyApps
+                    -- ^ List of apps to test
                     -> DiffTime
+                    -- ^ Maximum run time
                     -> DiffTime
+                    -- ^ Time at which StartOnDemandAny should run
                     -> m Property
 prop_mux_start_m bearer _ checkRes (DummyInitiatorApps apps) runTime _ = do
     let minis = map (appToInfo Mx.InitiatorDirectionOnly) apps