Получить количество потоков RTS в программе Haskell?

Есть ли действие ввода-вывода, которое дает мне количество потоков ОС, которыми была инициализирована RTS? Было бы неплохо иметь возможность использовать это в качестве аргумента функции parBuffer из модуля Control.Parallel.Strategies.