From 72806ee75c8813de521b35a943ba92b5dbb9bdf0 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sun, 17 Feb 2008 12:44:34 +0000
Subject: [PATCH] some code formatting

---
 XMonad/Prompt.hs       |  2 +-
 XMonad/Prompt/Shell.hs | 18 +++++++++---------
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 459481d7..74dbfe70 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 5ff8cbdd..1f79e135 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