blob: 05e35afcc07e4fb6afe14a3d9c84ae93c78ce0df (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
-- #2038
import System.Posix.Resource
main :: IO ()
main = do
let soft = ResourceLimit 5
hard = ResourceLimit 10
setResourceLimit ResourceCPUTime (ResourceLimits soft hard)
r <- getResourceLimit ResourceCPUTime
let (ResourceLimit s) = softLimit r
let (ResourceLimit h) = hardLimit r
putStrLn $ show s
putStrLn $ show h
|