From 140f36b3a1db5e3ed1761e760df02d5acf7090d9 Mon Sep 17 00:00:00 2001 From: Alexander Bantyev Date: Fri, 10 Apr 2020 14:49:09 +0300 Subject: [PATCH] Update modules/workspace/i3blocks/scripts/network.hs --- modules/workspace/i3blocks/scripts/network.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/modules/workspace/i3blocks/scripts/network.hs b/modules/workspace/i3blocks/scripts/network.hs index afffdc9..663e0c2 100644 --- a/modules/workspace/i3blocks/scripts/network.hs +++ b/modules/workspace/i3blocks/scripts/network.hs @@ -34,6 +34,5 @@ main = do Statistics rx tx <- readInterfaces interfaces threadDelay 1000000 Statistics rx' tx' <- readInterfaces interfaces - putStrLn - $ (bool (icon "\58052") "" (rx' - rx > 100)) - ++ (bool (icon "\58054") "" (tx' - tx > 100)) + putStrLn $ (icon "\58052") ++ (show $ round $ (rx' - rx) / 10^3) + ++ (icon "\58054") ++ (show $ round $ (tx' - tx) / 10^3)