aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Prompt.hs2
-rw-r--r--XMonad/Prompt/Shell.hs18
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