From 556df4664693a643bf5304f13474f80cde5a53cc Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Mon, 5 Nov 2007 11:23:54 +0100 Subject: Plugins/Monitors/Common.hs: fix a bug in stringParser darcs-hash:20071105102354-d6583-90bb0950fe8bbe04090f6606068e251a4741b76c.gz --- Plugins/Monitors/Common.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Plugins/Monitors/Common.hs b/Plugins/Monitors/Common.hs index c448a65..d6066d6 100644 --- a/Plugins/Monitors/Common.hs +++ b/Plugins/Monitors/Common.hs @@ -255,8 +255,8 @@ floatToPercent n = stringParser :: Pos -> B.ByteString -> String stringParser (x,y) = B.unpack . li x . B.words . li y . B.lines - where li i l | length l >= i = l !! i - | otherwise = B.empty + where li i l | length l > i = l !! i + | otherwise = B.empty setColor :: String -> Selector (Maybe String) -> Monitor String setColor str s = -- cgit v1.2.3