From e2ddfd99ab233b95958d4e906740064e8abc0cfb Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Wed, 11 Nov 2009 03:27:02 +0100
Subject: Trim whitespace in H.FloatNext

Ignore-this: 1ad52678246fa1ac951169c2356ce10b

darcs-hash:20091111022702-1499c-311ad3606fe5da6f4bf30ff1952f35204577327f.gz
---
 XMonad/Hooks/FloatNext.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'XMonad/Hooks')

diff --git a/XMonad/Hooks/FloatNext.hs b/XMonad/Hooks/FloatNext.hs
index 451939f..1d7fa86 100644
--- a/XMonad/Hooks/FloatNext.hs
+++ b/XMonad/Hooks/FloatNext.hs
@@ -92,7 +92,6 @@ modifyState' f = modifyState (FloatMode . f . getFloatMode)
 --
 -- > , ((modm, xK_r), toggleFloatAllNew)
 
-
 -- | This 'ManageHook' will selectively float windows as set
 -- by 'floatNext' and 'floatAllNew'.
 floatNextHook :: ManageHook
@@ -100,7 +99,6 @@ floatNextHook = do (next, all) <- liftX $ getFloatMode <$> getState
                    liftX $ putState $ FloatMode (False, all)
                    if next || all then doFloat else idHook
 
-
 -- | @floatNext True@ arranges for the next spawned window to be
 -- sent to the floating layer, @floatNext False@ cancels it.
 floatNext :: Bool -> X ()
@@ -117,7 +115,6 @@ floatAllNew = _set second
 toggleFloatAllNew :: X ()
 toggleFloatAllNew = _toggle second
 
-
 -- | Whether the next window will be set floating
 willFloatNext :: X Bool
 willFloatNext = _get fst
@@ -126,7 +123,6 @@ willFloatNext = _get fst
 willFloatAllNew :: X Bool
 willFloatAllNew = _get snd
 
-
 -- $pp
 -- The following functions are used to display the current
 -- state of 'floatNext' and 'floatAllNew' in your
@@ -153,4 +149,4 @@ willFloatAllNewPP :: (String -> String) -> X (Maybe String)
 willFloatAllNewPP = _pp snd "All"
 
 runLogHook :: X ()
-runLogHook = join $ asks $ logHook . config
\ No newline at end of file
+runLogHook = join $ asks $ logHook . config
-- 
cgit v1.2.3