From 556df4664693a643bf5304f13474f80cde5a53cc Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
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(-)

(limited to 'Plugins/Monitors/Common.hs')

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