Revision c352b0a9 htools/hspace.hs
b/htools/hspace.hs | ||
---|---|---|
280 | 280 |
|
281 | 281 |
-- utility functions |
282 | 282 |
let iofspec spx = Instance.create "new" (rspecMem spx) (rspecDsk spx) |
283 |
(rspecCpu spx) "running" [] (-1) (-1) |
|
283 |
(rspecCpu spx) "running" [] True (-1) (-1)
|
|
284 | 284 |
exitifbad val = (case val of |
285 | 285 |
Bad s -> do |
286 | 286 |
hPrintf stderr "Failure: %s\n" s :: IO () |
Also available in: Unified diff