diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-10-26 23:18:59 +0200 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-10-26 23:18:59 +0200 |
commit | 7374d223cc41453b2b13f01e7be1d01d4a536969 (patch) | |
tree | c278c58de02dd7311211769b323576198407a819 /XPrompt.hs | |
parent | c96bd846a0342b5073a326b7398c3f41b605d7cf (diff) | |
download | XMonadContrib-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.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 = |