diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-17 13:44:34 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-17 13:44:34 +0100 |
| commit | 4a69981260d16670493ca01f93d1495b066f3b12 (patch) | |
| tree | df12582a5e0bc40769b2849d95a599ce45dcb66f /XMonad | |
| parent | 1e42b6d2d5fcecfd228d69bba6376de0c7bda029 (diff) | |
| download | XMonadContrib-4a69981260d16670493ca01f93d1495b066f3b12.tar.gz XMonadContrib-4a69981260d16670493ca01f93d1495b066f3b12.tar.xz XMonadContrib-4a69981260d16670493ca01f93d1495b066f3b12.zip | |
some code formatting
darcs-hash:20080217124434-32816-3ea034e6955a1a8d674f84d99fcc8c96df78a359.gz
Diffstat (limited to 'XMonad')
| -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 |