From 4578f0f05de2ad73dffc15b998420b0351693b2b Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Tue, 4 Jan 2011 21:49:08 +0100
Subject: Linting

---
 src/Plugins/Monitors/Batt.hs | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'src/Plugins/Monitors/Batt.hs')

diff --git a/src/Plugins/Monitors/Batt.hs b/src/Plugins/Monitors/Batt.hs
index 102f635..e42049f 100644
--- a/src/Plugins/Monitors/Batt.hs
+++ b/src/Plugins/Monitors/Batt.hs
@@ -76,10 +76,10 @@ battConfig = mkMConfig
        ["leftbar", "left", "acstatus", "timeleft", "watts"] -- replacements
 
 data Files = Files
-  { f_full :: String
-  , f_now :: String
-  , f_voltage :: String
-  , f_current :: String
+  { fFull :: String
+  , fNow :: String
+  , fVoltage :: String
+  , fCurrent :: String
   } | NoFiles
 
 data Battery = Battery
@@ -98,10 +98,10 @@ batteryFiles bat =
        (_, True) -> files "/energy"
        _ -> NoFiles
   where prefix = base ++ "/" ++ bat
-        files ch = Files { f_full = prefix ++ ch ++ "_full"
-                         , f_now = prefix ++ ch ++ "_now"
-                         , f_current = prefix ++ "/current_now"
-                         , f_voltage = prefix ++ "/voltage_now" }
+        files ch = Files { fFull = prefix ++ ch ++ "_full"
+                         , fNow = prefix ++ ch ++ "_now"
+                         , fCurrent = prefix ++ "/current_now"
+                         , fVoltage = prefix ++ "/voltage_now" }
 
 haveAc :: FilePath -> IO Bool
 haveAc f = do
@@ -114,10 +114,10 @@ haveAc f = do
 readBattery :: Files -> IO Battery
 readBattery NoFiles = return $ Battery 0 0 0 0
 readBattery files =
-    do a <- grab $ f_full files -- microwatthours
-       b <- grab $ f_now files
-       c <- grab $ f_voltage files -- microvolts
-       d <- grab $ f_current files -- microwatts (huh!)
+    do a <- grab $ fFull files -- microwatthours
+       b <- grab $ fNow files
+       c <- grab $ fVoltage files -- microvolts
+       d <- grab $ fCurrent files -- microwatts (huh!)
        return $ Battery (3600 * a / 1000000) -- wattseconds
                         (3600 * b / 1000000) -- wattseconds
                         (c / 1000000) -- volts
-- 
cgit v1.2.3