From d5428ad56e2d902a2b116ad98e9850d903b4c68d Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sat, 26 Jan 2008 10:32:34 +0100
Subject: Prompt: code formatting only

darcs-hash:20080126093234-32816-da806988deb403ad4052e88607492eadf2d7a190.gz
---
 XMonad/Prompt.hs | 57 ++++++++++++++++++++++++++++----------------------------
 1 file changed, 28 insertions(+), 29 deletions(-)

(limited to 'XMonad/Prompt.hs')

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index a50e97b..8e12f22 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE ExistentialQuantification #-}
-
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  XMonad.Prompt
@@ -14,32 +13,32 @@
 --
 -----------------------------------------------------------------------------
 
-module XMonad.Prompt (
-                             -- * Usage
-                             -- $usage
-                             mkXPrompt
-                             , mkXPromptWithReturn
-                             , defaultXPConfig
-                             , mkComplFunFromList
-                             , XPType (..)
-                             , XPPosition (..)
-                             , XPConfig (..)
-                             , XPrompt (..)
-                             , ComplFunction
-                             -- * X Utilities
-                             -- $xutils
-                             , mkUnmanagedWindow
-                             , fillDrawable
-                             -- * Other Utilities
-                             -- $utils
-                             , getLastWord
-                             , skipLastWord
-                             , splitInSubListsAt
-                             , breakAtSpace
-                             , newIndex
-                             , newCommand
-                             , uniqSort
-                             ) where
+module XMonad.Prompt
+    ( -- * Usage
+      -- $usage
+      mkXPrompt
+    , mkXPromptWithReturn
+    , defaultXPConfig
+    , mkComplFunFromList
+    , XPType (..)
+    , XPPosition (..)
+    , XPConfig (..)
+    , XPrompt (..)
+    , ComplFunction
+    -- * X Utilities
+    -- $xutils
+    , mkUnmanagedWindow
+    , fillDrawable
+    -- * Other Utilities
+    -- $utils
+    , getLastWord
+    , skipLastWord
+    , splitInSubListsAt
+    , breakAtSpace
+    , newIndex
+    , newCommand
+    , uniqSort
+    ) where
 
 import XMonad  hiding (config, io)
 import qualified XMonad.StackSet as W
@@ -410,7 +409,7 @@ moveWord d = do
                  x     -> lenToS x
       newoff = case d of
                  Prev -> o - (ln reverse f )
-                 _    -> o + (ln id      ss)
+                 Next -> o + (ln id      ss)
   modify $ \s -> s { offset = newoff }
 
 moveHistory :: Direction -> XP ()
@@ -441,7 +440,7 @@ redrawWindows :: [String] -> XP ()
 redrawWindows c = do
   d <- gets dpy
   drawWin
-  case c  of
+  case c of
     [] -> return ()
     l  -> redrawComplWin l
   io $ sync d False
-- 
cgit v1.2.3