diff options
| -rw-r--r-- | XMonad/Prompt.hs | 2 | ||||
| -rw-r--r-- | XMonad/Prompt/Shell.hs | 18 |
2 files changed, 10 insertions, 10 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 459481d..74dbfe7 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -286,7 +286,7 @@ completionHandle c (ks,_) (KeyEvent {ev_event_type = t}) case c of [] -> do updateWindows eventLoop handle - l -> do let new_command = nextCompletion (xptype st) (command st) l --newCommand (command st) l + l -> do let new_command = nextCompletion (xptype st) (command st) l modify $ \s -> s { command = new_command, offset = length new_command } redrawWindows c eventLoop (completionHandle c) diff --git a/XMonad/Prompt/Shell.hs b/XMonad/Prompt/Shell.hs index 5ff8cbd..1f79e13 100644 --- a/XMonad/Prompt/Shell.hs +++ b/XMonad/Prompt/Shell.hs @@ -12,15 +12,15 @@ -- ----------------------------------------------------------------------------- -module XMonad.Prompt.Shell( - -- * Usage - -- $usage - shellPrompt - , getShellCompl - , split - , prompt - , safePrompt - ) where +module XMonad.Prompt.Shell + ( -- * Usage + -- $usage + shellPrompt + , getShellCompl + , split + , prompt + , safePrompt + ) where import System.Environment import Control.Monad |