summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors/Common.hs
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2007-11-05 11:23:54 +0100
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2007-11-05 11:23:54 +0100
commit556df4664693a643bf5304f13474f80cde5a53cc (patch)
tree72a4d5a080af5b30287e86a40560caf4d1468207 /Plugins/Monitors/Common.hs
parentfa9e9acbda2a67b7c566754587255a08e26a0729 (diff)
downloadxmobar-556df4664693a643bf5304f13474f80cde5a53cc.tar.gz
xmobar-556df4664693a643bf5304f13474f80cde5a53cc.tar.bz2
Plugins/Monitors/Common.hs: fix a bug in stringParser
darcs-hash:20071105102354-d6583-90bb0950fe8bbe04090f6606068e251a4741b76c.gz
Diffstat (limited to 'Plugins/Monitors/Common.hs')
-rw-r--r--Plugins/Monitors/Common.hs4
1 files 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 =