From ef7cd124086bd3c91eb5fea9bb13057a82c71f29 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sun, 24 Jan 2010 21:33:24 +0100 Subject: Use extensible-exceptions to allow base-3 or base-4 Ignore-this: 136f35fcc0f3a824b96eea0f4e04f276 darcs-hash:20100124203324-1499c-6e811978a61feebf704e3cd7543cbcc0b3e8a0b3.gz --- XMonad/Prompt/Man.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'XMonad/Prompt/Man.hs') diff --git a/XMonad/Prompt/Man.hs b/XMonad/Prompt/Man.hs index c069226..aae6a33 100644 --- a/XMonad/Prompt/Man.hs +++ b/XMonad/Prompt/Man.hs @@ -31,7 +31,7 @@ import System.Directory import System.Process import System.IO -import qualified Control.Exception as E +import qualified Control.Exception.Extensible as E import Control.Monad import Data.List import Data.Maybe @@ -62,7 +62,8 @@ manPrompt c = do getMans :: IO [String] getMans = do - paths <- getCommandOutput "manpath -g 2>/dev/null" `E.catch` \_ -> return [] + paths <- getCommandOutput "manpath -g 2>/dev/null" `E.catch` + \(E.SomeException _) -> return [] let sects = ["man" ++ show n | n <- [1..9 :: Int]] dirs = [d ++ "/" ++ s | d <- split ':' paths, s <- sects] mans <- forM dirs $ \d -> do -- cgit v1.2.3