Revision d25643d1 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" [] True (-1) (-1) |
|
| 283 |
(rspecCpu spx) "running" [] True (-1) (-1) DTDrbd8
|
|
| 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