XPrompt.hs: getCompletion should check for completions of the last word of the command line

darcs-hash:20070805124130-32816-c6ccb1937ad290dba4a488453ebded844e464bbb.gz

1 files changed, 2 insertions, 2 deletions

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 ())