Mux egress prioritisation

[coot]

Static egress prioritisation based on assigned weights for each mini-protocol.

data MiniProtocolInfo (mode :: Mode) =
     MiniProtocolInfo {
       miniProtocolNum        :: !MiniProtocolNum,
       -- ^ Unique mini-protocol number.
       miniProtocolDir        :: !(MiniProtocolDirection mode),
       -- ^ Mini-protocol direction.
       miniProtocolLimits     :: !MiniProtocolLimits,
       -- ^ ingress queue limits for the protocol
       miniProtocolCapability :: !(Maybe Int),
       -- ^ capability on which the mini-protocol should run
       
       egressWeight           :: !Word
       -- ^ weight for egress queue for this mini-protocol
     }
  deriving Show