1 files changed, 2 insertions, 2 deletions
diff --git a/XPrompt.hs b/XPrompt.hs
index 9dfb632..37d3ec3 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -446,8 +446,8 @@ printPrompt drw = do
 getCompletions :: XP [String]
 getCompletions = do
   s <- get
-  io $ ((completionFunction s) (getLastWord $ command s)
-       `catch` \_ -> return [])
+  io $ (completionFunction s) (getLastWord $ command s)
+       `catch` \_ -> return []
 
 setComplWin :: Window -> ComplWindowDim -> XP ()
 setComplWin w wi =