aboutsummaryrefslogtreecommitdiffstats
path: root/XPrompt.hs
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2007-10-26 23:18:59 +0200
committerAndrea Rossato <andrea.rossato@unibz.it>2007-10-26 23:18:59 +0200
commit7374d223cc41453b2b13f01e7be1d01d4a536969 (patch)
treec278c58de02dd7311211769b323576198407a819 /XPrompt.hs
parentc96bd846a0342b5073a326b7398c3f41b605d7cf (diff)
downloadXMonadContrib-7374d223cc41453b2b13f01e7be1d01d4a536969.tar.gz
XMonadContrib-7374d223cc41453b2b13f01e7be1d01d4a536969.tar.xz
XMonadContrib-7374d223cc41453b2b13f01e7be1d01d4a536969.zip
XPrompt: catch exceptions when running the completion function
darcs-hash:20071026211859-32816-b161b40ed1ba2fcca8c32f85fc2de821f10c2fe6.gz
Diffstat (limited to 'XPrompt.hs')
-rw-r--r--XPrompt.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/XPrompt.hs b/XPrompt.hs
index 51d8756..88ff943 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -446,7 +446,8 @@ printPrompt drw = do
getCompletions :: XP [String]
getCompletions = do
s <- get
- io $ (completionFunction s) (getLastWord $ command s)
+ io $ ((completionFunction s) (getLastWord $ command s)
+ `catch` \_ -> return [])
setComplWin :: Window -> ComplWindowDim -> XP ()
setComplWin w wi =