diff options
Diffstat (limited to 'XMonad/Prompt.hs')
-rw-r--r-- | XMonad/Prompt.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 87d4498..d6b44eb 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -193,7 +193,6 @@ class XPrompt t where -- | This method is used to generate the string to be passed to -- the completion function. - -- This function is not used when in multiple modes (because alwaysHighlight in XPConfig is True) commandToComplete :: t -> String -> String commandToComplete _ = getLastWord @@ -367,7 +366,7 @@ mkXPromptWithReturn t conf compl action = do --When it is false, it is handled depending on the prompt buffer's value let selectedCompletion = case alwaysHighlight (config st') of False -> command st' - True -> fromMaybe "" $ highlightedCompl st' + True -> fromMaybe (command st') $ highlightedCompl st' -- Just <$> action selectedCompletion else return Nothing |