From 1e9f1d375c940e513441d17d18c79112c3073b8d Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Sun, 1 Apr 2007 02:28:03 +0200
Subject: formatting fixes. the style is getting a bit dodgy in some places...

darcs-hash:20070401002803-9c5c1-e15fd397cbaf1182a13e1c55ca024ef2ef2fdbae.gz
---
 XMonad.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'XMonad.hs')

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
-- 
cgit v1.2.3