From 552d6f8baa1048ddb5fd22269efd50b90303ca4d Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 18 Apr 2022 18:55:04 +0100
Subject: CpuFreq: new template parameters max, min and avg.

Fixes #166.
---
 src/Xmobar/Plugins/Monitors/Common/Files.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src/Xmobar/Plugins/Monitors/Common/Files.hs')

diff --git a/src/Xmobar/Plugins/Monitors/Common/Files.hs b/src/Xmobar/Plugins/Monitors/Common/Files.hs
index b08fe6c..9f28d6b 100644
--- a/src/Xmobar/Plugins/Monitors/Common/Files.hs
+++ b/src/Xmobar/Plugins/Monitors/Common/Files.hs
@@ -14,7 +14,9 @@
 --
 -----------------------------------------------------------------------------
 
-module Xmobar.Plugins.Monitors.Common.Files (checkedDataRetrieval) where
+module Xmobar.Plugins.Monitors.Common.Files ( checkedDataRetrieval
+                                            , checkedDataRead)
+where
 
 #if __GLASGOW_HASKELL__ < 800
 import Control.Applicative
@@ -49,6 +51,11 @@ retrieveData path lbl trans fmt = do
                     =<< mapM (showWithColors fmt . trans . read) pairs
                   )
 
+checkedDataRead :: [[String]] -> Monitor [Double]
+checkedDataRead paths = concat <$> mapM readData paths
+  where readData path = map (read . snd) . sortBy (compare `on` fst) <$>
+                         (mapM readFiles =<< findFilesAndLabel path Nothing)
+
 -- | Represents the different types of path components
 data Comp = Fix String
           | Var [String]
-- 
cgit v1.2.3