From 4a69981260d16670493ca01f93d1495b066f3b12 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sun, 17 Feb 2008 13:44:34 +0100
Subject: some code formatting

darcs-hash:20080217124434-32816-3ea034e6955a1a8d674f84d99fcc8c96df78a359.gz
---
 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 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
-- 
cgit v1.2.3