Commit ca848e2a authored by Iustin Pop's avatar Iustin Pop
Browse files

htools: small simplification to parseUtilisation

We eliminate the local variable as it's used only once.
Signed-off-by: default avatarIustin Pop <>
Reviewed-by: default avatarGuido Trotter <>
parent 0e09422b
......@@ -57,9 +57,9 @@ wrapIO = flip catch (return . Bad . show)
parseUtilisation :: String -> Result (String, DynUtil)
parseUtilisation line =
let columns = sepSplit ' ' line
in case columns of
[name, cpu, mem, dsk, net] -> do
case sepSplit ' ' line of
[name, cpu, mem, dsk, net] ->
rcpu <- tryRead name cpu
rmem <- tryRead name mem
rdsk <- tryRead name dsk
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment