summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Monitors/Swap.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Plugins/Monitors/Swap.hs')
-rw-r--r--src/Plugins/Monitors/Swap.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Plugins/Monitors/Swap.hs b/src/Plugins/Monitors/Swap.hs
index 107eb1e..b6c5019 100644
--- a/src/Plugins/Monitors/Swap.hs
+++ b/src/Plugins/Monitors/Swap.hs
@@ -33,8 +33,8 @@ parseMEM =
| l /= [] = head l !! i
| otherwise = B.empty
fs s l
- | l == [] = False
- | otherwise = head l == B.pack s
+ | null l = False
+ | otherwise = head l == B.pack s
get_data s = flip (/) 1024 . read . B.unpack . li 1 . filter (fs s)
st = map B.words . B.lines $ file
tot = get_data "SwapTotal:" st