diff options
| -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 |