diff options
-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 |