aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--XPrompt.hs4
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 ())