diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-07-24 16:22:05 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-07-24 16:22:05 +0200 |
| commit | 899ff351ce1a0a1499672020a94b4e27fcb0b4d9 (patch) | |
| tree | 687a80c832c13577e3dfd396395203bfec756e12 | |
| parent | 984ef9963e9f89a9e546bc1b9e8fc8b44377ff5e (diff) | |
| download | xmobar-899ff351ce1a0a1499672020a94b4e27fcb0b4d9.tar.gz xmobar-899ff351ce1a0a1499672020a94b4e27fcb0b4d9.tar.bz2 | |
Monitors.Commons: more code cleanup
darcs-hash:20070724142205-d6583-b2251fb6c400a6f9a8636f9f8ef5a3993594262e.gz
| -rw-r--r-- | Plugins/Monitors/Common.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Plugins/Monitors/Common.hs b/Plugins/Monitors/Common.hs index 53374d2..9217144 100644 --- a/Plugins/Monitors/Common.hs +++ b/Plugins/Monitors/Common.hs @@ -249,12 +249,12 @@ showDigits d n = floatToPercent :: Float -> String floatToPercent n = - showDigits 2 (n*100) ++ "%" + showDigits 2 (n * 100) ++ "%" stringParser :: Pos -> B.ByteString -> String stringParser (x,y) = - tk x . words . tk y . lines . B.unpack - where tk i l | length l >= i = flip (!!) i $ l + li x . words . li y . lines . B.unpack + where li i l | length l >= i = l !! i | otherwise = [] setColor :: String -> Selector (Maybe String) -> Monitor String |