summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2009-01-30 17:53:25 +0100
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2009-01-30 17:53:25 +0100
commiteefa77c899a821878b778ea9193a26da47e0fa8a (patch)
tree4b2137da007721a7f93ba9b68f54f653aa4f9eba /Plugins/Monitors
parent15599771fe4e52e36d7f2496a646fbffb55c7718 (diff)
downloadxmobar-eefa77c899a821878b778ea9193a26da47e0fa8a.tar.gz
xmobar-eefa77c899a821878b778ea9193a26da47e0fa8a.tar.bz2
wraning fix in Plugins.Monitors.CoreCommon
Ignore-this: 5121b9fc93d1f6db6ff825a638c2d580 darcs-hash:20090130165325-d6583-e65fb88f6e41c0f9d94e8a1e499f7c0cf46b476e.gz
Diffstat (limited to 'Plugins/Monitors')
-rw-r--r--Plugins/Monitors/CoreCommon.hs2
1 files changed, 1 insertions, 1 deletions
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