Update modules/workspace/i3blocks/scripts/network.hs
This commit is contained in:
parent
aa7de5a47d
commit
140f36b3a1
@ -34,6 +34,5 @@ main = do
|
|||||||
Statistics rx tx <- readInterfaces interfaces
|
Statistics rx tx <- readInterfaces interfaces
|
||||||
threadDelay 1000000
|
threadDelay 1000000
|
||||||
Statistics rx' tx' <- readInterfaces interfaces
|
Statistics rx' tx' <- readInterfaces interfaces
|
||||||
putStrLn
|
putStrLn $ (icon "\58052") ++ (show $ round $ (rx' - rx) / 10^3)
|
||||||
$ (bool (icon "\58052") "" (rx' - rx > 100))
|
++ (icon "\58054") ++ (show $ round $ (tx' - tx) / 10^3)
|
||||||
++ (bool (icon "\58054") "" (tx' - tx > 100))
|
|
||||||
|
Loading…
Reference in New Issue
Block a user