Revision ca848e2a htools/Ganeti/HTools/ExtLoader.hs
| b/htools/Ganeti/HTools/ExtLoader.hs | ||
|---|---|---|
| 57 | 57 |
|
| 58 | 58 |
parseUtilisation :: String -> Result (String, DynUtil) |
| 59 | 59 |
parseUtilisation line = |
| 60 |
let columns = sepSplit ' ' line
|
|
| 61 |
in case columns of
|
|
| 62 |
[name, cpu, mem, dsk, net] -> do
|
|
| 63 |
rcpu <- tryRead name cpu
|
|
| 64 |
rmem <- tryRead name mem
|
|
| 65 |
rdsk <- tryRead name dsk
|
|
| 66 |
rnet <- tryRead name net
|
|
| 67 |
let du = DynUtil { cpuWeight = rcpu, memWeight = rmem
|
|
| 68 |
, dskWeight = rdsk, netWeight = rnet }
|
|
| 69 |
return (name, du)
|
|
| 70 |
_ -> Bad $ "Cannot parse line " ++ line
|
|
| 60 |
case sepSplit ' ' line of
|
|
| 61 |
[name, cpu, mem, dsk, net] ->
|
|
| 62 |
do |
|
| 63 |
rcpu <- tryRead name cpu |
|
| 64 |
rmem <- tryRead name mem |
|
| 65 |
rdsk <- tryRead name dsk |
|
| 66 |
rnet <- tryRead name net |
|
| 67 |
let du = DynUtil { cpuWeight = rcpu, memWeight = rmem
|
|
| 68 |
, dskWeight = rdsk, netWeight = rnet } |
|
| 69 |
return (name, du) |
|
| 70 |
_ -> Bad $ "Cannot parse line " ++ line |
|
| 71 | 71 |
|
| 72 | 72 |
-- | External tool data loader from a variety of sources. |
| 73 | 73 |
loadExternalData :: Options |
Also available in: Unified diff