1 files changed, 4 insertions, 5 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Load/Linux.hs b/src/Xmobar/Plugins/Monitors/Load/Linux.hs
index 9ba5a5c..19174c7 100644
--- a/src/Xmobar/Plugins/Monitors/Load/Linux.hs
+++ b/src/Xmobar/Plugins/Monitors/Load/Linux.hs
@@ -22,9 +22,9 @@ import System.Posix.Files (fileExist)
 
 -- | Parses the contents of a loadavg proc file, returning
 -- the list of load averages
-parseLoadAvgs :: B.ByteString -> [Float]
+parseLoadAvgs :: B.ByteString -> Result
 parseLoadAvgs =
-  map (read . B.unpack) . take 3 . B.words . head . B.lines
+  Result . map (read . B.unpack) . take 3 . B.words . head . B.lines
 
 fetchLoads :: IO Result
 fetchLoads = do
@@ -32,7 +32,6 @@ fetchLoads = do
 
   exists <- fileExist file
   if exists then
-    (do contents <- B.readFile file
-        return $ Result (parseLoadAvgs contents))
+    parseLoadAvgs <$> B.readFile file
     else
-      return NA
+    return NA