From eefa77c899a821878b778ea9193a26da47e0fa8a Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Fri, 30 Jan 2009 17:53:25 +0100
Subject: wraning fix in Plugins.Monitors.CoreCommon

Ignore-this: 5121b9fc93d1f6db6ff825a638c2d580

darcs-hash:20090130165325-d6583-e65fb88f6e41c0f9d94e8a1e499f7c0cf46b476e.gz
---
 Plugins/Monitors/CoreCommon.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Plugins/Monitors/CoreCommon.hs b/Plugins/Monitors/CoreCommon.hs
index f31ee42..5dceb33 100644
--- a/Plugins/Monitors/CoreCommon.hs
+++ b/Plugins/Monitors/CoreCommon.hs
@@ -43,7 +43,7 @@ retrieveData dir file pattern divisor = do
     values <- mapM (showWithColors show) $ map conversion contents
     parseTemplate values
     where
-        getGuts file = withFile file ReadMode hGetLine
+        getGuts f = withFile f ReadMode hGetLine
         dirCount path str = getDirectoryContents path
                             >>= return . length
                                        . filter (\s -> str `isPrefixOf` s
-- 
cgit v1.2.3