simpleSimulationParameters :: QDisc () -> Second -> Scenario -> SimulationParameters
simpleSimulationParameters qdisc duration scenario = SimulationParameters {
      sim_scenario = scenario
    , sim_duration = duration
    , sim_qdisc = qdisc
    , sim_seed = 42
    }
simpleSimulationParameters :: QDisc () -> Second -> Scenario -> SimulationParameters
simpleSimulationParameters qdisc duration scenario = SimulationParameters {
      sim_scenario = scenario
    , sim_duration = duration
    , sim_qdisc = qdisc
    , sim_seed = 42
    }
simpleSimulationParameters qdisc duration scenario = SimulationParameters {
      sim_scenario = scenario
    , sim_duration = duration
    , sim_qdisc = qdisc
    , sim_seed = 42
    }