From 246ed3137ca4dd1f7f84e3e5023786d38651c348 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sat, 27 Oct 2007 00:15:05 +0200
Subject: XPrompt: removed unneeded parenteses

darcs-hash:20071026221505-32816-6b1d59ea7fe4027f1114113feb9dec54200ba32b.gz
---
 XPrompt.hs | 4 ++--
 1 file 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 =
-- 
cgit v1.2.3