formatting fixes. the style is getting a bit dodgy in some places...

darcs-hash:20070401002803-9c5c1-e15fd397cbaf1182a13e1c55ca024ef2ef2fdbae.gz

1 files changed, 6 insertions, 1 deletions

diff --git a/XMonad.hs b/XMonad.hs
index 28c9c6a..7ffab6c 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -17,7 +17,7 @@
 module XMonad (
     X, WorkSpace, XState(..), Layout(..), LayoutDesc(..),
     runX, io, withDisplay, isRoot,
-    spawn, trace, whenJust
+    spawn, trace, whenJust, swap
   ) where
 
 import StackSet (StackSet)
@@ -53,6 +53,11 @@ type WorkSpace = StackSet Window
 -- | The different layout modes
 data Layout = Full | Tile
 
+-- | 'not' for Layout.
+swap :: Layout -> Layout
+swap Full = Tile
+swap _    = Full
+
 -- | A full description of a particular workspace's layout parameters.
 data LayoutDesc = LayoutDesc { layoutType   :: !Layout
                              , tileFraction :: !Rational