runPerf dryrun ["filters", selectorsstr, suitesstr] =
  let
    numsuites :: Word
    numsuites = read suitesstr

    numselectors :: Word
    numselectors = read selectorsstr

    selectors = makeAllSelectors numselectors []
    filters = makeFilters selectors numsuites []

    suites = makeSuites numsuites []

    fakesuite = makeFakeSuites numsuites []
  in do
    selectormap <- return $! (suiteSelectors suites filters)
    _ <- performTestSuites quietReporter selectormap fakesuite
    return ()
runPerf dryrun ["filters", selectorsstr, suitesstr] =
  let
    numsuites :: Word
    numsuites = read suitesstr

    numselectors :: Word
    numselectors = read selectorsstr

    selectors = makeAllSelectors numselectors []
    filters = makeFilters selectors numsuites []

    suites = makeSuites numsuites []

    fakesuite = makeFakeSuites numsuites []
  in do
    selectormap <- return $! (suiteSelectors suites filters)
    _ <- performTestSuites quietReporter selectormap fakesuite
    return ()
runPerf dryrun ["filters", selectorsstr, suitesstr] =
  let
    numsuites :: Word
    numsuites = read suitesstr

    numselectors :: Word
    numselectors = read selectorsstr

    selectors = makeAllSelectors numselectors []
    filters = makeFilters selectors numsuites []

    suites = makeSuites numsuites []

    fakesuite = makeFakeSuites numsuites []
  in do
    selectormap <- return $! (suiteSelectors suites filters)
    _ <- performTestSuites quietReporter selectormap fakesuite
    return ()