aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Prompt/Man.hs
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2010-01-24 21:33:24 +0100
committerAdam Vogt <vogt.adam@gmail.com>2010-01-24 21:33:24 +0100
commitef7cd124086bd3c91eb5fea9bb13057a82c71f29 (patch)
tree74912ac97eb5d7bf6013e26c7ede9266f6de6614 /XMonad/Prompt/Man.hs
parent6516064616b0b993a694cb4e8423a53c60a9b3c3 (diff)
downloadXMonadContrib-ef7cd124086bd3c91eb5fea9bb13057a82c71f29.tar.gz
XMonadContrib-ef7cd124086bd3c91eb5fea9bb13057a82c71f29.tar.xz
XMonadContrib-ef7cd124086bd3c91eb5fea9bb13057a82c71f29.zip
Use extensible-exceptions to allow base-3 or base-4
Ignore-this: 136f35fcc0f3a824b96eea0f4e04f276 darcs-hash:20100124203324-1499c-6e811978a61feebf704e3cd7543cbcc0b3e8a0b3.gz
Diffstat (limited to 'XMonad/Prompt/Man.hs')
-rw-r--r--XMonad/Prompt/Man.hs5
1 files changed, 3 insertions, 2 deletions
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