some code formatting

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)

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