diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-10-08 00:02:05 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-10-08 00:02:05 +0200 |
| commit | 44f99f3ed3a6af5a2289765fadf4df29887db5c2 (patch) | |
| tree | 43c779aefe8828355dfbd8399f67af10b2186808 /src/Plugins/MBox.hs | |
| parent | b24a91af8d6a1f7b38012092ee786895b8b6a318 (diff) | |
| download | xmobar-44f99f3ed3a6af5a2289765fadf4df29887db5c2.tar.gz xmobar-44f99f3ed3a6af5a2289765fadf4df29887db5c2.tar.bz2 | |
Fixes for warnings reported in github issue #71
Diffstat (limited to 'src/Plugins/MBox.hs')
| -rw-r--r-- | src/Plugins/MBox.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Plugins/MBox.hs b/src/Plugins/MBox.hs index 65a8bb3..c4335f7 100644 --- a/src/Plugins/MBox.hs +++ b/src/Plugins/MBox.hs @@ -14,13 +14,13 @@ module Plugins.MBox (MBox(..)) where -import Prelude hiding (catch) +import Prelude import Plugins import Plugins.Utils (changeLoop, expandHome) import Control.Monad (when) import Control.Concurrent.STM -import Control.Exception (SomeException, handle, evaluate) +import Control.Exception (SomeException (..), handle, evaluate) import System.Console.GetOpt import System.Directory (doesFileExist) @@ -99,7 +99,7 @@ showC u m n c = countMails :: FilePath -> IO Int countMails f = - handle ((\_ -> evaluate 0) :: SomeException -> IO Int) + handle (\(SomeException _) -> evaluate 0) (do txt <- B.readFile f evaluate $! length . filter (B.isPrefixOf from) . B.lines $ txt) where from = B.pack "From " |