From 44f99f3ed3a6af5a2289765fadf4df29887db5c2 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 8 Oct 2012 00:02:05 +0200 Subject: Fixes for warnings reported in github issue #71 --- src/Plugins/MBox.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Plugins/MBox.hs') 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 " -- cgit v1.2.3