Update modules/workspace/i3blocks/scripts/network.hs

This commit is contained in:
Alexander Bantyev 2020-04-10 14:49:09 +03:00
parent aa7de5a47d
commit 140f36b3a1

View File

@ -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))