diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-11-05 11:23:54 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-11-05 11:23:54 +0100 |
| commit | 556df4664693a643bf5304f13474f80cde5a53cc (patch) | |
| tree | 72a4d5a080af5b30287e86a40560caf4d1468207 /Plugins/Monitors/Common.hs | |
| parent | fa9e9acbda2a67b7c566754587255a08e26a0729 (diff) | |
| download | xmobar-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.hs | 4 |
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 = |