From e8a47ab8c4b5b19dcc59a17140bf090f194e07c6 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Tue, 24 Jul 2007 22:35:54 +0200
Subject: Monitors.Common: parseString must use ByteStrings

darcs-hash:20070724203554-d6583-2efe004eea4fbee1a27489870907ee657caba9fb.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 9217144..bbc9c39 100644
--- a/Plugins/Monitors/Common.hs
+++ b/Plugins/Monitors/Common.hs
@@ -253,9 +253,9 @@ floatToPercent n =
 
 stringParser :: Pos -> B.ByteString -> String
 stringParser (x,y) =
-     li x . words . li y . lines . B.unpack
+     B.unpack . li x . B.words . li y . B.lines 
     where li i l | length l >= i = l !! i 
-                 | otherwise = []
+                 | otherwise = B.empty
 
 setColor :: String -> Selector (Maybe String) -> Monitor String
 setColor str s =
-- 
cgit v1.2.3