path: root/libraries/base/tests/listThreads1.hs

module Main where

import GHC.Conc.Sync

main :: IO ()
main = listThreads >>= print