From 17a037eefa1a27e11a62e99b60b13d7c8c9533d3 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sun, 5 Aug 2007 14:41:30 +0200
Subject: XPrompt.hs: getCompletion should check for completions of the last
 word of the command line

darcs-hash:20070805124130-32816-c6ccb1937ad290dba4a488453ebded844e464bbb.gz
---
 XPrompt.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XPrompt.hs')

diff --git a/XPrompt.hs b/XPrompt.hs
index c334f67..2c3b781 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -396,7 +396,7 @@ printPrompt drw gc fontst = do
 getCompletions :: XP [String]
 getCompletions = do
   s <- get
-  io $ (completionFunction s) (command s)
+  io $ (completionFunction s) (getLastWord $ command s)
 
 setComplWin :: Window -> ComplWindowDim -> XP ()
 setComplWin w wi =
@@ -555,7 +555,7 @@ readHistory = do
                return ([],h)
 
 writeHistory :: Handle -> [History] -> IO ()
-writeHistory h hist = do
+writeHistory _ hist = do
   home <- getEnv "HOME"
   let path = home ++ "/.xmonad_history"
   catch (writeFile path (show hist)) (\_ -> do putStrLn "error in writing"; return ())
-- 
cgit v1.2.3