report :: Pool -> IO ()
report rpoo = withMVar rpoo $ \pool ->
  putStrLn $ "there are " ++ show (M.size pool) ++ " jobs currently pending."
report :: Pool -> IO ()
report rpoo = withMVar rpoo $ \pool ->
  putStrLn $ "there are " ++ show (M.size pool) ++ " jobs currently pending."
report rpoo = withMVar rpoo $ \pool ->
  putStrLn $ "there are " ++ show (M.size pool) ++ " jobs currently pending."