From 30d226ba5eca8847775d03403367dee1f1e3dcfc Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 30 Mar 2024 18:26:01 +0000
Subject: fix for unmet pattern matches warnings (clean build)

---
 src/Xmobar/Plugins/Monitors/Mem/Linux.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'src/Xmobar/Plugins/Monitors/Mem/Linux.hs')

diff --git a/src/Xmobar/Plugins/Monitors/Mem/Linux.hs b/src/Xmobar/Plugins/Monitors/Mem/Linux.hs
index 79dcc9d..7a81c6d 100644
--- a/src/Xmobar/Plugins/Monitors/Mem/Linux.hs
+++ b/src/Xmobar/Plugins/Monitors/Mem/Linux.hs
@@ -25,9 +25,13 @@ parseMEM =
        let content = map words $ take 8 $ lines file
            info = M.fromList $ map (
              \line -> (head line, (read $ line !! 1 :: Float) / 1024)) content
-           [total, free, buffer, cache] =
-             map (info M.!) ["MemTotal:", "MemFree:", "Buffers:", "Cached:"]
-           available = M.findWithDefault (free + buffer + cache) "MemAvailable:" info
+           info' x = info M.! (x ++ ":")
+           total = info' "MemTotal"
+           free = info' "MemFree"
+           buffer = info' "Buffers"
+           cache = info' "Cached"
+           available =
+             M.findWithDefault (free + buffer + cache) "MemAvailable:" info
            used = total - available
            usedratio = used / total
            freeratio = free / total
-- 
cgit v1.2.3