diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2009-01-30 17:53:25 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2009-01-30 17:53:25 +0100 |
| commit | eefa77c899a821878b778ea9193a26da47e0fa8a (patch) | |
| tree | 4b2137da007721a7f93ba9b68f54f653aa4f9eba | |
| parent | 15599771fe4e52e36d7f2496a646fbffb55c7718 (diff) | |
| download | xmobar-eefa77c899a821878b778ea9193a26da47e0fa8a.tar.gz xmobar-eefa77c899a821878b778ea9193a26da47e0fa8a.tar.bz2 | |
wraning fix in Plugins.Monitors.CoreCommon
Ignore-this: 5121b9fc93d1f6db6ff825a638c2d580
darcs-hash:20090130165325-d6583-e65fb88f6e41c0f9d94e8a1e499f7c0cf46b476e.gz
| -rw-r--r-- | Plugins/Monitors/CoreCommon.hs | 2 |
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 |