twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-15 04:05:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

some code formatting

Browse Source
This commit is contained in:
Andrea Rossato
2008-02-17 12:44:34 +00:00
parent 6a026cf692
commit 72806ee75c
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Prompt.hs
View File

@@ -286,7 +286,7 @@ completionHandle c (ks,_) (KeyEvent {ev_event_type = t})
case c of case c of
[] -> do updateWindows [] -> do updateWindows
eventLoop handle 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 } modify $ \s -> s { command = new_command, offset = length new_command }
redrawWindows c redrawWindows c
eventLoop (completionHandle c) eventLoop (completionHandle c)

18
XMonad/Prompt/Shell.hs
View File

@@ -12,15 +12,15 @@
-- --
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonad.Prompt.Shell( module XMonad.Prompt.Shell
-- * Usage ( -- * Usage
-- $usage -- $usage
shellPrompt shellPrompt
, getShellCompl , getShellCompl
, split , split
, prompt , prompt
, safePrompt , safePrompt
) where ) where
import System.Environment import System.Environment
import Control.Monad import Control.Monad